/[james]/archive/createj/CreateJ/!Main
ViewVC logotype

Contents of /archive/createj/CreateJ/!Main

Parent Directory Parent Directory | Revision Log Revision Log


Revision 26 - (show annotations) (download)
Thu Mar 13 17:23:07 2003 UTC (21 years, 7 months ago) by james
File size: 2338 byte(s)
Initial import.

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

  ViewVC Help
Powered by ViewVC 1.1.26