diff options
author | Ian C <ianc@noddybox.co.uk> | 2005-09-26 23:11:03 +0000 |
---|---|---|
committer | Ian C <ianc@noddybox.co.uk> | 2005-09-26 23:11:03 +0000 |
commit | 57a46e7b6f61fa750b282ba6ac15b978eebb8335 (patch) | |
tree | 97d5ec6a0abf481bc10ac9d0d1b590c787c3cba6 /simplegui | |
parent | 02008b9c367d517d4211298d8a732870e1e22c09 (diff) |
*** empty log message ***
Diffstat (limited to 'simplegui')
-rw-r--r-- | simplegui/test.bmx | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/simplegui/test.bmx b/simplegui/test.bmx index 0c1701e..6249fd5 100644 --- a/simplegui/test.bmx +++ b/simplegui/test.bmx @@ -19,8 +19,8 @@ Global gui:TGUIHandler=TGUIHandler.Create() Global label1:TLabel=TLabel.Create(gui,0,0,"Text 1:") Global label2:TLabel=TLabel.Create(gui,0,20,"Text 2:") -Global text1:TText=TText.Create(gui,label1.w,0,"Text entry 1",20,TextCallback) -Global text2:TText=TText.Create(gui,label2.w,20,"Text entry 2",30) +Global text1:TText=TText.Create(gui,label1.w,0,"Text entry 1",20,False,TextCallback) +Global text2:TText=TText.Create(gui,label2.w,20,"Text entry 2",30,False) Global check1:TCheckbox=TCheckbox.Create(gui,400,0,"Check 1",CheckCallback) Global check2:TCheckbox=TCheckbox.Create(gui,400,20,"Check 2") Global button1:TButton=TButton.Create(gui,0,360,100,30,"Test Alerts",ButtonCallback) @@ -33,6 +33,16 @@ Global numberf:TNumberFloat=TNumberFloat.Create(gui,80,60) TLabel.Create(gui,0,80,"Int:") Global numberi:TNumberInt=TNumberInt.Create(gui,80,80) +TLabel.Create(gui,0,100,"Float") +TText.Create(gui,100,100,"",20,TText.NUMERIC) +TLabel.Create(gui,0,110,"Float pos") +TText.Create(gui,100,110,"",20,TText.NUMERIC|TText.POSITIVE) +TLabel.Create(gui,0,120,"Int") +TText.Create(gui,100,120,"",20,TText.NUMERIC|TText.INTEGER) +TLabel.Create(gui,0,130,"Int pos") +TText.Create(gui,100,130,"",20,TText.NUMERIC|TText.INTEGER|TText.POSITIVE) + + Global dialog:TGUIHandler=TGUIHandler.Create() Global dpanel:TPanel=TPanel.Create(dialog,-1,-1,400,300) Global dlab:TLabel=TLabel.Create(dialog,dpanel.x+5,dpanel.y+5,"Enter a number:") |