home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsd / evntshell / Tools / !AppBuild / NewApp / !RunImage (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1995-10-20  |  3.5 KB  |  86 lines
  1.  > <@@@@@@@@@$Dir>.!@@@@@@@@@
  2.  "Hourglass_Smash":
  3. $;" at line "+
  4.  "<EvntShell$Path>ShellLibRT"
  5. shell_FatalError
  6.  "Hourglass_On"
  7.  "Wimp_SlotSize",-1,-1 
  8.  progsize%
  9. pagesize%=1<<10
  10. freespace%=&8000+progsize%
  11. =freespace%+pagesize%
  12. =freespace%
  13. shell_HeapManagerInit("<EvntShell$Path>",freespace%)
  14. shell_Init
  15.  -------------------- Load extension libraries -----------------------
  16.  -------------------- Initialise Wimp and Resources ------------------
  17. /task%=
  18. shell_WimpInit_I( 200, "@@@@@@@@@" )
  19.  Uncomment the next two lines to enable debug tracing with ShellDBug..
  20.  PROCshell_TraceInit( "" )
  21.  PROCshell_TraceOn
  22. shell_ResourcesInit
  23. app_init
  24.  -------------------- Initialise Variables ----------------------------
  25. "G_closedown%     =
  26.  Set this to TRUE when you want the program to
  27. #!                       :
  28.  -------------------- Miscelleanous Initialisation --------------------
  29.  "Hourglass_Off"
  30. shell_Error
  31. shell_Action( 
  32. shell_Poll_I( 0, task% ) )
  33.  _closedown%
  34. shell_Exit
  35.  ======================================================================
  36. app_init
  37. SetUp_Windows
  38. SetUp_Menus
  39. SetUp_IconBar
  40.  ===== Menu_Setup routines ======================================
  41. SetUp_Menus
  42.  void%
  43. ?\MenuHandle_IconBar% = 
  44. shell_MenuNew( 
  45. shell_MessageNoArgs( "MTIBar" ), "Menu_IBar", 3 )
  46. @QMenuItem_Info%      = 
  47. shell_MenuAdd( 0, 
  48. shell_MessageNoArgs( "Info" ), "" )
  49. Aavoid%               = 
  50. shell_MenuAdd( 0, 
  51. shell_MessageNoArgs ("Quit" ), "_MenuSelect_Quit" )
  52. shell_AttachMenuDBox( MenuItem_Info%, "progInfo", "_PreOpenInfo", "" )
  53.  ===== Window_SetUp routines ====================================
  54. SetUp_Windows
  55. shell_CreateWindowStatic( "mainw", mainw% )
  56.  ===== IconBar_SetUp routines ===================================
  57. SetUp_IconBar
  58. Q^sicon=
  59. shell_Iconbar( -1, "!" + 
  60. shell_GetAppName, "", 120, MenuHandle_IconBar%, 0, 0, 0 )
  61. shell_AttachHelpTag( -1, sicon, "iconbar" )
  62. shell_AttachClickSelect( -1, sicon, "_ClickSelect_IconBar" )
  63.  ===== Dialog_PreOpen routines ==================================
  64. _PreOpenInfo( window_handle% )
  65. shell_IconPutData( window_handle%, 0, 
  66. shell_MessageNoArgs( "progInfo0" ), 0 )
  67. shell_IconPutData( window_handle%, 1, 
  68. shell_MessageNoArgs( "progInfo1" ), 0 )
  69. shell_IconPutData( window_handle%, 2, 
  70. shell_MessageNoArgs( "progInfo2" ), 0 )
  71. shell_IconPutData( window_handle%, 3, 
  72. shell_MessageNoArgs( "progInfo3" ), 0 )
  73.  ===== Dialog_PostOpen routines =================================
  74.  ===== Click_Select routines ====================================
  75. _ClickSelect_IconBar(wh%,icon%)
  76. shell_OpenWindowStatic(mainw%)
  77.  ===== Click_Adjust routines ====================================
  78.  ===== Menu_Select routines =====================================
  79. _MenuSelect_Quit(blk%)
  80. _closedown%=
  81.  ===== Menu_Warning routines ====================================
  82.  ===== Data_Load routines =======================================
  83.  ===== Data_Save routines =======================================
  84.  ===== User application routines ================================
  85.  ================= End Of User Application ======================
  86.