50 lines
1.3 KiB
Plaintext
50 lines
1.3 KiB
Plaintext
_window = 1
|
|
begin enum 1
|
|
_integer1Fld
|
|
_integer2Fld
|
|
_compareBtn
|
|
_messageLabel
|
|
end enum
|
|
|
|
local fn BuildWindow
|
|
window _window, @"Integer Comparison", (0,0,356,85)
|
|
|
|
textfield _integer1Fld,,, (20,44,112,21)
|
|
TextFieldSetPlaceholderString( _integer1Fld, @"Integer 1" )
|
|
|
|
textfield _integer2Fld,,, (140,44,112,21)
|
|
TextFieldSetPlaceholderString( _integer2Fld, @"Integer 2" )
|
|
|
|
button _compareBtn,,, @"Compare", (253,38,90,32)
|
|
|
|
textlabel _messageLabel,, (18,20,320,16)
|
|
ControlSetAlignment( _messageLabel, NSTextAlignmentCenter )
|
|
end fn
|
|
|
|
local fn DoDialog( ev as long, tag as long )
|
|
long int1, int2
|
|
|
|
select ( ev )
|
|
case _btnClick
|
|
select ( tag )
|
|
case _compareBtn
|
|
int1 = fn ControlIntegerValue( _integer1Fld )
|
|
int2 = fn ControlIntegerValue( _integer2Fld )
|
|
|
|
if ( int1 < int2 ) then textlabel _messageLabel, @"The first integer is less than the second integer."
|
|
if ( int1 == int2 ) then textlabel _messageLabel, @"The first integer is equal to the second integer."
|
|
if ( int1 > int2 ) then textlabel _messageLabel, @"The first integer is greater than the second integer."
|
|
|
|
end select
|
|
|
|
case _controlTextDidChange
|
|
textlabel _messageLabel, @""
|
|
end select
|
|
end fn
|
|
|
|
fn BuildWindow
|
|
|
|
on dialog fn DoDialog
|
|
|
|
HandleEvents
|