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