home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / programming / wimpworks / Apps / !AAterm / WWv2Data < prev   
Encoding:
Text File  |  1998-09-03  |  2.2 KB  |  105 lines

  1. # WimpWorks Information File
  2. # WimpWorks © Jaffa Software 1997. All rights reserved.
  3.  
  4. DEF TASKdetails
  5.     Name        AAterm
  6.     Purpose        Interface to ActiveApps
  7.     Author        © Jaffa Software 1997
  8.     Licence        
  9.     Version        1.00 (13-Dec-1997)
  10.     Compress    False
  11.     Memory        0K
  12.     IconbarSide    Right
  13.     IconbarPriority    &00000000
  14.     IconbarSprite    !aaterm
  15.     IconbarText    
  16. ENDTASK
  17.  
  18. DEF WEMinclude
  19. ENDWEM
  20.  
  21. DEF MENUiconMenu%
  22.     AAterm
  23.     Info
  24.         S(infoWindow%)
  25.         
  26.     Quit
  27.         
  28.         CLOSEDOWN
  29. ENDMENU
  30.  
  31. DEF SUBR_PROCiconbar_click
  32.     Event    3
  33.     Every    -1
  34. DEF PROCiconbar_click(button%)
  35.   IF button%=4 THEN OPENWINDOW(display):OPENWINDOW(command)
  36. ENDPROC
  37. ENDSUBR
  38.  
  39. DEF SUBR_PROCicon_click
  40.     Event    12
  41.     Every    -1
  42. DEF PROCicon_click(window%, icon%, button%)
  43.   LOCAL ref%,task$,cmd$
  44.  
  45.   IF window%<>command OR button%<>4 THEN ENDPROC
  46.   CASE icon% OF
  47.     WHEN command_OK
  48.       task$=READICON(command, command_task)
  49.       cmd$=READICON(command, command_command)
  50.       ref%=COMMAND(task$,cmd$)
  51.  
  52.     WHEN command_clear
  53.       CLWIN(display)
  54.       SETSIZE(display,-1,512)
  55.       CurrentY%=-16
  56.   ENDCASE
  57. ENDPROC
  58. ENDSUBR
  59.  
  60. DEF SUBR_PROCstart
  61.     Event    0
  62.     Every    -1
  63. DEF PROCstart
  64.   CurrentX%=16:CurrentY%=-16
  65. ENDPROC
  66. ENDSUBR
  67.  
  68. DEF SUBR_FNkey_press
  69.     Event    7
  70.     Every    -1
  71. DEF FNkey_press(window%, icon%, key%)
  72.   IF window%=command AND icon%=command_command AND key%=13 THEN PROCicon_click(command, command_OK, 4)
  73. =TRUE
  74. ENDSUBR
  75.  
  76. DEF SUBR_PROCpoll_called
  77.     Event    18
  78.     Every    -1
  79. DEF PROCpoll_called(block%, action%)
  80.   LOCAL fao$, from$, data$, ptr%, display$, height%
  81.   
  82.   ' Is it a user message?
  83.   IF action%<>17 AND action%<>18 THEN ENDPROC
  84.  
  85.   ' ActiveApps_Command or ActiveApps_Reply
  86.   IF block%!16<>&50300 AND block%!16<>&50301 THEN ENDPROC
  87.  
  88.   ptr%=24
  89.   fao$=FNzstring(block%+ptr%):ptr%+=1+LEN(fao$)
  90.   from$=FNzstring(block%+ptr%):ptr%+=1+LEN(from$)
  91.   data$=FNzstring(block%+ptr%)
  92.   IF fao$<>"" AND (fao$<>"AAterm" AND from$<>"AAterm") AND READSTATE(command, command_all)=FALSE THEN ENDPROC
  93.  
  94.   IF fao$="" THEN fao$="ALL"
  95.   display$=STR$~(block%!20)+" "+from$+" to "+fao$+": "+data$
  96.  
  97.   ptr%=&FF000000:IF block%!16=&50301 THEN ptr%=&00008000
  98.   TEXT(display,CurrentX%,CurrentY%,display$,ptr%)
  99.   CurrentY%-=36
  100.   IF CurrentY%>-512 THEN height%=512 ELSE height%=ABS(CurrentY%)
  101.   SETSIZE(display,-1,height%)
  102. ENDPROC
  103. ENDSUBR
  104.  
  105.