home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / programming / wimpworks / Apps / !Clock / WWv2Data < prev   
Encoding:
Text File  |  1998-09-03  |  1.1 KB  |  79 lines
  1. # WimpWorks Information File
  2. # WimpWorks © Jaffa Software 1997. All rights reserved.
  3.  
  4. DEF TASKdetails
  5.     Name        Clock
  6.     Purpose        Tell the time
  7.     Author        © Jaffa Software 1997
  8.     Licence        
  9.     Version        1.00 (07-Oct-1997)
  10.     Compress    False
  11.     Memory        0K
  12.     IconbarSide    Right
  13.     IconbarPriority    &00000000
  14.     IconbarSprite    !clock
  15.     IconbarText    
  16. ENDTASK
  17.  
  18. DEF WEMinclude
  19. ENDWEM
  20.  
  21. DEF MENUiconMenu%
  22.     Clock
  23.     Info
  24.         S(infoWindow%)
  25.         
  26.     Clock Type
  27.         S(iconsub)
  28.         
  29.     Quit
  30.         
  31.         CLOSEDOWN
  32. ENDMENU
  33.  
  34. DEF MENUiconsub
  35.     Clock Type
  36.     HH:MM:SS
  37.         T
  38.         PROCtype_click(0)
  39.     HH:MM
  40.         
  41.         PROCtype_click(1)
  42. ENDMENU
  43.  
  44. DEF SUBR_PROCtype_click
  45.     Event    -1
  46.     Every    -1
  47. DEF PROCtype_click(item%)
  48.   LOCAL index%
  49.  
  50.   FOR index%=0 TO 1
  51.     CHANGEITEM(iconsub,index%,""," ")
  52.   NEXT
  53.   CHANGEITEM(iconsub,item%,"","Ticked")
  54. ENDPROC
  55. ENDSUBR
  56.  
  57. DEF SUBR_PROCiconbar_click
  58.     Event    3
  59.     Every    -1
  60. DEF PROCiconbar_click(button%)
  61.   ' If select pressed open the window
  62.  
  63.   IF button%=4 THEN OPENWINDOW(clock)
  64. ENDPROC
  65. ENDSUBR
  66.  
  67. DEF SUBR_PROCupdate_clock
  68.     Event    -1
  69.     Every    100
  70. DEF PROCupdate_clock
  71.   LOCAL time$
  72.  
  73.   time$=SYSTIME
  74.   IF ITEMTICKED(iconsub,1) THEN time$=LEFT$(time$,5)
  75.   SETICON(clock, clock_display, time$)
  76. ENDPROC
  77. ENDSUBR
  78.  
  79.