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

Annotation of /archive/createj/CreateJ/!Main

Parent Directory Parent Directory | Revision Log Revision Log


Revision 26 - (hide 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 james 26 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