[Antiright-devel] antiright/src/arshell appendage.c appendage.h

[Jeffrey Bedard]

CVSROOT:        /cvsroot/antiright
Module name:    antiright
Branch:         
Changes by:     Jeffrey Bedard <address@hidden> 04/12/29 18:17:04

Modified files:
        src/arshell    : appendage.c appendage.h 

Log message:
        Began implementation.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/antiright/antiright/src/arshell/appendage.c.diff?tr1=1.1&tr2=1.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/antiright/antiright/src/arshell/appendage.h.diff?tr1=1.1&tr2=1.2&r1=text&r2=text

Patches:
Index: antiright/src/arshell/appendage.c
diff -u antiright/src/arshell/appendage.c:1.1 
antiright/src/arshell/appendage.c:1.2
--- antiright/src/arshell/appendage.c:1.1       Wed Dec 29 02:43:54 2004
+++ antiright/src/arshell/appendage.c   Wed Dec 29 18:17:04 2004
@@ -25,15 +25,58 @@
 Widget
 arshell_add_appendage(Widget container)
 {
-  
+       char *command;
+       Widget button;
+       command=antiright_pipe_read("arshell -ADp 'Enter the command for the 
new button.'");
+       button=arshell_optioned_button(container, arshell_system_cb, command);
+       free(command);
+       return(button);
 }
 
 Widget
 arshell_add_predefined_appendage(Widget container, char *command)
 {
+       return(arshell_optioned_button(container, arshell_system_cb, command));
+}
+
+void
+arshell_appendage_append_callback(Widget caller, XtPointer client, XtPointer 
call)
+{
+       arshell_add_appendage((Widget)client);
+       caller=NULL;
+       call=NULL;
+}
+
+void
+arshell_appendage_append_predefined_callback(Widget caller,
+               XtPointer client, XtPointer call)
+{
+       char *command;
+       call=NULL;
+       ARCLARG;
+       antiright_set(XmNlabelString, (XtArgVal)&command);
+       antiright_get_values(caller);
+       ARCLARG;
+       arshell_add_predefined_appendage((Widget)client, command);
+       XtFree(command);
+}
+
+Widget
+arshell_add_predefined_appendage_button(Widget parent, Widget container, char 
*command)
+{
+       Widget button;
+       button=antiright_button(parent, command, 
arshell_appendage_append_predefined_callback,
+                               (XtPointer)container);
+       antiright_label_string(button, command);
+       return(button);
 }
 
 Widget
 arshell_add_appendage_button(Widget parent, Widget container)
 {
+       Widget button;
+       button=antiright_button(parent, "Append", 
arshell_appendage_append_callback,
+                       (XtPointer)container);
+       antiright_label_string(button, "Append...");
+       return(button);
 }
Index: antiright/src/arshell/appendage.h
diff -u antiright/src/arshell/appendage.h:1.1 
antiright/src/arshell/appendage.h:1.2
--- antiright/src/arshell/appendage.h:1.1       Wed Dec 29 02:43:54 2004
+++ antiright/src/arshell/appendage.h   Wed Dec 29 18:17:04 2004
@@ -32,4 +32,7 @@
 Widget
 arshell_add_appendage_button(Widget parent, Widget container);
 
+Widget
+arshell_add_predefined_appendage_button(Widget parent, Widget container, char 
*command);
+
 #endif /* not ARSHELL_APPENDAGE_H  */