/[antiright]/antiright/src/arshell/appendage.c
ViewVC logotype

Diff of /antiright/src/arshell/appendage.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by jefbed, Sat Feb 12 17:57:42 2005 UTC revision 1.4 by jefbed, Wed Jun 1 01:03:26 2005 UTC
# Line 25  Line 25 
25  Widget  Widget
26  arshell_add_appendage(Widget container)  arshell_add_appendage(Widget container)
27  {  {
28          char *command;    char *command;
29          Widget button;    Widget button;
30          command=antiright_pipe_read("arshell -ADp 'Enter the command for the new button.'");    command=antiright_pipe_read("arshell -ADp "
31          button=arshell_optioned_button(container, arshell_system_cb, command);                                "'Enter the command for the new button.'");
32          free(command);    button=arshell_optioned_button(container, arshell_system_cb, command);
33          return(button);    free(command);
34      return(button);
35  }  }
36    
37  Widget  Widget
38  arshell_add_predefined_appendage(Widget container, char *command)  arshell_add_predefined_appendage(Widget container, char *command)
39  {  {
40          return(arshell_optioned_button(container, arshell_system_cb, command));    return(arshell_optioned_button(container, arshell_system_cb, command));
41  }  }
42    
43  void  void
44  arshell_appendage_append_callback(Widget caller, XtPointer client, XtPointer call)  arshell_appendage_append_callback(Widget caller,
45  {                                    XtPointer client,
46          arshell_add_appendage((Widget)client);                                    XtPointer call)
47          caller=NULL;  {
48          call=NULL;    arshell_add_appendage((Widget)client);
49      caller=NULL;
50      call=NULL;
51  }  }
52    
53  void  void
54  arshell_appendage_append_predefined_callback(Widget caller,  arshell_appendage_append_predefined_callback(Widget caller,
55                  XtPointer client, XtPointer call)                                               XtPointer client, XtPointer call)
56  {  {
57          char *command;    char *command;
58          call=NULL;    call=NULL;
59          ARCLARG;    ARCLARG;
60          antiright_set(XmNlabelString, (XtArgVal)&command);    antiright_set(XmNlabelString, (XtArgVal)&command);
61          antiright_get_values(caller);    antiright_get_values(caller);
62          ARCLARG;    ARCLARG;
63          arshell_add_predefined_appendage((Widget)client, command);    arshell_add_predefined_appendage((Widget)client, command);
64          XtFree(command);    XtFree(command);
65  }  }
66    
67  Widget  Widget
68  arshell_add_predefined_appendage_button(Widget parent, Widget container, char *command)  arshell_add_predefined_appendage_button(Widget parent,
69  {                                          Widget container,
70          Widget button;                                          char *command)
71          button=antiright_button(parent, command, arshell_appendage_append_predefined_callback,  {
72                                  (XtPointer)container);    Widget button;
73          antiright_label_string(button, command);    button=antiright_button(parent,
74          return(button);                            command,
75                              arshell_appendage_append_predefined_callback,
76                              (XtPointer)container);
77      antiright_label_string(button, command);
78      return(button);
79  }  }
80    
81  Widget  Widget
82  arshell_add_appendage_button(Widget parent, Widget container)  arshell_add_appendage_button(Widget parent, Widget container)
83  {  {
84          Widget button;    Widget button;
85          button=antiright_button(parent, "Append", arshell_appendage_append_callback,    button=antiright_button(parent, "Append", arshell_appendage_append_callback,
86                          (XtPointer)container);                            (XtPointer)container);
87          antiright_label_string(button, "Append...");    antiright_label_string(button, "Append...");
88          return(button);    return(button);
89  }  }

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26