[Antiright-devel] antiright/ACE-desktop ACE guidl/File_System_Pan...

[Jeffrey Bedard]

CVSROOT:        /sources/antiright
Module name:    antiright
Changes by:     Jeffrey Bedard <jefbed> 07/04/09 20:40:05

Modified files:
        ACE-desktop    : ACE 
Added files:
        ACE-desktop/guidl: File_System_Panel.gdl Publishing_Panel.gdl 

Log message:
        Used previously defined static user interface definitions in place
        of the ACE-embedded definitions.  Added definitions for the 
        File_System_Panel and the Publishing_Panel.  

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/antiright/ACE-desktop/ACE?cvsroot=antiright&r1=1.36&r2=1.37
http://cvs.savannah.gnu.org/viewcvs/antiright/ACE-desktop/guidl/File_System_Panel.gdl?cvsroot=antiright&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/antiright/ACE-desktop/guidl/Publishing_Panel.gdl?cvsroot=antiright&rev=1.1

Patches:
Index: ACE
===================================================================
RCS file: /sources/antiright/antiright/ACE-desktop/ACE,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -b -r1.36 -r1.37
--- ACE 8 Apr 2007 23:42:42 -0000       1.36
+++ ACE 9 Apr 2007 20:40:05 -0000       1.37
@@ -446,42 +446,24 @@
 
 File_System_Panel()
 {
-    exec $ARSHELL -or 2 \
-       'ACE -A Mount_File_System'\
-       'ACE -A Unmount_File_System'\
-       'ACE See_Free_Space'\
-       'ACE -A Show_All_File_Systems'\
-       'ACE -A Diff'
+       GUIDL File_System_Panel
 }
 
 Network_Panel()
 {
-    exec $ARSHELL -or 3 \
-       'ACE -A Open_Display' 'ACE Open_URL'\
-       'ACE -A ACE_peer_operation ftp'\
-       'ACE -A ACE_peer_operation telnet'\
-       'ACE -A ACE_Peer_operation ssh'\
-       'ACE -A ACE_peer_operation sftp'\
-       'ACE -A See_Open_Ports'\
-       'ACE PPP_On' 'ACE PPP_Off'
+       GUIDL Network_Panel
 }
 
 IOStat()
 {
        $ARSHELL -aul 'iostat'
 }
+
 Monitoring_Panel()
 {
-       
-       exec $ARSHELL -or 4 \
-               "$ARSHELL -os -og 640x480 -ou 3000 -aul 'ps xau' & # Processes"\
-               "$ARSHELL -ou 2000 -aul who & # Users"\
-               "$ARSHELL -ou 5000 -aul df & # Disks"\
-               'ACE System_Monitor'\
-               "$ARSHELL -ou 2500 -aul uptime & # Uptime"\
-               'ACE -A System_Accounting'\
-               'xload -bg darkslategrey -fg white -hl azure & # X_Load'
+       GUIDL Monitoring_Panel
 }
+
 Administration_Panel()
 {
        GUIDL Administration_Panel
@@ -573,14 +555,7 @@
 }
 Publishing_Panel()
 {
-       exec $ARSHELL -or 4\
-               'ACE -A Preview_roff'\
-               'ACE -A Print_roff'\
-               'ACE -A Save_PDF'\
-               'ACE -A Save_PS'\
-               'ACE -A Save_TEXT'\
-               'ACE -A Save_JPEG'\
-               'ACE -A Word_Count_roff'
+       GUIDL Publishing_Panel
 }
 Word_Count_roff()
 {

Index: guidl/File_System_Panel.gdl
===================================================================
RCS file: guidl/File_System_Panel.gdl
diff -N guidl/File_System_Panel.gdl
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ guidl/File_System_Panel.gdl 9 Apr 2007 20:40:05 -0000       1.1
@@ -0,0 +1,8 @@
+// Static definition for ACE File System Panel follows.
+option "rows" 2;
+add buttons "ACE -A Mount_File_System",
+           "ACE -A Unmount_File_System",
+           "ACE See_Free_Space",
+           "ACE -A Show_All_File_Systems",
+           "ACE -A Diff";
+

Index: guidl/Publishing_Panel.gdl
===================================================================
RCS file: guidl/Publishing_Panel.gdl
diff -N guidl/Publishing_Panel.gdl
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ guidl/Publishing_Panel.gdl  9 Apr 2007 20:40:05 -0000       1.1
@@ -0,0 +1,11 @@
+// Static definition for runoff-based publishing utilties.
+option "rows" 4;
+
+add buttons "ACE -A Preview_roff",
+           "ACE -A Print_roff",
+           "ACE -A Save_PDF",
+           "ACE -A Save_PS",
+           "ACE -A Save_TEXT",
+           "ACE -A Save_JPEG",
+           "ACE -A Word_Count_roff";
+