a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
36 lines
864 B
Plaintext
36 lines
864 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL GetList := {}
|
|
|
|
LOCAL cItem := "Windows"
|
|
LOCAL lx := .F.
|
|
LOCAL ly := .F.
|
|
|
|
LOCAL aItems[ 3 ]
|
|
|
|
aItems[ 1 ] := RadioButto( 3, 3, "&Windows" )
|
|
aItems[ 2 ] := RadioButto( 4, 3, "&Linux" )
|
|
aItems[ 3 ] := RadioButto( 5, 3, "&OS X" )
|
|
|
|
CLS
|
|
SetColor( "W/B+,R/B,G+/R,B+/R+,BG/N+,W/BG,RB/BG" )
|
|
|
|
@ 2, 2, 6, 40 GET cItem RADIOGROUP aItems COLOR "W/B+,R/B,G/B+" MESSAGE "Select your OS"
|
|
|
|
@ 8, 3 SAY "Married"
|
|
@ 8, 12 GET lx CHECKBOX COLOR "W/B+,W/B,W+/R,W/G+" MESSAGE "Are you married?"
|
|
@ 9, 3 SAY "Singer"
|
|
@ 9, 12 GET ly CHECKBOX COLOR "W/B+,W/B,W+/R,W/G+" MESSAGE "Are you a singer?"
|
|
|
|
READ MSG AT MaxRow(), 0, MaxCol() MSG COLOR "W/B+"
|
|
|
|
? "Is the person married:", iif( lx, "Yes", "No" )
|
|
? "Is the person a singer:", iif( ly, "Yes", "No" )
|
|
? "Your OS is", cItem
|
|
|
|
RETURN
|