home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / programming / wimpworks / Apps / !MouseInfo / WWv2Data < prev   
Encoding:
Text File  |  1998-09-03  |  3.4 KB  |  139 lines
  1. # WimpWorks Information File
  2. # WimpWorks © Jaffa Software 1997. All rights reserved.
  3.  
  4. DEF TASKdetails
  5.     Name        Mouse Info
  6.     Purpose        Give Pointer Info
  7.     Author        © HxBro 1997
  8.     Licence        Public Domain
  9.     Version        1.01 (29-Oct-97)
  10.     Compress    True
  11.     Memory        0K
  12.     IconbarSide    Right
  13.     IconbarPriority    &00000000
  14.     IconbarSprite    !mouseinfo
  15.     IconbarText    
  16. ENDTASK
  17.  
  18. DEF WEMinclude
  19.     Starter Pack
  20. ENDWEM
  21.  
  22. DEF MENUmainMenu%
  23.     Mouse Info
  24.     Info
  25.         S(infoWindow%)
  26.         
  27.     Quit
  28.         
  29.         CLOSEDOWN
  30. ENDMENU
  31.  
  32. DEF SUBR_PROCsetup_variables
  33.     Event    0
  34.     Every    -1
  35. DEF PROCsetup_variables
  36.   DIM workspace% 20   : REM Space for mouse data
  37.   task_mem%=CLAIM(1024)   : REM More space for task info
  38.   button$="Dormant"
  39.   windowhandle$="Application"
  40.   oldxcoordinate%=0
  41.   oldycoordinate%=0
  42.   oldbuttonstate%=999
  43.   oldwindowhandle%=0
  44.   oldiconhandle%=9999
  45.  
  46.   REM Delete the iconbar icon and open up the main window
  47.  
  48.   DELETEICON(-2,TASKINFO(wwIconbarHandle))
  49.   OPENWINDOW(main)
  50.   main_window_open = TRUE
  51.  
  52.   REM Enable the POLL Null event
  53.   BUSYON
  54. ENDPROC
  55. ENDSUBR
  56.  
  57. DEF SUBR_PROCmessage
  58.     Event    5
  59.     Every    -1
  60. DEF PROCmessage(file$, type%)
  61.   
  62. ENDPROC
  63. ENDSUBR
  64.  
  65. DEF SUBR_FNclose_window
  66.     Event    11
  67.     Every    -1
  68. DEF FNclose_window(window%)
  69.   IF window% = main CLOSEDOWN
  70. =0
  71. ENDSUBR
  72.  
  73. DEF SUBR_PROCclick_on_main
  74.     Event    12
  75.     Every    -1
  76. DEF PROCclick_on_main(window%, icon%, button%)
  77.   IF window% = main AND button% = 2 OPENMENU(mainMenu%,-1,-1)
  78. ENDPROC
  79. ENDSUBR
  80.  
  81. DEF SUBR_PROCnull_update
  82.     Event    1
  83.     Every    -1
  84. DEF PROCnull_update(time%)
  85.   SYS "Wimp_GetPointerInfo",,workspace%
  86.   IF workspace%!0 <> oldxcoordinate% SETICON(main,1,STR$workspace%!0)
  87.   IF workspace%!4 <> oldycoordinate% SETICON(main,3,STR$workspace%!4)
  88.   IF workspace%!8 <> oldbuttonstate% THEN
  89.      CASE workspace%!8 OF
  90.           WHEN 4 : button$="Select"
  91.           WHEN 2 : button$="Middle"
  92.           WHEN 1 : button$="Adjust"
  93.           OTHERWISE button$="Dormant"
  94.      ENDCASE
  95.      SETICON(main,5,button$)
  96.   ENDIF
  97.   IF workspace%!12 <> oldwindowhandle% THEN
  98.      CASE workspace%!12 OF
  99.           WHEN -1 : windowhandle$="Background" : SETICON(main,7,windowhandle$)
  100.           WHEN -2 : windowhandle$="Iconbar" : SETICON(main,7,windowhandle$)
  101.      OTHERWISE
  102.           REPEAT
  103.             task_mem%!12 = 0
  104.             SYS "Wimp_SendMessage",19,task_mem%,workspace%!12 TO ,,owner_taskhandle%
  105.           UNTIL owner_taskhandle% <> -1
  106.           IF owner_taskhandle% <> -1 THEN
  107.              windowhandle$=TASKNAME(owner_taskhandle%)
  108.              SETICON(main,7,windowhandle$)
  109.           ENDIF
  110.      ENDCASE
  111.   ENDIF
  112.   IF workspace%!16 <> oldiconhandle% THEN
  113.      CASE workspace%!16 OF
  114.           WHEN -1  : iconhandle$="Work area"
  115.           WHEN -2  : iconhandle$="Back icon"
  116.           WHEN -3  : iconhandle$="Close icon"
  117.           WHEN -4  : iconhandle$="Title bar"
  118.           WHEN -5  : iconhandle$="Toggle size icon"
  119.           WHEN -6  : iconhandle$="Scroll up arrow"
  120.           WHEN -7  : iconhandle$="Vertical scrollbar"
  121.           WHEN -8  : iconhandle$="Scroll down arrow"
  122.           WHEN -9  : iconhandle$="Adjust size icon"
  123.           WHEN -10 : iconhandle$="Scroll left arrow"
  124.           WHEN -11 : iconhandle$="Horizontal scrollbar"
  125.           WHEN -12 : iconhandle$="Scroll right arrow"
  126.           WHEN -13 : iconhandle$="Outer window frame"
  127.      OTHERWISE iconhandle$=STR$workspace%!16
  128.      ENDCASE
  129.      SETICON(main,9,iconhandle$)
  130.   ENDIF
  131.   oldxcoordinate%  = workspace%!0
  132.   oldycoordinate%  = workspace%!4
  133.   oldbuttonstate%  = workspace%!8
  134.   oldwindowhandle% = workspace%!12
  135.   oldiconhandle%   = workspace%!16
  136. ENDPROC
  137. ENDSUBR
  138.  
  139.