<<<<<<<<<<<<<<<<<

motif_file_selection_dialog(motif)Motifmotif_file_selection_dialog(motif)

NAME

motif_file_selection_dialog - a file finder

DESCRIPTION

A FileSelectionDialog traverses through directories, views the files in them, and then selects a file.

This is a composite that consists of a DialogShell and an unmanaged child of this class.

For a more complete description of this Motif widget, consult "OSF/Motif Programmer's Reference."

SUPERCLASS

motif_selection_dialog

INSTANCE VARIABLES

MESSAGES

If the XmFileSelectionBox widget underlying the object has not yet been created when one of the messages that returns a widget id is sent, a create! message is sent to the object. Be aware that all actions and some resources must be set before widget creation.

dir_list_id? returns the widget id of the directory list child widget.

dir_list_label_id? returns the widget id of the directory list label child widget.

filter_label_id? returns the widget id of the filter label child widget.

filter_text_id? returns the widget id of the filter text child widget.

help_button_id? returns the widget id of the help button child widget.

list_id? returns the widget id of the file list child widget.

list_label_id? returns the widget id of the file list label child widget.

ok_button_id? returns the widget id of the ok button child widget.

selection_label_id? returns the widget id of the selection label child widget.

separator_id? returns the widget id of the separator child widget.

text_id? returns the widget id of the text child widget.

work_area_id? returns the widget id of the work area child widget.

apply_button_id? returns the widget id of the apply button child widget.

cancel_button_id? returns the widget id of the cancel button child widget.

default_button_id? returns the widget id of the default button child widget.

EXAMPLE

/* Illustrate file selection box */ /* In: scripts/motif/fileselection.scr */

<motifinit motif application="File_Selection";

motif_file_selection_box new: aSelector parent=motif @ "background" : [motif_color color="Red" pixel?] @ "mustMatch" : 1 @ "resizePolicy" : XmRESIZE_ANY no_match_action=no_match ok_action=ok create! ;

motif_frame new: aFrame parent=aSelector create! ; motif_row_column new: aRowcolumn parent=aFrame

create! @ height : 500 ;

motif_error_dialog new: anError parent=motif @ "dialogTitle" : "Error" create! ; string new: errormessage;

actions new: no_match tick_actions+ "! no match" tick_actions+ "string new: `errormessage' = `The file ' + [aSelector @ `dirSpec' string_value?] + ` does not exist';" tick_actions+ "AnError @ `messageString' : errormessage; anError on!;" ; actions new: ok tick_actions+ "! ok" ; motif on! start!;