aUCBLogo Demos and Tests / dialogstest

to dialogstest
;   beginBusyCursor
;   show BusyCursor?
;   ignore readChar
;   endBusyCursor
;   show BusyCursor?

;   pr DirSelector
;   pr (DirSelector [Choose a folder!])
;   pr (DirSelector [Choose a folder!] [C:\aucblogo])
;   pr (DirSelector [Choose a folder!] [C:\aucblogo] [200 100])

;   pr FileSelector [Choose a file]
;   pr (FileSelector [Choose a file] "  [dialogtest.lg][lg][*.lg]
;      wxOpen [400 100])

;   pr reRGB (getColorFromUser)
;   pr reRGB getColorFromUser RGB 1 0.5 0.25

;   pr getFontFromUser

;   show getMultipleChoices [a Message][a Caption]
;      [[Choice Nr. 1][Second Choice][Third Choice]]
;   show (getMultipleChoices [a Message][a Caption]
;      [[Choice Nr. 1][Second Choice][Third Choice]]
;      [200 200] false [400 300])

;   show getNumberFromUser [a Message][a Prompt
;      maybe multiline][A caption] 1234 42 4321

;   show getPasswordFromUser [A Message][A Caption][default_value]
;   show (getPasswordFromUser [A Message][A Caption][default_value]
;      [200 100])
;   show (getPasswordFromUser [A Message][A Caption][default_value]
;      [200 100] false)

;   show (getTextFromUser [A Message][A Caption][default_value]
;      [200 100])
;   show (getTextFromUser [A Message][A Caption][default_value]
;      [200 100] false)

;   show getSingleChoice [A Message][A Caption]
;      [[Choice Nr. 1][Second Choice][Third Choice]]

;   show getSingleChoiceIndex [A Message][A Caption]
;      [[Choice Nr. 1][Second Choice][Third Choice]]

   show MessageBox [This is a Message]
;   show (MessageBox [This is a Message][A Caption]
;      wxYes_No+wxCancel [400 200])
end