43 lines
926 B
Plaintext
43 lines
926 B
Plaintext
_window = 1
|
|
begin enum 1
|
|
_kLabel
|
|
_kFld
|
|
_cLabel
|
|
_cFld
|
|
_fLabel
|
|
_fFld
|
|
_rLabel
|
|
_rFld
|
|
end enum
|
|
|
|
void local fn BuildWindow
|
|
window 1, @"Temperature conversion", (0,0,200,133), NSWindowStyleMaskTitled
|
|
textlabel _kLabel, @"K:", (58,94,18,16)
|
|
textfield _kFld,,, (81,92,60,21)
|
|
textlabel _cLabel, @"C:", (57,68,18,16)
|
|
textlabel _cFld,, (81,68,62,16)
|
|
textlabel _fLabel, @"F:", (59,44,18,16)
|
|
textlabel _fFld,, (81,44,62,16)
|
|
textlabel _rLabel, @"R:", (58,20,18,16)
|
|
textlabel _rFld,, (81,20,62,16)
|
|
end fn
|
|
|
|
void local fn CalcTemperatures
|
|
double k = fn ControlDoubleValue( _kFld )
|
|
ControlSetDoubleValue( _cFld, k - 273.15 )
|
|
ControlSetDoubleValue( _fFld, k * 1.8 - 459.67 )
|
|
ControlSetDoubleValue( _rFld, k * 1.8 )
|
|
end fn
|
|
|
|
void local fn DoDialog( ev as long )
|
|
select ( ev )
|
|
case _textFieldDidEndEditing : fn CalcTemperatures
|
|
end select
|
|
end fn
|
|
|
|
fn BuildWindow
|
|
|
|
on dialog fn DoDialog
|
|
|
|
HandleEvents
|