131 lines
2.3 KiB
Plaintext
Executable File
131 lines
2.3 KiB
Plaintext
Executable File
-- Rockstar Dialog
|
|
-- Rockstar North
|
|
-- 1/3/2005
|
|
-- by Greg Smith
|
|
|
|
-- Some useful dialogs
|
|
|
|
fn RsQueryBox message edittext:"" = (
|
|
|
|
global returnVal = ""
|
|
global inVal = edittext
|
|
|
|
rollout RsTheQueryBox message
|
|
(
|
|
edittext edtItem "" text:inVal
|
|
button btnOK "OK" width:100 pos:[90,40]
|
|
button btnCancel "Cancel" width:100 pos:[210,40]
|
|
|
|
on btnOK pressed do (
|
|
|
|
returnVal = edtItem.text
|
|
DestroyDialog RsTheQueryBox
|
|
)
|
|
|
|
on btnCancel pressed do (
|
|
|
|
DestroyDialog RsTheQueryBox
|
|
)
|
|
)
|
|
|
|
CreateDialog RsTheQueryBox width:300 modal:true
|
|
|
|
return returnVal
|
|
)
|
|
|
|
fn RsQueryBoxTimeOut message timeout:60 = (
|
|
|
|
returnval = true
|
|
global countVal = timeout
|
|
global lblVal = message
|
|
|
|
rollout RsTheQueryBox "Query"
|
|
(
|
|
label lblMsg "test"
|
|
button btnOK "Yes" width:100 pos:[50,40]
|
|
button btnCancel "No" width:100 pos:[160,40]
|
|
timer tmrCount
|
|
|
|
on btnOK pressed do (
|
|
|
|
DestroyDialog RsTheQueryBox
|
|
)
|
|
|
|
on btnCancel pressed do (
|
|
|
|
returnval = false
|
|
DestroyDialog RsTheQueryBox
|
|
)
|
|
|
|
on tmrCount tick do (
|
|
|
|
if countVal == 0 then (
|
|
|
|
DestroyDialog RsTheQueryBox
|
|
) else (
|
|
|
|
countVal = countVal - 1
|
|
btnOK.text = "Yes (" + (countVal as string) + ")"
|
|
)
|
|
)
|
|
|
|
on RsTheQueryBox open do (
|
|
|
|
lblMsg.text = lblVal
|
|
btnOK.text = "Yes (" + (countVal as string) + ")"
|
|
)
|
|
)
|
|
|
|
CreateDialog RsTheQueryBox width:300 modal:true
|
|
|
|
return returnVal
|
|
)
|
|
|
|
fn RsQueryBoxAll message = (
|
|
|
|
returnval = #yes
|
|
global countVal = timeout
|
|
global lblVal = message
|
|
|
|
rollout RsTheQueryBox "Query"
|
|
(
|
|
label lblMsg "test"
|
|
button btnYes "Yes" width:100 pos:[285,40]
|
|
button btnYesAll "Yes To All" width:100 pos:[395,40]
|
|
button btnNo "No" width:100 pos:[505,40]
|
|
button btnNoAll "No To All" width:100 pos:[615,40]
|
|
|
|
on btnYes pressed do (
|
|
|
|
DestroyDialog RsTheQueryBox
|
|
)
|
|
|
|
on btnYesAll pressed do (
|
|
|
|
returnval = #yesall
|
|
DestroyDialog RsTheQueryBox
|
|
)
|
|
|
|
on btnNo pressed do (
|
|
|
|
returnval = #no
|
|
DestroyDialog RsTheQueryBox
|
|
)
|
|
|
|
on btnNoAll pressed do (
|
|
|
|
returnval = #noall
|
|
DestroyDialog RsTheQueryBox
|
|
)
|
|
|
|
on RsTheQueryBox open do (
|
|
|
|
lblMsg.text = lblVal
|
|
)
|
|
)
|
|
|
|
CreateDialog RsTheQueryBox width:1000 modal:true
|
|
|
|
return returnVal
|
|
)
|