48 lines
1.5 KiB
Plaintext
48 lines
1.5 KiB
Plaintext
_window = 1
|
|
begin enum 1
|
|
_response
|
|
_popupBtn
|
|
end enum
|
|
|
|
void local fn BuildPopUpMenu
|
|
menu 101
|
|
menu 101, 0,, @"Select numbered menu item from the Three Pigs"
|
|
menu 101, 1,, @"1. fee fie"
|
|
menu 101, 2,, @"2. huff and puff"
|
|
menu 101, 3,, @"3. mirror mirror"
|
|
menu 101, 4,, @"4. tick tock"
|
|
menu 101, 5,, @" ?????????"
|
|
end fn
|
|
|
|
void local fn BuildWindow
|
|
CGRect r = fn CGRectMake( 0, 0, 480, 360 )
|
|
window _window, @"Rosetta Code Menu Task", r, NSWindowStyleMaskTitled + NSWindowStyleMaskClosable + NSWindowStyleMaskMiniaturizable
|
|
|
|
r = fn CGRectMake( 45, 240, 380, 34 )
|
|
textlabel _response,, r, _window
|
|
ControlSetAlignment( _response, NSTextAlignmentCenter )
|
|
|
|
r = fn CGRectMake( 65, 200, 340, 34 )
|
|
popupbutton _popupBtn,,,, r, YES
|
|
PopUpButtonSetMenu( _popupBtn, 101 )
|
|
end fn
|
|
|
|
void local fn DoMenu( menuID as long, itemID as long )
|
|
select (menuID)
|
|
select (ItemID)
|
|
case 1 : ControlSetStringValue( _response, @"1. Sorry, wrong: From Jack the Giant Killer." )
|
|
case 2 : ControlSetStringValue( _response, @"2. CORRECT!: From The Three Little Pigs." )
|
|
case 3 : ControlSetStringValue( _response, @"3. Sorry, wrong: From Snow White and the Seven Dwarfs." )
|
|
case 4 : ControlSetStringValue( _response, @"4. Sorry, wrong: From Tick Tock Goes the Clock Rhyme." )
|
|
case 5 : ControlSetStringValue( _response, @"Surely you could just make a guess! Try again." )
|
|
end select
|
|
end select
|
|
end fn
|
|
|
|
fn BuildPopUpMenu
|
|
fn BuildWindow
|
|
|
|
on menu fn DoMenu
|
|
|
|
HandleEvents
|