/[antiright]/antiright/src/ACE
ViewVC logotype

Diff of /antiright/src/ACE

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

revision 1.25 by jefbed, Fri Nov 12 20:14:27 2004 UTC revision 1.26 by jefbed, Sun Nov 21 21:46:36 2004 UTC
# Line 138  Desktop_Lite() Line 138  Desktop_Lite()
138          -geometry +32+64 -xrm "*highlightThickness: 0"\          -geometry +32+64 -xrm "*highlightThickness: 0"\
139          -xrm "*alignment: XmALIGNMENT_CENTER" -t &          -xrm "*alignment: XmALIGNMENT_CENTER" -t &
140  }  }
141  Sticky_Note()  return_pseudorandom_color()
142  {  {
     local background  
143      local ones=$(date +%S | cut -c 2)      local ones=$(date +%S | cut -c 2)
144      background=$(\      if [ $ones -lt 1 ]; then
145          if [ $ones -lt 2 ];\          echo -n powderblue
146          then echo -n skyblue;\      elif [ $ones -lt 2 ]; then
147          elif [ $ones -lt 4 ];\          echo -n lavender
148          then echo -n pink;\      elif [ $ones -lt 3 ]; then
149          elif [ $ones -lt 6 ];\          echo -n pink
150          then echo -n lightgreen;\      elif [ $ones -lt 4 ]; then
151          elif [ $ones -lt 8 ];\          echo -n wheat
152          then echo -n yellow;\      elif [ $ones -lt 5 ]; then
153          elif [ $ones -lt 10 ];\          echo -n black
154          then echo -n beige;\      elif [ $ones -lt 6 ]; then
155          fi)          echo -n darkgray
156        elif [ $ones -lt 7 ]; then
157            echo -n darkred
158        elif [ $ones -lt 8 ]; then
159            echo -n lightsteelblue
160        elif [ $ones -lt 9 ]; then
161            echo -n gainsboro
162        elif [ $ones -lt 10 ]; then
163            echo -n midnightblue
164        fi
165    }
166    Sticky_Note()
167    {
168        local background=$(return_pseudorandom_color)
169      $ARSHELL -W 'Sticky Note' -Am -Amf 'ACE Sticky_Note \# New' -Aw\      $ARSHELL -W 'Sticky Note' -Am -Amf 'ACE Sticky_Note \# New' -Aw\
170          -xrm "*XmText.background: $background"\          -xrm "*XmText.background: $background"\
171          -xrm '*XmText.height: 200' -xrm '*XmText.width: 150'\          -xrm '*XmText.height: 200' -xrm '*XmText.width: 150'\
# Line 267  Pager() Line 279  Pager()
279  Select_CD_Track()  Select_CD_Track()
280  {  {
281      tracks=$(arcd -T)      tracks=$(arcd -T)
282      if [ "$tracks" != "0" ]; then      if [ $tracks -gt 0 ]; then
283          track=$($ARSHELL -W 'Select Track' -ADp "Track: [1-$tracks]")          track=$($ARSHELL -W 'Select Track' -ADp "Track: [1-$tracks]")
284          track_after_zero="[ $track -gt 0 ]"          track_after_zero="[ $track -gt 0 ]"
285          track_before_last="[ $track -le $tracks_number ]"          track_before_last="[ $track -le $tracks_number ]"
# Line 282  Select_CD_Track() Line 294  Select_CD_Track()
294  }  }
295  CD_Player()  CD_Player()
296  {  {
297      $ARSHELL -W 'CD Player' -r 2 \      $ARSHELL -W 'CD Player' -r 2 -E \
298          'ACE Play_CD' 'ACE Pause_CD'\          'ACE -A CD_Player & ACE Play_CD'\
299          'ACE Resume_CD' 'ACE Stop_CD'\          'ACE -A CD_Player & ACE Pause_CD'\
300          'ACE Select_Track' -E "echo Exit"          'ACE -A CD_Player & ACE Resume_CD'\
301            'ACE -A CD_Player & ACE Stop_CD'\
302            'ACE -A CD_Player & ACE Select_Track'\
303            "echo Exit"
304  }  }
305    
306  Calculate()  Calculate()
# Line 299  Calculate() Line 314  Calculate()
314  Alarm()  Alarm()
315  {  {
316      local alarm_time="$($ARSHELL -W Alarm -ADp 'Time (ex 22:40):')"      local alarm_time="$($ARSHELL -W Alarm -ADp 'Time (ex 22:40):')"
317      $ARSHELL -W Alarm -ADp Command: | at "$alarm_time"      if [ "$alarm_time" != "" ]; then
318            $ARSHELL -W Alarm -ADp Command: | at "$alarm_time"
319        fi
320  }  }
321    
322  ACE_get_color()  ACE_get_color()

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

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