08b85109d9
* tests/tstchbx.prg
* extras/httpsrv/modules/showcounter.prg
* lessen references and references to Windows
* contrib/hbfbird/tests/stress.prg
* use UTF8 instead of Windows specific CP
* formatting
* contrib/hbhttpd/widgets.prg
* use UTF8 instead of Windows specific CP
* contrib/hbcairo/tests/fancytxt.prg
* contrib/hbcairo/tests/glyphdbg.prg
* contrib/hbcairo/tests/hellow.prg
* contrib/hbcairo/tests/lightning.prg
* contrib/hbcairo/tests/table.prg
* contrib/hbxpp/tests/opover.prg
* contrib/hbxpp/tests/testdll.prg
+ added #require "<pkgname>" so these can now be run as
scripts.
* contrib/hbgd/gdimage.prg
% no longer needed manual image destroy methods
converted to empty stubs
* contrib/hbgd/gdwrp.c
! GDIMAGEDESTROY() to act as true dummy wrapper.
Before it was still checking parameter and RTE-ing
as a result.
* contrib/hbgd/gdbarcod.prg
! fixed RTEs caused by using [] operator on strings
* contrib/hbgd/tests/animgif.prg
* contrib/hbgd/tests/antialia.prg
* contrib/hbgd/tests/barms.prg
* contrib/hbgd/tests/bartest.prg
* contrib/hbgd/tests/counter.prg
* contrib/hbgd/tests/gdtest.prg
* contrib/hbgd/tests/gdtestcl.prg
* contrib/hbgd/tests/test_out.prg
* contrib/hbgd/tests/test.prg
* contrib/hbgd/tests/testdpi.prg
* contrib/hbgd/tests/tostring.prg
* contrib/hbgd/tests/tpoly.prg
+ added #require "hbgd" so they can be run as scripts
* deleted platform specific stuff
+ added TOFIXes for non-working font settings (not even
before above modifications)
! fixed some examples to save output to file
* some mods to make code portable
* some formatting
* contrib/hbmisc/tests/readfile.prg
* contrib/hbmisc/tests/rtfclass.prg
* contrib/hbmisc/tests/testbbab.prg
* contrib/hbmisc/tests/testcall.prg
* contrib/hbmisc/tests/testhbf.prg
* contrib/hbmisc/tests/tsstrfmt.prg
* contrib/hbmisc/tests/twirl.prg
* contrib/hbmisc/tests/udpdstst.prg
+ added #require "hbmisc" so they can be run as scripts
! added one missing platform guard
* minor cleanups in SVN header and Windows references
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
|