[Antiright-devel] antiright/src ACE

[Jeffrey Bedard]

CVSROOT:        /cvsroot/antiright
Module name:    antiright
Branch:         
Changes by:     Jeffrey Bedard <address@hidden> 05/07/03 20:43:25

Modified files:
        src            : ACE 

Log message:
        Started work on the calculator.  Chaned see_ function result fonts to 
fixed for cleaner display.  Changed the main panel alarm button to a calendar 
button.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/antiright/antiright/src/ACE.diff?tr1=1.43&tr2=1.44&r1=text&r2=text

Patches:
Index: antiright/src/ACE
diff -u antiright/src/ACE:1.43 antiright/src/ACE:1.44
--- antiright/src/ACE:1.43      Sat Jun 25 06:13:36 2005
+++ antiright/src/ACE   Sun Jul  3 20:43:24 2005
@@ -167,7 +167,10 @@
     kill $(ps xa | grep DESKTOP | awk '{print $1}' | tr '\n' ' ')\
        &> /dev/null 2> /dev/null
 }
-
+Calendar()
+{
+    cal | arshell -Am -Aw -p -geometry 200x200
+}
 Desktop()
 {
     Setup_Juke_Environment
@@ -191,7 +194,7 @@
        'vdesk 5' 'vdesk 6'\
        -Ai 'ACE Background' $arbmdir/kcoloredit.xpm\
        -Ai 'ACE Mail' $arbmdir/mail.xpm\
-       'ACE Alarm' 'ACE Run' \
+       'ACE Cal' 'ACE Run' \
        -Ai 'ACE -A Settings' $arbmdir/tools.xpm\
        -Ai 'ACE CD_Player' $arbmdir/kscd.xpm\
        -geometry +0+0\
@@ -354,14 +357,6 @@
     fi
 }
 
-Calculate()
-{
-    local input="$($ARSHELL -W Calculate -ADp Calculate:)"
-    if [ "$input" != "" ]; then
-       local answer="$(echo $input | cut -d : -f 2 | bc)"
-       $ARSHELL -W Answer -ADm "  $answer"
-    fi
-}
 Alarm()
 {
     local alarm_time="$($ARSHELL -W Alarm -ADp 'Time (ex 22:40):')"
@@ -411,6 +406,27 @@
 {
     $ARSHELL -Am -UL uptime
 }
+print_value()
+{
+    echo $(cat ~/.arcalc.var | tr -d ' ')
+}
+Calculator()
+{
+    echo -n '0' > ~/.arcalc.var
+    arshell -r 3 -Ul "ACE -A print_value"\
+       "echo -n '1 '>> ~/.arcalc.var # 1"\
+       "echo -n '2 '>> ~/.arcalc.var # 2"\
+       "echo -n '3 '>> ~/.arcalc.var # 3"\
+       "echo -n '4 ' >> ~/.arcalc.var # 4"\
+       "echo -n '5 ' >> ~/.arcalc.var # 5"\
+       "echo -n '6 ' >> ~/.arcalc.var # 6"\
+       "echo -n '7 ' >> ~/.arcalc.var # 7"\
+       "echo -n '8 ' >> ~/.arcalc.var # 8"\
+       "echo -n '9 ' >> ~/.arcalc.var # 9"\
+       "echo -n '0 ' >> ~/.arcalc.var # 0"\
+       "echo -n '. ' >> ~/.arcalc.var # ."\
+       '='
+}
 Administration_Panel()
 {
     $ARSHELL -W Administration -Am -r 5\
@@ -431,6 +447,7 @@
        'ACE -A Load_Meter'\
            'ACE -A System_Accounting'\
            "xload -bg red4 -fg yellow -hl yellow & # X_Load"
+           
 }
 System_Accounting()
 {
@@ -444,23 +461,28 @@
 }
 See_All_Processes()
 {
-    ps xau | $ARSHELL -W 'All Processes' -Am -Aw -p
+    ps xau | $ARSHELL -W 'All Processes' -Am -Aw -p\
+       -xrm "*work.fontList: fixed"
 }
 See_All_Users()
 {
-    who        | $ARSHELL -Am -W 'Users' -Aw -p
+    who        | $ARSHELL -Am -W 'Users' -Aw -p\
+       -xrm "*work.fontList: fixed"
 }
 See_Disk_Info()
 {
-    df | $ARSHELL -Am -W 'Disk Info' -Aw -p
+    df | $ARSHELL -Am -W 'Disk Info' -Aw -p\
+       -xrm "*work.fontList: fixed"
 }
 See_Open_Ports()
 {
-    nmap 127.0.0.1 | $ARSHELL -Am -W 'Network Ports' -Aw -p
+    nmap 127.0.0.1 | $ARSHELL -Am -W 'Network Ports' -Aw -p\
+       -xrm "*work.fontList: fixed"
 }
 See_User_Processes()
 {
-    ps u | $ARSHELL -Am -W 'User Processes' -Aw -p
+    ps u | $ARSHELL -Am -W 'User Processes' -Aw -p\
+       -xrm "*work.fontList: fixed"
 }
 Background_Editor()
 {
@@ -486,11 +508,13 @@
 }
 See_Free_Space()
 {
-    df | $ARSHELL -Am -W 'Disk Space' -Aw -p
+    df | $ARSHELL -Am -W 'Disk Space' -Aw -p\
+       -xrm "*work.fontList: fixed"
 }
 Show_All_File_Systems()
 {
-    cat /etc/fstab | $ARSHELL -W 'File System Table' -Am -Aw -p
+    cat /etc/fstab | $ARSHELL -W 'File System Table' -Am -Aw -p\
+       -xrm "*work.fontList: fixed"
 }
 Text_Editor()
 {
@@ -503,7 +527,8 @@
        if [ ! -f $file ]; then
            touch $file
        fi
-       cat $file | $ARSHELL -Am -Aw -As -p -W $file
+       cat $file | $ARSHELL -Am -Aw -As -p -W $file\
+       -xrm "*work.fontList: fixed"
     fi
 }
 Manual_Page()