Get and Set Methods

The following example continues the SetData example:

     .
     .
     .
MyDialog~ConnectEntryLine(102, "ENTRYLINE_1")
MyDialog~ConnectCheckBox(201, )
MyDialog~ConnectListbox(203, "LISTBOX_DAYS")
     .
     .
     .
/* process the dialog */
     .
     .
     .
MyDialog~GetData            /* retrieve dialog item value */
say MyDialog~ENTRYLINE_1
say MyDialog~DATA201
say MyDialog~LISTBOX_DAYS

Dialog items with ID 102, 201 and 203 are connected to the attributes ENTRYLINE_1, DATA201, and LISTBOX_DAYS. Attribute DATA201 is generated by the ConnectCheckBox method. Then the attributes are initialized with some values. This does not change the dialog window, unless you run the SetData method.

     .
     .
     .
MyDialog~ConnectEntryLine(102, "ENTRYLINE_1")
MyDialog~ConnectCheckBox(201,)
MyDialog~ConnectListbox(203, "LISTBOX_DAYS")
     .
     .
     .
MyDialog~ENTRYLINE_1="Memorial Day"
MyDialog~DATA201=1
MyDialog~LISTBOX_DAYS="Monday"

MyDialog~SetData

The only argument is:

The arguments are:

The only argument is:

The arguments are:

Assume that three methods are connected to push buttons. The SetToDefault method overrides the value in the Windows dialog entry line 234 with the value 256 but does not change its associated attribute. Using SetEntryLine has the same effect as a change to the entry line made by the user. The associated attribute in the Object Rexx object (DATA234) still has the original value. Thus it is possible to undo the changes or confirm them.

::method SetToDefault
   self~SetEntryLine(234, "256")

::method AcceptValues
   self~GetAttrib(DATA234)

::method UndoChanges
   self~SetAttrib(DATA234)

The only argument is:

The arguments are:

The following example selects item "New York" in list box 232:

MyBaseDialog~SetListLine(232, "New York")

The only argument is:

The following example shows how to handle a multiple-selection list box. It parses the returned string as long as it contains an index.

selLines = MyDialog~GetMultiList(555)
do until selLines = ""
   parse var selLines aLine selLines
   say aLine
end

The arguments are:

The following example selects the lines 2, 5, and 6 of list box 345:

MyDialog~SetMultiList(345, "2 5 6")

The only argument is:

The arguments are:

The only argument is:

The arguments are:

The only argument is:

The arguments are:

The only argument is:

The arguments are:

The following example sets dialog item 123 to (string) value "1 2 3". This is meaningful if 123 is an entry field, or if it is a list box that contains the line "1 2 3". However, it is an error to apply this against a check box.

MyDialog~SetValue(123, "1 2 3")

The only argument is:

The following example shows how to get the data value of a dialog item without knowing its ID:

MyDialog~GetAttrib("FirstName")
if MyDialog~FirstName\="" then ...

The only argument is:

The following example copies the value of the attribute DATA101 to the associated dialog item:

MyBaseDialog~SetAttrib("DATA101")

This method is protected.

The only argument is:

The following example initializes the dialog items with ID 21, 22, and 23:

     .
     .
     .
dlgStem.21="Windows 95"
dlgStem.22="0"
dlgStem.23="1 2 3"
self~SetDataStem(dlgStem.)

This method is protected.

The only argument is: