forked from dmcoles/ReBuild
-
Notifications
You must be signed in to change notification settings - Fork 0
/
dialogs.e
84 lines (65 loc) · 2.04 KB
/
dialogs.e
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
OPT MODULE, OSVERSION=37
MODULE 'requester','classes/requester','intuition/intuition','classes/window'
EXPORT PROC queryRequest(windowObj,title,bodytext)
DEF reqmsg:PTR TO orrequest
DEF reqobj
DEF res=0
DEF win
SUBA.L #$100,A7
Sets(windowObj,WA_BUSYPOINTER,TRUE)
win:=Gets(windowObj,WINDOW_WINDOW)
NEW reqmsg
reqmsg.methodid:=RM_OPENREQ
reqmsg.window:=win
reqmsg.attrs:=[REQ_TYPE, REQTYPE_INFO, REQ_IMAGE, REQIMAGE_QUESTION, REQ_TITLETEXT,title,REQ_BODYTEXT,bodytext,REQ_GADGETTEXT,'_Yes|_No',TAG_END]
reqobj:=NewObjectA(Requester_GetClass(),0,[TAG_END])
IF reqobj
res:=DoMethodA(reqobj, reqmsg)
DisposeObject(reqobj)
ENDIF
END reqmsg
Sets(windowObj,WA_BUSYPOINTER,FALSE)
ADD.L #$100,A7
ENDPROC res
EXPORT PROC warnRequest(windowObj,title,bodytext,yesno=FALSE)
DEF reqmsg:PTR TO orrequest
DEF reqobj
DEF res=0
DEF win
SUBA.L #$100,A7
Sets(windowObj,WA_BUSYPOINTER,TRUE)
win:=Gets(windowObj,WINDOW_WINDOW)
NEW reqmsg
reqmsg.methodid:=RM_OPENREQ
reqmsg.window:=win
reqmsg.attrs:=[REQ_TYPE, REQTYPE_INFO, REQ_IMAGE, REQIMAGE_WARNING, REQ_TITLETEXT,title,REQ_BODYTEXT,bodytext,REQ_GADGETTEXT,IF yesno THEN '_Yes|_No' ELSE '_Ok|_Cancel',TAG_END]
reqobj:=NewObjectA(Requester_GetClass(),0,[TAG_END])
IF reqobj
res:=DoMethodA(reqobj, reqmsg)
DisposeObject(reqobj)
ENDIF
END reqmsg
Sets(windowObj,WA_BUSYPOINTER,FALSE)
ADD.L #$100,A7
ENDPROC res
EXPORT PROC errorRequest(windowObj,title,bodytext)
DEF reqmsg:PTR TO orrequest
DEF reqobj
DEF res=0
DEF win
SUBA.L #$100,A7
Sets(windowObj,WA_BUSYPOINTER,TRUE)
win:=Gets(windowObj,WINDOW_WINDOW)
NEW reqmsg
reqmsg.methodid:=RM_OPENREQ
reqmsg.window:=win
reqmsg.attrs:=[REQ_TYPE, REQTYPE_INFO, REQ_IMAGE, REQIMAGE_ERROR, REQ_TITLETEXT,title,REQ_BODYTEXT,bodytext,REQ_GADGETTEXT,'_Ok',TAG_END]
reqobj:=NewObjectA(Requester_GetClass(),0,[TAG_END])
IF reqobj
res:=DoMethodA(reqobj, reqmsg)
DisposeObject(reqobj)
ENDIF
END reqmsg
Sets(windowObj,WA_BUSYPOINTER,FALSE)
ADD.L #$100,A7
ENDPROC