| 1 |
REM > CreateJ.!Main |
| 2 |
REM © James Bursa, 1997 |
| 3 |
|
| 4 |
ON ERROR ON ERROR OFF: SYS"Hourglass_Smash": ERROR 0,"Error during initialisation: "+REPORT$+" ("+STR$ERL+")": END |
| 5 |
SYS"Hourglass_On" |
| 6 |
Task_Name$ = "CreateJ" |
| 7 |
Task_ThrowBack% = TRUE |
| 8 |
|
| 9 |
LIBRARY"JLibraries:Task.2" |
| 10 |
LIBRARY"JLibraries:Heap.2" |
| 11 |
LIBRARY"JLibraries:Wimp.5" |
| 12 |
LIBRARY"JLibraries:Wind.5" |
| 13 |
LIBRARY"JLibraries:Menu.5" |
| 14 |
LIBRARY"JLibraries:Debug.2" |
| 15 |
LIBRARY"JLibraries:Sprite.2" |
| 16 |
LIBRARY"JLibraries:Object.2" |
| 17 |
LIBRARY"JLibraries:Mess.1" |
| 18 |
LIBRARY"JLibraries:String.1" |
| 19 |
|
| 20 |
PROCWimp_Init |
| 21 |
LIBRARY"JLibraries:Libs.1": PROCLibs_Load(Task_Name$ + "Code:") |
| 22 |
ON ERROR IF FNWimp_Error THEN END ELSE END |
| 23 |
PROCTask_Init |
| 24 |
SYS"Hourglass_Off" |
| 25 |
|
| 26 |
ON ERROR IF FNWimp_Error THEN Task_Quit% = TRUE |
| 27 |
|
| 28 |
WHILE NOT Task_Quit% |
| 29 |
PROCWimp_Poll |
| 30 |
ENDWHILE |
| 31 |
|
| 32 |
ON ERROR ON ERROR OFF: ERROR 0,"Error whilst closing down: "+REPORT$+" ("+STR$ERL+")": END |
| 33 |
PROCTask_Close |
| 34 |
PROCWimp_Close |
| 35 |
END |
| 36 |
|
| 37 |
REM ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜ |
| 38 |
REM | INITIALISATION & QUITTING | |
| 39 |
REM ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜ |
| 40 |
|
| 41 |
DEF FNInit_Application |
| 42 |
P% = B% |
| 43 |
[OPT 2 |
| 44 |
EQUD &502: EQUD 2: EQUD 0 |
| 45 |
] |
| 46 |
SYS"Wimp_AddMessages", B% |
| 47 |
|
| 48 |
PROCWind_OpenC("Main") |
| 49 |
PROCWind_PutCaret("Main", "Name") |
| 50 |
=0 |
| 51 |
|
| 52 |
REM ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜ |
| 53 |
REM | EVENT PROCESSING | |
| 54 |
REM ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜ |
| 55 |
|
| 56 |
DEF FNClick_Main_Canc |
| 57 |
Task_Quit% = TRUE |
| 58 |
=0 |
| 59 |
|
| 60 |
DEF FNClick_Main_Crea |
| 61 |
IF INSTR(FNWind_GetText("Main", "Name"), ":") = 0 THEN ERROR Erro_Warn%, "%Drag" |
| 62 |
PROCCreate(FNWind_GetText("Main", "Name")) |
| 63 |
=0 |
| 64 |
|
| 65 |
DEF FNClick_Main_Icon |
| 66 |
IF Z% > 15 THEN PROCWimp_StartDrag |
| 67 |
=0 |
| 68 |
|
| 69 |
REM ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜ |
| 70 |
|
| 71 |
DEF FNDragEnd |
| 72 |
SYS"Wimp_GetPointerInfo",, B% |
| 73 |
B%!20 = B%!12 |
| 74 |
B%!24 = B%!16 |
| 75 |
B%!28 = B%!00 |
| 76 |
B%!32 = B%!04 |
| 77 |
B%!00 = 256 |
| 78 |
B%!12 = 0 |
| 79 |
B%!16 = 1 |
| 80 |
B%!36 = 0 |
| 81 |
B%!40 = &1000 |
| 82 |
$(B% + 44) = FNWimp_GetLeaf(FNWind_GetText("Main", "Name")) |
| 83 |
SYS"Wimp_SendMessage", 17, B%, B%!20, B%!24 |
| 84 |
=0 |
| 85 |
|
| 86 |
REM ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜ |
| 87 |
|
| 88 |
DEF FNMessUser_2 |
| 89 |
PROCCreate(FNWimp_GetString(B% + 44)) |
| 90 |
B%!12 = B%!08 |
| 91 |
B%!16 = 3 |
| 92 |
SYS"Wimp_SendMessage", 17, B%, B%!04 |
| 93 |
=0 |
| 94 |
|
| 95 |
DEF FNMessRec_2 |
| 96 |
=FNMessUser_2 |
Parent Directory
| 
Revision Log