33 lines
826 B
Plaintext
33 lines
826 B
Plaintext
_window = 1
|
|
begin enum 1
|
|
_expressionLabel
|
|
_expressionFld
|
|
_resultLabel
|
|
end enum
|
|
|
|
void local fn BuildUI
|
|
editmenu 1
|
|
window _window, @"Arithmetic Evaluation", (0,0,522,61)
|
|
textlabel _expressionLabel, @"Expression:", (18,23,74,16)
|
|
textfield _expressionFld,,, (98,20,300,21)
|
|
textlabel _resultLabel,, (404,23,100,16)
|
|
WindowMakeFirstResponder( _window, _expressionFld )
|
|
end fn
|
|
|
|
void local fn EvaluateExpression( string as CFStringRef )
|
|
ExpressionRef expression = fn ExpressionWithFormat( string )
|
|
textlabel _resultlabel, fn StringWithFormat( @"= %@", fn ExpressionValueWithObject( expression, NULL, NULL ) )
|
|
end fn
|
|
|
|
void local fn DoDialog( ev as long, tag as long )
|
|
select ( ev )
|
|
case _btnClick : fn EvaluateExpression( textfield(tag) )
|
|
end select
|
|
end fn
|
|
|
|
fn BuildUI
|
|
|
|
on dialog fn DoDialog
|
|
|
|
HandleEvents
|