Progress
Language Reference


CREATE Widget Statement

Interfaces
OS
SpeedScript
All
All
No

Creates a dynamic object, such as a widget object.

SYNTAX

CREATE {     BUTTON  |  COMBO-BOX
          |  CONTROL-FRAME  |  DIALOG-BOX
          |  EDITOR  |  FILL-IN
          |  FRAME  |  IMAGE
          |  MENU  |  MENU-ITEM
          |  RADIO-SET  |  RECTANGLE
          |  SELECTION-LIST  |  SLIDER
          |  SUB-MENU |  TEXT
          |  TOGGLE-BOX |  WINDOW
          |  VALUE ( string-expression )
       } widget-handle [ IN WIDGET-POOL pool-name ]
  [ ASSIGN { attribute = expression } ... ]
  [ trigger-phrase ] 

VALUE ( string-expression )

An expression of type CHARACTER that evaluates to the type of object you want to create (for example, BUTTON) with any combination of uppercase and lowercase characters.

widget-handle

A variable of type WIDGET-HANDLE that Progress sets to the value of the new widget handle.

IN WIDGET-POOL pool-name

Specifies the widget pool in which the object is created. If you do not specify a widget pool, the object is created in the current default widget pool.

ASSIGN { attribute = expression } ...

Assigns specified values to attributes of the object. The attribute parameter must be the name of a valid attribute for the object and expression must evaluate to a valid value for that attribute.

trigger-phrase

A trigger phrase associated with the object. For more information, see the Trigger Phrase reference entry.

EXAMPLE

This procedure creates a dynamic button that displays a list of customer names.

r-dynbut.p
DEFINE VARIABLE  but1  AS WIDGET-HANDLE.
DISPLAY "Dynamic Button Example" SKIP(3) WITH FRAME x SIDE-LABELS.

OPEN QUERY all-custs FOR EACH Customer.
GET FIRST all-custs.
DISPLAY Customer.Name WITH FRAME x.

CREATE BUTTON but1
   ASSIGN ROW = 3
   COLUMN = 5
   LABEL = "Next Customer"
   FRAME = FRAME x:HANDLE
   SENSITIVE = TRUE
   VISIBLE = TRUE
    TRIGGERS:
       ON CHOOSE
           DO:
              GET NEXT all-custs.
              DISPLAY Customer.Name WITH FRAME x. 
           END.
    END TRIGGERS.

WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. 

NOTES

SEE ALSO

CREATE QUERY Statement, CREATE WIDGET-POOL Statement, DEFINE FRAME Statement, DELETE WIDGET Statement, DELETE WIDGET-POOL Statement, Trigger Phrase


Copyright © 2004 Progress Software Corporation
www.progress.com
Voice: (781) 280-4000
Fax: (781) 280-4095