Progress
Language Reference


CREATE WIDGET-POOL Statement

Interfaces
OS
SpeedScript
All
All
No

Creates a named or unnamed widget pool.

SYNTAX

CREATE WIDGET-POOL
  [ pool-name [ PERSISTENT ] ]
  [ NO-ERROR ] 

pool-name

A character-string expression specifying the name of the pool you are creating. If you omit this option, an unnamed pool is created. Widget pool names are not case sensitive.

PERSISTENT

Specifies that the pool is persistent. This means that the pool and any widgets in it remain allocated after the current procedure terminates. If you do not specify this option, the pool and its contents are automatically deleted when procedure execution ends.

NO-ERROR

Suppresses error messages if the specified widget pool already exists. You can then test for the ERROR condition to verify that the widget pool does, in fact, exist.

EXAMPLE

The following example lets you create a series of dynamic buttons. All the buttons are created within a named widget pool. Because the widget pool is created within a trigger, it is defined as persistent so that it remains allocated after the trigger ends. You can at any time choose to delete the entire widget pool and start over.

r-widpl.p
DEFINE VARIABLE wh AS WIDGET-HANDLE.

DEFINE BUTTON b_create LABEL "Create Button".
DEFINE BUTTON b_del    LABEL "Delete Buttons".
DEFINE BUTTON b_quit LABEL "Quit"
  TRIGGERS:
    ON CHOOSE
    DO:
      IF VALID-HANDLE(wh) THEN
        DELETE WIDGET-POOL "new-buttons".
      QUIT.
    END.
  END.
  
DEFINE FRAME butt-frame
  b_create b_del b_quit
  WITH ROW SCREEN-LINES - 2.
  
DEFINE FRAME new-buttons
  WITH SIZE 76 BY 11 CENTERED ROW 2 TITLE "New Buttons".

ON CHOOSE OF b_create IN FRAME butt-frame
DO:
  STATUS INPUT "Press RETURN to select a new button".
  IF wh = ? OR NOT VALID-HANDLE(wh) THEN
    CREATE WIDGET-POOL "new-buttons" PERSISTENT.
    CREATE BUTTON wh IN WIDGET-POOL "new-buttons"
    ASSIGN FRAME = FRAME new-buttons:HANDLE
      ROW = RANDOM(2, 9)
      COLUMN = RANDOM(2, 58)
      LABEL = "BUTTON " + STRING(etime)
      SENSITIVE = TRUE
      VISIBLE = TRUE
      TRIGGERS:
        ON CHOOSE PERSISTENT RUN dispmsg.
      END.
END. 
ON CHOOSE OF b_del IN FRAME butt-frame
DO:
  IF VALID-HANDLE(wh) THEN
    DELETE WIDGET-POOL "new-buttons".
  STATUS INPUT. 
END. 
ENABLE b_create b_del b_quit WITH FRAME butt-frame.

DO ON ENDKEY UNDO, LEAVE:
   WAIT-FOR CHOOSE OF b_quit IN FRAME butt-frame.
END.

IF VALID-HANDLE(wh)
THEN DELETE WIDGET-POOL "new-buttons".

PROCEDURE dispmsg:
  MESSAGE "You chose button " SELF:LABEL.
END. 

NOTES

SEE ALSO

CREATE Widget Statement, DELETE WIDGET-POOL Statement


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