18 lines
412 B
Plaintext
18 lines
412 B
Plaintext
void local fn BuildWindow
|
|
CGRect r = fn CGRectMake( 0, 0, 320, 240 )
|
|
window 1, @"Single Pixel", r, NSWindowStyleMaskTitled + NSWindowStyleMaskClosable
|
|
oval fill fn CGRectMake( 100-0.5, 100-0.5, 1, 1 ), fn ColorRed
|
|
end fn
|
|
|
|
void local fn DoDialog( ev as long, tag as long, wnd as long )
|
|
select ( ev )
|
|
case _windowWillClose : end
|
|
end select
|
|
end fn
|
|
|
|
on dialog fn DoDialog
|
|
|
|
fn BuildWindow
|
|
|
|
HandleEvents
|