Start_Layout_1

The intent is to:

• allow users to select a Layout.
• show how to use the LISTBOX command and properties

Start_Layout_1.lgo

; USES A LISTBOX TO SELECT A LAYOUT
; Luis Noriega

TO BOX
DECLARE "LISTBOX "LAYOUTS
	PPROP "LAYOUTS "SIZE [180 110]
	PPROP "LAYOUTS "POSITION [0 0]
	PPROP "LAYOUTS "RUN [CHANGELAYOUT]
	PPROP "LAYOUTS "TOOLTIP "|Click to select a Layout|
	PPROP "LAYOUTS "ITEMS [BASIC VERTICAL STANDARD BLOCKS]
END

TO CHANGELAYOUT
	MAKE "LAYOUT GPROP "LAYOUTS "TEXT
	CS
END

TO MESSAGE
   CS
   PU
   HOME
   SETXY [-90 80]
   PD
   SETFONT “TIMES 18 1
   TT [|Select your favorite Layout|]
   PU
   SETXY [-105 70]
   PD
END

TO MAIN
   MESSAGE
   BOX
END

MAIN

;To check the definition of the Listbox use
;EDPLIST "LAYOUTS

• procedure: ‘BOX, CHANGELAYOUT, MESSAGE’
• description: ‘Change the Layout using LISTBOX’
• level: ‘Intermediate’
• tags: [LISTBOX, DECLARE, PPROP, GPROP, SETXY, SETFONT, TT]