4 The stddialogs Library

This fragment contains a few standard dialogs (more will be added later):

• noteUser which brings up a simple dialog with a message, and waits for the user to press the OK button.

• alertUser, similar to noteUser.

• fileSelectionDialog brings up a standard file selection dialog.

• fileCreationDialog brings up a standard create/save file dialog.

4.1 Using the stddialogs Library

Remember that in order to utilize this extension to Lidskjalv, the fragment stddialogs must be included as follows:

ORIGIN '~beta/guienv/guienv'; INCLUDE '~beta/guienv/stddialogs' --- program: descriptor --- guienv(# ... do ... ... -> fileSelectionDialog -> ...; ... #)

4.2 Examples of Use of the stddialogs Fragment

This demo program illustrates the use of the standard file selection dialog. The name of the file selected in the dialog is printed on the screen.

Program 3: file.bet

ORIGIN '~beta/guienv/guienv'; INCLUDE '~beta/guienv/stddialogs'; (* This demo shows how to use the fileSelectionDialog pattern. The * name of the file selected in the dialog is printed on the screen. *) -- program: descriptor -- guienv (# theWindow: @window (# eventHandler:: (# onAboutToClose:: (# do terminate #); onMouseUp:: (# name: ^text; do theWindow[] -> fileSelectionDialog -> name[]; (if name[]=NONE then 'Selected Cancel' -> putline else name[] -> putline if) #) #) #) do theWindow.open #)