home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / desktop / finallook_1 / !FinalLook / !FLConfig / !RunImage2 (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1995-04-20  |  5KB  |  172 lines
  1.  >!RunImage for !FLConfig
  2.  (c) 1995 Matthew (The Moog) Godbolt (M.R.Godbolt@exeter.ac.uk)
  3.           & pixeleyes (pixeleyes@oslonett.no)
  4.  Templates and graphics by pixeleyes
  5.  Program and support by The Moog
  6.  This program is *FREEWARE* - distribute for free but don't change it!
  7.  0,"Error during startup - "+
  8. $+" at line "+
  9. +" - !FLConfig must quit"
  10. Initialise
  11. ScanDir
  12.  ON ERROR PROCerror
  13.  "EqWimp_WriteStringToIcon",eq%,"Info","Version","12th March DEVELOPMENT"
  14. WimpPoll
  15.  end%
  16. Finalise
  17. Initialise
  18.  Poll 1024,WLoad 1024,Indir 2048,MesList 32,FontArea 256
  19.  P%=MesList
  20. / [OPT 2:EQUD &502:EQUD &3:EQUD &5:EQUD &0:]
  21.  $WLoad="TASK"
  22.  "Wimp_Initialise",300,!WLoad,"FinalLook Config",MesList 
  23.  ,TaskHandle%
  24.  "OS_ReadModeVariable",-1,5 
  25.  ,,Yeig%
  26.  Yeig%=1 
  27.  "EqWimp_Sprites","<FLConfig$Dir>.Sprites22" 
  28.  SprArea%
  29.  "EqWimp_Sprites","<FLConfig$Dir>.Sprites" 
  30.  SprArea%
  31.  "EqWimp_Initialise","Info,Configure,Style,Alert,NoteHeader,Note",WLoad,Indir,Indir+2047,"<FLConfig$Dir>.Templates",SprArea%,FontArea 
  32.  "EqWimp_InstallOnIconbar",eq%,"!FLConfig",1,-1 
  33.  ,IconbarHandle
  34.  "EqWimp_LoadMenus",eq%,"<FLConfig$Dir>.MenuData"
  35.  SYS "EqWimp_LoadHelpFile",eq%,"<FLConfig$Dir>.HelpText"
  36.  end%=
  37. Finalise
  38.  "EqWimp_Finalise",eq%
  39.  "Wimp_CloseDown",TaskHandle%
  40. ScanDir
  41. Error
  42. ,"Error during error handling : "+
  43. $+" at line "+
  44.  "EqWimp_WriteStringToIcon",eq%,"Alert","Error",
  45. $+" at line "+
  46.  "EqWimp_PutAtFrontAndCentre",eq%,"Alert"
  47.  "EqWimp_RestrictMouse",eq%,"Alert"
  48.  "EqWimp_GrabCaret",eq%,"Alert",-1
  49.  exit%=
  50. :Release%=
  51.  "Wimp_Poll",,Poll To reason
  52.  reason 
  53. ?0   
  54.  2     : 
  55.  "EqWimp_OpenWindow",eq%,Poll
  56. @1   
  57.  3     : 
  58.  "EqWimp_CloseWindow",eq%,Poll
  59. A:   
  60.  6     : 
  61.  "EqWimp_MouseClick",eq%,Poll 
  62.  ,,Icon$
  63. B.                
  64.  Icon$="Continue" exit%=
  65. C)                
  66.  Icon$="Quit" end%=
  67. DG   
  68.  8     : 
  69.  "EqWimp_ProcessKey",eq%,Poll 
  70.  Click%,Window$,Icon$
  71. E'                
  72.  Window$="Alert" 
  73. FI                 
  74.  "EqWimp_ClickOnIcon",eq%,Window$,Icon$ 
  75.  Release%
  76. G/                 
  77.  Icon$="Continue" exit%=
  78. H*                 
  79.  Icon$="Quit" end%=
  80.                 
  81. J3   
  82.  11    : 
  83.  "EqWimp_InvalidateCaretDetails"
  84. K#   
  85.  17,18 : 
  86.  Poll!16=0:end%=
  87.  exit% 
  88.  end%
  89.  Release% 
  90.  end% 
  91.  "EqWimp_DeselectIcon",eq%,Window$,Icon$
  92.  "EqWimp_ReleaseMouse"
  93.  "EqWimp_RestoreCaret"
  94.  end% 
  95.  "EqWimp_Finalise",eq%
  96.  "Wimp_CloseDown",TaskHandle%
  97.  "EqWimp_ShutWindow",eq%,"Alert"
  98.  Release% 
  99.  "EqWimp_DeselectIcon",eq%,Window$,Icon$
  100. WimpPoll
  101.  "Wimp_Poll",,Poll 
  102.  Reason
  103.  Reason 
  104.  1     : PROredraw(Poll)
  105.  2     : 
  106.  "EqWimp_OpenWindow",eq%,Poll
  107.  3     : 
  108.  "EqWimp_CloseWindow",eq%,Poll
  109.  6     : 
  110.  "EqWimp_MouseClick",eq%,Poll 
  111.  ,Window$,Icon$
  112. b-               
  113. MouseClick(Window$,Icon$)
  114.  9     : 
  115.  "EqWimp_DecodeMenu",eq%,Poll 
  116.  ,Menu$
  117. d%               
  118. MenuSelect(Menu$)
  119.  17,18 : 
  120. Message(Poll!16)
  121. Message(mesnum)
  122.  mesnum 
  123.  0 : end%=
  124. MouseClick(Window$,Icon$)
  125.  "EqWimp_MouseInfo",eq% 
  126.  ,mx%,my%,Button$
  127.  Window$ 
  128.  "Iconbar" :
  129.  Button$ 
  130.  "Menu" :
  131.      
  132. CheckPatch
  133. v2     
  134.  "EqWimp_OpenMenu",eq%,"IBar",mx%-64,-1
  135.      CurrentMenu$="IBar"
  136.      
  137. OpenMain
  138. |<   
  139.  "EqWimp_UsefulButton",eq%,Window$,Icon$ 
  140.  ,Useful%
  141. }7   
  142.  Useful% 
  143.  "EqWimp_DragWindow",eq%,Window$
  144. MenuSelect(Mes$)
  145.  "EqWimp_MouseInfo",eq% 
  146.  ,mx%,my%,Button$
  147.  Mes$ 
  148.  "Quit": end%=
  149.  "RemovePatch" : 
  150.  "OS_Module",4,"PatchAll"
  151. %                       
  152. RedrawAll
  153. &                       
  154. CheckPatch
  155.  Button$="Adjust" 
  156.  "EqWimp_OpenMenu",eq%,CurrentMenu$
  157. CheckPatch
  158.  "XOS_Module",18,"PatchAll" 
  159.  ;flags%
  160. " PatchLoaded%=((flags% 
  161.  1)=0)
  162.  PatchLoaded% 
  163.  "EqWimp_SetMenuFlag",eq%,"PatchLoaded"
  164.  "EqWimp_ClearMenuFlag",eq%,"PatchLoaded"
  165. RedrawAll
  166.  "Wimp_ForceRedraw",-1,-1E6,-1E6,1E6,1E6
  167. OpenMain
  168.  "EqWimp_PutAtFrontAndCentre",eq%,"Configure"
  169.  "EqWimp_GrabCaret",eq%,"Configure",-1
  170. redraw(Poll)
  171.  "Wimp_Redraw
  172.