[Antiright-devel] antiright/ACE-desktop ACE system.antiright guid...

[Jeffrey Bedard]

CVSROOT:        /sources/antiright
Module name:    antiright
Changes by:     Jeffrey Bedard <jefbed> 07/04/09 21:01:50

Modified files:
        ACE-desktop    : ACE system.antiright 
        ACE-desktop/guidl: ACE_Panel.gdl 
Added files:
        ACE-desktop/guidl: Clock.gdl 

Log message:
        Added a new row of buttons to ACE main panel containing
        system.antiright bindings.  Use direct GUIDL subroutine
        parameters instead of functions that basically amount to
        singleton stubs.  Added Clock.gdl, a desktop clock applet.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/antiright/ACE-desktop/ACE?cvsroot=antiright&r1=1.37&r2=1.38
http://cvs.savannah.gnu.org/viewcvs/antiright/ACE-desktop/system.antiright?cvsroot=antiright&r1=1.7&r2=1.8
http://cvs.savannah.gnu.org/viewcvs/antiright/ACE-desktop/guidl/ACE_Panel.gdl?cvsroot=antiright&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/antiright/ACE-desktop/guidl/Clock.gdl?cvsroot=antiright&rev=1.1

Patches:
Index: ACE
===================================================================
RCS file: /sources/antiright/antiright/ACE-desktop/ACE,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- ACE 9 Apr 2007 20:40:05 -0000       1.37
+++ ACE 9 Apr 2007 21:01:49 -0000       1.38
@@ -103,7 +103,6 @@
 AR_Prepare_Environment()
 {
        xrdb ~/.Xdefaults
-       xsetroot -solid "$(ACE Background)"
        ACE_Check_Configuration_File
        touch ~/.antirightrc
        chmod +x ~/.antirightrc
@@ -227,22 +226,12 @@
        nice $ARSHELL -oT 'Note' -aT -og 175x200 
 }
 
-Old_Deskbar()
-{
-       GUIDL Old_Deskbar
-}
-
-ICONDIR()
-{
-       echo $icon
-}
-
 Deskbar()
 {
        local STYLE="$(ACE deskbar_style)"
 
        if [ "$STYLE" = "0" ]; then
-               Old_Deskbar
+               GUIDL Old_Deskbar
        elif [ "$STYLE" = "3" ]; then
                GUIDL Horizontal_Deskbar
        else 
@@ -277,7 +266,11 @@
                else
                        CMD="$CMD $ACE_STRING"
                fi
-               #echo "$CMD"
+
+               if [ "$DEBUG" = "True" ]; then
+                       echo "$CMD"
+               fi
+
                exec sh -c "$CMD"
        fi
 }
@@ -357,11 +350,6 @@
        exec sh -c "$CMD"
 }
 
-Manual_Browser()
-{
-       GUIDL Manual_Browser
-}
-
 OS_Specific()
 {
        $ARSHELL -di 'No OS specific functionality available.'
@@ -444,30 +432,11 @@
     fi
 }
 
-File_System_Panel()
-{
-       GUIDL File_System_Panel
-}
-
-Network_Panel()
-{
-       GUIDL Network_Panel
-}
-
 IOStat()
 {
        $ARSHELL -aul 'iostat'
 }
 
-Monitoring_Panel()
-{
-       GUIDL Monitoring_Panel
-}
-
-Administration_Panel()
-{
-       GUIDL Administration_Panel
-}
 System_Accounting()
 {
        if [ "$(which sar)" != "" ]; then
@@ -553,16 +522,14 @@
                $(ACE roff_file).pdf
        clean_roff
 }
-Publishing_Panel()
-{
-       GUIDL Publishing_Panel
-}
+
 Word_Count_roff()
 {
        local filename=$(ACE roff_file)
        local output=$(wc $filename)
        ACE -A Message "$output"
 }
+
 Save_JPEG()
 {
        arroff
@@ -570,6 +537,7 @@
                $(ACE roff_file).jpg
        clean_roff
 }
+
 Save_TEXT()
 {
        groff -Tascii\

Index: system.antiright
===================================================================
RCS file: /sources/antiright/antiright/ACE-desktop/system.antiright,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- system.antiright    9 Apr 2007 15:12:58 -0000       1.7
+++ system.antiright    9 Apr 2007 21:01:49 -0000       1.8
@@ -75,5 +75,3 @@
 Deskbar_X:echo +0
 Deskbar_Y:echo +0
 
-# IDE-releated
-

Index: guidl/ACE_Panel.gdl
===================================================================
RCS file: /sources/antiright/antiright/ACE-desktop/guidl/ACE_Panel.gdl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- guidl/ACE_Panel.gdl 6 Apr 2007 14:06:06 -0000       1.2
+++ guidl/ACE_Panel.gdl 9 Apr 2007 21:01:50 -0000       1.3
@@ -1,10 +1,29 @@
 // ACE Panel
 option "rows" 5;
 option "title" "ACE Panel";
-add buttons "ACE IRC", "ACE File_Manager", "ACE -A Manual_Browser",
-       "ACE CD_Player", "ACE Calculator",
-       "ACE -A Alarm", "ACE Mail", "ACE -A Settings", "ACE -A Command",
-       "ACE -A Administration_Panel", "ACE -A File_System_Panel",
-       "ACE -A Network_Panel", "ACE -A Publishing_Panel", "ACE -A Calendar",
+
+add buttons 
+       "ACE IRC", 
+       "ACE File_Manager",     
+       "ACE GUIDL Manual_Browser",
+       "ACE CD_Player", 
+       "ACE Calculator",
+
+       "ACE -A Alarm", 
+       "ACE Mail", 
+       "ACE -A Settings", 
+       "ACE -A Command",
+       "ACE -A GUIDL Administration_Panel", 
+
+       "ACE Lock_Display",
+       "ACE Terminal",
+       "ACE Sticky_Note",
+       "ACE Browser",
+       "ACE Image_Editor",
+
+       "ACE -A GUIDL File_System_Panel",
+       "ACE -A GUIDL Network_Panel", 
+       "ACE -A GUIDL Publishing_Panel", 
+       "ACE -A Calendar",
        "gtkshell -da & # About";
 

Index: guidl/Clock.gdl
===================================================================
RCS file: guidl/Clock.gdl
diff -N guidl/Clock.gdl
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ guidl/Clock.gdl     9 Apr 2007 21:01:50 -0000       1.1
@@ -0,0 +1,7 @@
+option "rows" 1;
+option "undecorated";
+option "title" "Clock";
+option "geometry" "-0-0";
+
+add updating label "date | tr '\n' ' '";
+