Một biến của loại này được sử dụng để tham khảo một cửa sổ. Cảnh báo được coi là một hộp thoại, nhưng một hộp thoại là không có gì nhiều hơn một loại cửa sổ. Các đối số thứ hai và thứ ba là xứng đáng của cuộc thảo luận nhiều hơn một chút. Tham số đầu tiên, kAlertStopAlert, chỉ đơn giản là nơi biểu tượng của ứng dụng cảnh báo | define kPopUpSizeSmallCommand popl define kPopUpSizeMediumCommand pop2 define kPopUpSizeLargeCommand pop3 pascal OSStatus CommandEventHandler EventHandlerCallRef handlerRef EventRef event void userData void PopUpCommandHandler WindowRef window UInt32 command int main int argc char argv IBNibRef nibRef WindowRef window OSStatus err EventTargetRef target EventHandlerUPP handlerUPP EventTypeSpec cmdEvent kEventClassCommand kEventProcessCommand err CreateNibReference CFSTR main nibRef err SetMenuBarFromNib nibRef CFSTR MainMenu err CreateWindowFromNib nibRef CFSTR MainWindow window DisposeNibReference nibRef target GetWindowEventTarget window handlerUPP NewEventHandlerUPP CommandEventHandler InstallEventHandler target handlerUPP l cmdEvent void window NULL ShowWindow window RunApplicationEventLoop return 0 pascal OSStatus CommandEventHandler EventHandlerCallRef handlerRef EventRef event void userData OSStatus result eventNotHandledErr HICommand command WindowRef window window WindowRef userData GetEventParameter event kEventParamDirectObject typeHICommand NULL sizeof HICommand NULL command switch case kPopUpSizeSmallCommand PopUpCommandHandler window kPopUpSizeSmallCommand result noErr break case kPopUpSizeMediumCommand PopUpCommandHandler window kPopUpSizeMediumCommand result noErr break case kPopUpSizeLargeCommand PopUpCommandHandler window kPopUpSizeLargeCommand result noErr break return result void PopUpCommandHandler WindowRef window UInt32 command T L B R Rect whiteRect 60 10 90 270 Pattern white SetPortWindowPort window GetQDGlobalsWhite white FillRect whiteRect white MoveTo 30 80 switch command case kPopUpSizeSmallCommand DrawString pYou chose the size Small shirt. break case kPopUpSizeMediumCommand DrawString pThe size Medium shirt was selected. break case kPopUpSizeLargeCommand DrawString pThat was the size Large shirt. break For More Information The following web sites provide extra information about some of this chapter s topics Menu GUI
