/* SCCS Id: @(#)macwin.c 3.1 93/01/24 */ /* Copyright (c) Jon W{tte, Hao-Yang Wang, Jonathan Handler 1992. */ /* NetHack may be freely redistributed. See license for details. */ /* * macwin.c */ /* * I have to quote X11R5: * * "If you think you know what this code is doing, you're probably wrong. * Here be serious and nasty dragons." * * h+ 92-09-26 */ #include "hack.h" #include "func_tab.h" #include #include #include #include #ifndef MAC_THINKC5 #include #endif #include #include #include #include #include #include #include #include #include #include NhWindow * theWindows = (NhWindow *) NULL ; /* * Some useful #defines for the scroll bar width and height */ #define SBARWIDTH 15 #define SBARHEIGHT 14 /* * We put a TE on the message window for the "top line" queries. * top_line is the TE that holds both the query and the user's * response. The first topl_query_len characters in top_line are * the query, the rests are the response. topl_resp is the valid * response to a yn query, while topl_resp[topl_def_idx] is the * default response to a yn query. */ TEHandle top_line = nil; int topl_query_len; int topl_def_idx = -1; char topl_resp[10] = ""; #define CHAR_ANY '\n' /* * inSelect means we have a menu window up for selection or * something similar. It makes the window with win number == * inSelect a movable modal (unfortunately without the border) * and clicking the close box forces an ESC into the key * buffer. Don't forget to set inSelect to WIN_ERR when you're * done... */ winid inSelect = WIN_ERR ; /* * The key queue - contains 0 for unused or an ascii value. * When getting keys, take the first value and shift the * queue, shifting in a 0. */ #define QUEUE_LEN 24 static int keyQueue [ QUEUE_LEN ] ; Boolean gClickedToMove = 0 ; /* For ObscureCursor */ /* * Add key to input queue, force means replace last if full */ void addToKeyQueue ( int ch , Boolean force ) { int i ; for ( i = 0 ; i < QUEUE_LEN ; i ++ ) { if ( ! keyQueue [ i ] ) { keyQueue [ i ] = ch ; return ; } } if ( force ) { keyQueue [ QUEUE_LEN - 1 ] = ch ; } } /* * Cursor movement */ RgnHandle gMouseRgn = NULL ; /* * _Gestalt madness - we rely heavily on the _Gestalt glue, since we * don't check for the trap... */ MacFlags macFlags ; /* * Async flag for keeping track of scrollbars... * Used by InvalScrollBar ( ) */ static NhWindow * asyDSC = (NhWindow *) NULL ; /* * The font to be used in the text window */ short text_wind_font = geneva; /* * Whether to adjust the height of a text window according to its contents */ boolean full_screen = FALSE; char macPad = 1 ; Handle mBar ; MenuHandle appleMenu ; MenuHandle fileMenu ; MenuHandle editMenu ; MenuHandle extendMenu ; MenuHandle miscMenu ; MenuHandle helpMenu ; MenuHandle commandsMenu ; MenuHandle thingsMenu ; #define NHW_BASE 0 winid BASE_WINDOW ; // Was: , WIN_MAP , WIN_MESSAGE , WIN_INVEN , WIN_STATUS ; void NDECL(port_help); int NDECL(SanePositions); Boolean FDECL(RetrieveWinPos, (WindowPtr,short *,short *)); void NDECL ( InitMac ) ; void NDECL(InitRes); void FDECL(GeneralKey, ( EventRecord * theEvent , WindowPtr theWindow )); void FDECL(HandleKey, ( EventRecord * theEvent )); void FDECL(HandleClick, ( EventRecord * theEvent )); void FDECL(HandleUpdate, ( EventRecord * theEvent )); void FDECL(HandleEvent, ( EventRecord * theEvent )); void NDECL(DimMenuBar); void NDECL(UndimMenuBar); int FDECL(filter_scroll_key,(const int, NhWindow *)); void SetFrameItem ( DialogPtr , short , short ) ; void FlashButton ( DialogPtr , short ) ; void trans_num_keys ( EventRecord * ) ; #ifndef MAC_THINKC5 /* * Why aren't these declared when including hack.h - I thought * they were... */ void FDECL(putsym, ( winid win , int x , int y , CHAR_P sym )); #endif #define NUM_FUNCS 6 static void FDECL(macKeyNull, ( EventRecord * , WindowPtr )) ; static void FDECL(macKeyMessage, ( EventRecord * , WindowPtr )) ; static void FDECL(macKeyStatus, ( EventRecord * , WindowPtr )) ; static void FDECL(macKeyMap, ( EventRecord * , WindowPtr )) ; static void FDECL(macKeyMenu, ( EventRecord * , WindowPtr )) ; static void FDECL(macKeyText, ( EventRecord * , WindowPtr )) ; static void FDECL(macClickNull, ( EventRecord * , WindowPtr )) ; static void FDECL(macClickMessage, ( EventRecord * , WindowPtr )) ; static void FDECL(macClickStatus, ( EventRecord * , WindowPtr )) ; static void FDECL(macClickMap, ( EventRecord * , WindowPtr )) ; static void FDECL(macClickMenu, ( EventRecord * , WindowPtr )) ; static void FDECL(macClickText, ( EventRecord * , WindowPtr )) ; static void FDECL(macUpdateNull, ( EventRecord * , WindowPtr )) ; static void FDECL(macUpdateMessage, ( EventRecord * , WindowPtr )) ; static void FDECL(macUpdateStatus, ( EventRecord * , WindowPtr )) ; static void FDECL(macUpdateMap, ( EventRecord * , WindowPtr )) ; static void FDECL(macUpdateMenu, ( EventRecord * , WindowPtr )) ; static void FDECL(macUpdateText, ( EventRecord * , WindowPtr )) ; static void FDECL(macCursorNull, ( EventRecord * , WindowPtr , RgnHandle )) ; static void FDECL(macCursorMessage, ( EventRecord * , WindowPtr , RgnHandle )) ; static void FDECL(macCursorStatus, ( EventRecord * , WindowPtr , RgnHandle )) ; static void FDECL(macCursorMap, ( EventRecord * , WindowPtr , RgnHandle )) ; static void FDECL(macCursorMenu, ( EventRecord * , WindowPtr , RgnHandle )) ; static void FDECL(macCursorText, ( EventRecord * , WindowPtr , RgnHandle )) ; static void NDECL(UpdateMenus); static void FDECL(DoMenu, (long choise)); static void FDECL (DrawScrollbar, ( NhWindow * , WindowPtr )); static void FDECL (InvalScrollBar, ( NhWindow * )); static void FDECL(DrawMapCursor,(NhWindow *)); static void FDECL(DoScrollBar,(Point, short, ControlHandle, NhWindow *, WindowPtr)); static pascal void FDECL(Up, (ControlHandle, short)); static pascal void FDECL(Down,(ControlHandle, short)); typedef void ( * CbFunc ) ( EventRecord * , WindowPtr ) ; typedef void ( * CbCursFunc ) ( EventRecord * , WindowPtr , RgnHandle ) ; CbFunc winKeyFuncs [ NUM_FUNCS ] = { macKeyNull , macKeyMessage , macKeyStatus , macKeyMap , macKeyMenu , macKeyText } ; CbFunc winClickFuncs [ NUM_FUNCS ] = { macClickNull , macClickMessage , macClickStatus , macClickMap , macClickMenu , macClickText } ; CbFunc winUpdateFuncs [ NUM_FUNCS ] = { macUpdateNull , macUpdateMessage , macUpdateStatus , macUpdateMap , macUpdateMenu , macUpdateText } ; CbCursFunc winCursorFuncs [ NUM_FUNCS ] = { macCursorNull , macCursorMessage , macCursorStatus , macCursorMap , macCursorMenu , macCursorText } ; #ifdef applec extern void _DataInit(); /* This routine is part of the MPW runtime library. This external reference to it is done so that we can unload its segment, %A5Init, and recover c 250K of memory */ #endif void InitMac( void ) { int i ; long l ; #ifdef applec UnloadSeg((Ptr) _DataInit); #endif SetApplLimit ( ( void * ) ( ( ( long ) GetApplLimit() ) - 40 * 1024L ) ) ; MaxApplZone ( ) ; for ( i = 0 ; i < 5 ; i ++ ) MoreMasters ( ) ; InitGraf ( & qd . thePort ) ; InitFonts ( ) ; InitWindows ( ) ; InitMenus ( ) ; InitDialogs ( ( ResumeProcPtr ) 0L ) ; TEInit ( ) ; InitSegMgmt( itworked ); /* itworked is always in the main segment */ attemptingto("start up"); if ( Gestalt ( gestaltOSAttr , & l ) ) { macFlags . processes = 0 ; macFlags . tempMem = 0 ; } else { macFlags . processes = ( l & ( 1 << gestaltLaunchControl ) ) ? 1 : 0 ; macFlags . tempMem = ( l & ( 1 << gestaltRealTempMemory ) ) ? 1 : 0 ; } if ( Gestalt ( gestaltQuickdrawVersion , & l ) ) { macFlags . color = 0 ; } else { macFlags . color = ( l >= gestalt8BitQD ) ? 1 : 0 ; } if ( Gestalt ( gestaltFindFolderAttr , & l ) ) { macFlags . folders = 0 ; } else { macFlags . folders = ( l & ( 1 << gestaltFindFolderPresent ) ) ? 1 : 0 ; } if ( Gestalt ( gestaltHelpMgrAttr , & l ) ) { macFlags . help = 0 ; } else { macFlags . help = ( l & ( 1 << gestaltHelpMgrPresent ) ) ? 1 : 0 ; } if ( Gestalt ( gestaltFSAttr , & l ) ) { macFlags . fsSpec = 0 ; } else { macFlags . fsSpec = ( l & ( 1 << gestaltHasFSSpecCalls ) ) ? 1 : 0 ; } if ( Gestalt ( gestaltFontMgrAttr , & l ) ) { macFlags . trueType = 0 ; } else { macFlags . trueType = ( l & ( 1 << gestaltOutlineFonts ) ) ? 1 : 0 ; } if ( Gestalt ( gestaltAUXVersion , & l ) ) { macFlags . aux = 0 ; } else { macFlags . aux = ( l >= 0x200 ) ? 1 : 0 ; } if ( Gestalt ( gestaltAliasMgrAttr , & l ) ) { macFlags . alias = 0 ; } else { macFlags . alias = ( l & ( 1 << gestaltAliasMgrPresent ) ) ? 1 : 0 ; } if ( Gestalt ( gestaltStandardFileAttr , & l ) ) { macFlags . standardFile = 0 ; } else { macFlags . standardFile = ( l & ( 1 << gestaltStandardFile58 ) ) ? 1 : 0 ; } gMouseRgn = NewRgn ( ) ; } #define MAX_HEIGHT 200 #define MIN_HEIGHT 50 #define MIN_WIDTH 300 /* * This function could be overloaded with any amount of * intelligence... */ int SanePositions ( void ) { short mainTop , mainLeft , mainWidth , mainHeight ; short statTop , statLeft , statWidth , statHeight ; short mesgTop , mesgLeft , mesgWidth , mesgHeight ; short left , top , width , height ; short ix , numText = 0 , numMenu = 0 ; Rect screenArea ; WindowPtr theWindow ; NhWindow * nhWin ; screenArea = qd . thePort -> portBits . bounds ; OffsetRect ( & screenArea , - screenArea . left , - screenArea . top ) ; /* Map Window */ nhWin = theWindows + WIN_MAP ; theWindow = nhWin -> theWindow ; height = nhWin -> charHeight * NUM_ROWS ; width = nhWin -> charWidth * NUM_COLS ; if ( ! RetrievePosition ( kMapWindow , & top , & left ) ) { top = GetMBarHeight ( ) * 2 ; left = ( screenArea . right - width ) / 2 ; } mainTop = top ; mainLeft = left ; mainHeight = height ; mainWidth = width ; /* Status Window */ nhWin = theWindows + WIN_STATUS ; theWindow = nhWin -> theWindow ; height = nhWin -> charHeight * NUM_STAT_ROWS ; if ( ! RetrievePosition ( kStatusWindow , & top , & left ) ) { top = mainTop + mainHeight + 2 ; left = mainLeft ; } if ( top + height > screenArea . bottom ) { top = screenArea . bottom - height ; left += 20 ; /* Edge to the right so we can read it */ } statTop = top ; statLeft = left ; statHeight = height ; statWidth = width ; /* Message Window */ nhWin = theWindows + WIN_MESSAGE ; theWindow = nhWin -> theWindow ; if ( ! RetrievePosition ( kMessageWindow , & top , & left ) ) { top = statTop + statHeight + 20 ; left = statLeft ; } if ( ! RetrieveSize ( kMessageWindow , top , left , & height , & width ) ) { height = screenArea . bottom - top - 2 ; if ( height > MAX_HEIGHT ) { height = MAX_HEIGHT ; } else if ( height < MIN_HEIGHT ) { height = MIN_HEIGHT ; width = MIN_WIDTH ; left = screenArea . right - width ; top = screenArea . bottom - MIN_HEIGHT ; } } mesgTop = top ; mesgLeft = left ; mesgHeight = height ; mesgWidth = width ; /* Move these windows */ MoveWindow ( theWindows [ WIN_STATUS ] . theWindow , statLeft , statTop , 1 ) ; SizeWindow ( theWindows [ WIN_STATUS ] . theWindow , statWidth , statHeight , 1 ) ; MoveWindow ( theWindows [ WIN_MESSAGE ] . theWindow , mesgLeft , mesgTop , 1 ) ; SizeWindow ( theWindows [ WIN_MESSAGE ] . theWindow , mesgWidth , mesgHeight , 1 ) ; MoveWindow ( theWindows [ WIN_MAP ] . theWindow , mainLeft , mainTop , 1 ) ; SizeWindow ( theWindows [ WIN_MAP ] . theWindow , mainWidth , mainHeight , 1 ) ; /* Handle other windows */ for ( ix = 0 ; ix < NUM_MACWINDOWS ; ix ++ ) { if ( ix != WIN_STATUS && ix != WIN_MESSAGE && ix != WIN_MAP ) { if ( theWindow = theWindows [ ix ] . theWindow ) { if ( ( ( WindowPeek ) theWindow ) -> visible ) { if ( theWindows [ ix ] . kind == NHW_MENU ) { if ( ! RetrievePosition ( kMenuWindow , & top , & left ) ) { top = GetMBarHeight ( ) * 2 ; left = 2 ; } top += ( numMenu * GetMBarHeight ( ) ) ; while ( top > screenArea . bottom - MIN_HEIGHT ) { top -= ( screenArea . bottom - GetMBarHeight ( ) * 2 ) ; left += 20 ; } numMenu ++ ; MoveWindow ( theWindow , left , top , 1 ) ; } else { if ( ! RetrievePosition ( kTextWindow , & top , & left ) ) { top = GetMBarHeight ( ) * 2 ; left = screenArea . right - 3 ; } top += ( numText * GetMBarHeight ( ) ) ; while ( top > screenArea . bottom - MIN_HEIGHT ) { top -= ( screenArea . bottom - GetMBarHeight ( ) * 2 ) ; left -= 20 ; } numText ++ ; MoveWindow ( theWindow , left - ( theWindow -> portRect . right - theWindow -> portRect . left ) , top , 1 ) ; } } } } } InitCursor ( ) ; return 0 ; } winid mac_create_nhwindow ( int type ) { int i ; Rect siz ; NhWindow * aWin ; if ( type < NHW_BASE || type > NHW_TEXT ) { error ( "Invalid window type %d in create_nhwindow." , type ) ; return WIN_ERR ; } for ( i = 0 ; i < NUM_MACWINDOWS ; i ++ ) { if ( ! theWindows [ i ] . theWindow ) break ; } if ( i >= NUM_MACWINDOWS ) { for ( i = 0 ; i < NUM_MACWINDOWS ; i ++ ) { WindowPeek w = ( WindowPeek ) theWindows [ i ] . theWindow ; if ( w -> visible || i == WIN_INVEN || ( w -> windowKind != NHW_MENU && w -> windowKind != NHW_TEXT ) ) continue ; error ( "The window list is getting full, freeing unnecessary window (%d)..." , i ) ; destroy_nhwindow ( i ) ; goto got1 ; } error ( "Out of window ids in create_nhwindow ! (Max = %d)" , NUM_MACWINDOWS ) ; return WIN_ERR ; } got1 : aWin = & theWindows [ i ] ; aWin -> theWindow = GetNewWindow ( WIN_BASE_RES + type , ( WindowPtr ) 0L , ( WindowPtr ) -1L ) ; ( ( WindowPeek ) aWin -> theWindow ) -> windowKind = WIN_BASE_KIND + type ; aWin -> windowTextLen = 0L ; aWin -> textBase = 0L ; aWin -> clear = 0 ; /* Yes, we need to inval the area on a clear */ aWin -> scrollBar = (ControlHandle) NULL ; switch ( type ) { case NHW_MAP : if ( ! ( aWin -> windowText = NewHandle ( sizeof ( MapData ) ) ) ) { error ( "NewHandle failed in create_nhwindow (%ld bytes)" , ( long ) sizeof ( MapData ) ) ; DisposeWindow ( aWin -> theWindow ) ; aWin -> theWindow = (WindowPtr) NULL ; return WIN_ERR ; } break ; case NHW_STATUS : if ( ! ( aWin -> windowText = NewHandle ( sizeof ( StatusData ) ) ) ) { error ( "NewHandle failed in create_nhwindow (%ld bytes)" , ( long ) sizeof ( StatusData ) ) ; DisposeWindow ( aWin -> theWindow ) ; aWin -> theWindow = (WindowPtr) NULL ; return WIN_ERR ; } break ; default : if ( ! ( aWin -> windowText = NewHandle ( TEXT_BLOCK ) ) ) { error ( "NewHandle failed in create_nhwindow (%ld bytes)" , ( long ) TEXT_BLOCK ) ; DisposeWindow ( aWin -> theWindow ) ; aWin -> theWindow = (WindowPtr) NULL ; return WIN_ERR ; } break ; } clear_nhwindow ( i ) ; /*HARDCODED*/ SetPort ( aWin -> theWindow ) ; PenPat ( &qd . black ) ; switch ( type ) { case NHW_MAP : case NHW_STATUS : GetFNum ( "\pHackFont", & aWin -> fontNum ) ; aWin -> fontSize = flags.large_font ? 12 : 9 ; break ; case NHW_MESSAGE : GetFNum ( "\pPSHackFont", & aWin -> fontNum ) ; aWin -> fontSize = flags.large_font ? 12 : 9 ; break ; default: aWin -> fontNum = text_wind_font ; aWin -> fontSize = 9 ; } TextFont ( aWin -> fontNum ) ; TextSize ( aWin -> fontSize ) ; if (type == NHW_MESSAGE && !top_line) { const Rect out_of_scr = { 10000, 10000, 10100, 10100 }; TextFace(bold); top_line = TENew(&out_of_scr, &out_of_scr); TEActivate(top_line); TextFace(normal); } { FontInfo fi ; GetFontInfo ( & fi ) ; aWin -> leading = fi . leading / 2 + fi . descent ; aWin -> charHeight = fi . ascent + fi . descent + fi . leading ; aWin -> charWidth = fi . widMax ; } SetPt ( & ( theWindows [ i ] . cursor ) , 0 , 0 ) ; aWin -> kind = type ; aWin -> keyFunc = winKeyFuncs [ type ] ; aWin -> clickFunc = winClickFuncs [ type ] ; aWin -> updateFunc = winUpdateFuncs [ type ] ; aWin -> cursorFunc = winCursorFuncs [ type ] ; SetWRefCon ( aWin -> theWindow , ( long ) aWin ) ; SetRect ( & siz , 0 , 0 , aWin -> charWidth * NUM_COLS , aWin -> charHeight * NUM_ROWS ) ; switch ( type ) { case NHW_MAP : OffsetRect ( & siz , 50 , 50 ) ; break ; case NHW_BASE : OffsetRect ( & siz , 20 , 10 ) ; break ; default : siz = aWin -> theWindow -> portRect ; OffsetRect ( & siz , 30 + rn2 ( 20 ) , 250 + rn2 ( 50 ) ) ; break ; } SizeWindow ( aWin -> theWindow , siz . right - siz . left , siz . bottom - siz . top , FALSE ) ; MoveWindow ( aWin -> theWindow , siz . left , siz . top , FALSE ) ; if ( type == NHW_MENU || type == NHW_TEXT ) { Rect r = siz ; Boolean bool ; OffsetRect ( & r , - r . left , - r . top ) ; r . left = r . right - SBARWIDTH ; r . bottom -= SBARHEIGHT ; r . top -= 1 ; r . right += 1 ; bool = ( r . bottom > r . top + 50 ) ; aWin -> scrollBar = NewControl ( aWin -> theWindow , & r , (StringPtr)"" , bool , 0 , 0 , 0 , 16 , 0L ) ; } aWin -> scrollPos = 0 ; aWin -> cursorDrawn = 0 ; return i ; } void InitRes ( void ) { Str255 str ; mBar = GetNewMBar ( 128 ) ; mustwork(ResError()); SetMenuBar ( mBar ) ; appleMenu = GetMHandle ( 128 ) ; mustwork(ResError()); AppendMenu ( appleMenu , ( ConstStr255Param ) "\002(-" ) ; AddResMenu ( appleMenu , 'DRVR' ) ; fileMenu = GetMHandle ( 129 ) ; mustwork(ResError()); editMenu = GetMHandle ( 130 ) ; mustwork(ResError()); extendMenu = GetMHandle ( 131 ) ; mustwork(ResError()); miscMenu = GetMHandle ( 132 ) ; mustwork(ResError()); commandsMenu = GetMHandle ( 133 ) ; mustwork ( ResError ( ) ) ; thingsMenu = GetMHandle ( 134 ) ; mustwork ( ResError ( ) ) ; if ( macFlags . help ) { if ( HMGetHelpMenuHandle ( & helpMenu ) ) { helpMenu = (MenuHandle) NULL ; } } if ( helpMenu ) { GetIndString ( str , 128 , 1 ) ; AppendMenu ( helpMenu , str ) ; } else AppendMenu ( appleMenu , str ) ; DrawMenuBar ( ) ; return ; } void mac_init_nhwindows ( void ) { int i ; InitRes ( ) ; theWindows = ( NhWindow * ) NewPtr ( NUM_MACWINDOWS * sizeof ( NhWindow ) ) ; mustwork(MemError()); for ( i = 0 ; i < NUM_MACWINDOWS ; i ++ ) { theWindows [ i ] . theWindow = (WindowPtr) NULL ; } for ( i = 0 ; i < QUEUE_LEN ; i ++ ) { keyQueue [ i ] = 0 ; } BASE_WINDOW = create_nhwindow ( NHW_TEXT ) ; clear_nhwindow(BASE_WINDOW); putstr(BASE_WINDOW, 0, ""); putstr(BASE_WINDOW, 0, "NetHack, Copyright 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993"); putstr(BASE_WINDOW, 0, " By Stichting Mathematisch Centrum and M. Stephenson."); putstr(BASE_WINDOW, 0, " See license for details."); putstr(BASE_WINDOW, 0, " "); display_nhwindow(BASE_WINDOW, FALSE); flags . window_inited = 1 ; DimMenuBar ( ) ; } void mac_nhbell ( void ) { Handle h ; if ( h = GetNamedResource ( 'snd ' , "\PNetHack Bell" ) ) { HLock ( h ) ; SndPlay ( ( SndChannelPtr ) NULL , h , 0 ) ; ReleaseResource ( h ) ; } else { SysBeep ( 30 ) ; } } static void DrawScrollbar ( NhWindow * aWin , WindowPtr theWindow ) { Rect r2 = theWindow -> portRect ; Rect r = r2 ; Boolean vis ; short val ; if ( ! aWin -> scrollBar ) { return ; } r2 . left = r2 . right - SBARWIDTH ; r2 . bottom -= SBARHEIGHT ; r2 . right += 1 ; r2 . top -= 1 ; MoveControl ( aWin -> scrollBar , r2 . left , r2 . top ) ; SizeControl ( aWin -> scrollBar , r2 . right - r2 . left , r2 . bottom - r2 . top ) ; vis = ( r2 . bottom > r2 . top + 50 ) ; if ( vis && ! ( * aWin -> scrollBar ) -> contrlVis ) { ShowControl ( aWin -> scrollBar ) ; } else if ( ! vis && ( * aWin -> scrollBar ) -> contrlVis ) { HideControl ( aWin -> scrollBar ) ; } if ( aWin -> lin ) { short max = aWin -> lin - ( r . bottom - r . top ) / aWin -> charHeight ; if ( max < 0 ) max = 0 ; SetCtlMax ( aWin -> scrollBar , max ) ; if ( max ) HiliteControl ( aWin -> scrollBar , 0 ) ; else HiliteControl ( aWin -> scrollBar , 255 ) ; } else { HiliteControl ( aWin -> scrollBar , 255 ) ; } val = GetCtlValue ( aWin -> scrollBar ) ; if ( val != aWin -> scrollPos ) { InvalRect ( & ( theWindow -> portRect ) ) ; aWin -> scrollPos = val ; } if ( aWin == asyDSC ) { asyDSC = (NhWindow *) NULL ; } } static void InvalScrollBar ( NhWindow * aWin ) { if ( asyDSC && asyDSC != aWin ) { SetPort ( asyDSC -> theWindow ) ; DrawScrollbar ( asyDSC , asyDSC -> theWindow ) ; } asyDSC = aWin ; } void mac_clear_nhwindow ( winid win ) { long l ; register char * start , * stop ; WindowPtr theWindow ; NhWindow * aWin = & theWindows [ win ] ; if ( win < 0 || win >= NUM_MACWINDOWS ) { error ( "Invalid window %d in clear_nhwindow." , win ) ; return ; } if ( aWin -> clear ) return ; theWindow = aWin -> theWindow ; if ( ! theWindow ) { error ( "Unallocated window %d in clear_nhwindow." , win ) ; return ; } SetPort ( theWindow ) ; InvalRect ( & ( theWindow -> portRect ) ) ; switch ( ( ( WindowPeek ) theWindow ) -> windowKind - WIN_BASE_KIND ) { case NHW_MAP : stop = ( char * ) ( ( MapData * ) ( * aWin -> windowText ) ) -> map ; start = stop + NUM_COLS * NUM_ROWS ; while ( start > stop ) * -- start = CHAR_BLANK ; break ; case NHW_STATUS : stop = ( char * ) ( ( StatusData * ) ( * aWin -> windowText ) ) -> map ; start = stop + NUM_COLS * NUM_STAT_ROWS ; while ( start > stop ) * -- start = CHAR_BLANK ; break ; case NHW_MESSAGE : l = GetHandleSize ( aWin -> windowText ) ; if ( l > TEXT_BLOCK * 2 ) { BlockMove ( * aWin -> windowText + TEXT_BLOCK , * aWin -> windowText , l - TEXT_BLOCK ) ; SetHandleSize ( aWin -> windowText , l - TEXT_BLOCK ) ; aWin -> windowTextLen -= TEXT_BLOCK ; if ( aWin -> windowTextLen < 0 ) { aWin -> windowTextLen = 0 ; } } #if 1 aWin->textBase = aWin->windowTextLen; #else stop = * aWin -> windowText ; start = stop + aWin -> windowTextLen - 1 ; while ( -- start > stop ) { if ( * start == CHAR_CR || * start == CHAR_LF ) break ; } if ( start > stop ) { aWin -> textBase = start - stop + 1 ; } else { aWin -> textBase = 0L ; } #endif break ; default : SetHandleSize ( aWin -> windowText , TEXT_BLOCK ) ; aWin -> windowTextLen = 0L ; aWin -> lin = 0 ; aWin -> wid = 0 ; aWin -> scrollPos = 0 ; aWin -> textBase = 0L ; if ( aWin -> scrollBar ) { SetCtlMax ( aWin -> scrollBar , 0 ) ; InvalScrollBar ( aWin ) ; } break ; } SetPt ( & ( aWin -> cursor ) , 0 , 0 ) ; aWin -> clear = 1 ; aWin -> cursorDrawn = 0 ; } Boolean ClosingWindowChar(const int c) { return c == CHAR_ESC || c == CHAR_BLANK || c == CHAR_LF || c == CHAR_CR ; } #define BTN_IND 2 #define BTN_W 40 #define BTN_H (SBARHEIGHT-2) static void topl_resp_rect(int resp_idx, Rect *r) { r->left = (BTN_IND + BTN_W) * resp_idx + BTN_IND; r->right = r->left + BTN_W; r->bottom = theWindows[WIN_MESSAGE].theWindow->portRect.bottom - 1; r->top = r->bottom - BTN_H; } Boolean in_topl_mode(void) { return top_line && (*top_line)->viewRect.left < theWindows[WIN_MESSAGE].theWindow->portRect.right; } void enter_topl_mode(char *query) { if (!top_line || in_topl_mode()) Debugger(); (*top_line)->viewRect.left = 0; topl_query_len = strlen(query); (*top_line)->selStart = topl_query_len; (*top_line)->selEnd = topl_query_len; PtrToXHand(query, (*top_line)->hText, topl_query_len); TECalText(top_line); display_nhwindow(WIN_MESSAGE, FALSE); putstr(WIN_MESSAGE, ATR_BOLD, query); } void leave_topl_mode(char *answer) { int ans_len = (*top_line)->teLength - topl_query_len; NhWindow *aWin = theWindows + WIN_MESSAGE; char tmp[3] = " "; if (!in_topl_mode()) Debugger(); (*top_line)->viewRect.left += 10000; BlockMove(*(*top_line)->hText + topl_query_len, answer, ans_len); answer[ans_len] = '\0'; if ( aWin -> windowTextLen > 0 && ( * aWin -> windowText ) [ aWin -> windowTextLen - 1 ] == CHAR_CR ) { -- aWin -> windowTextLen ; -- aWin -> lin ; } if (strlen(answer) <= 1) { if (answer[0]) tmp[0] = answer[0]; putstr(WIN_MESSAGE, ATR_BOLD, tmp); } else putstr(WIN_MESSAGE, ATR_BOLD, answer); } /* * TESetSelect flushes out all the pending key strokes. I hate it. */ static void topl_set_select(short selStart, short selEnd) { TEDeactivate(top_line); (*top_line)->selStart = selStart; (*top_line)->selEnd = selEnd; TEActivate(top_line); } static void topl_replace(char *new_ans) { topl_set_select(topl_query_len, (*top_line)->teLength); TEDelete(top_line); TEInsert(new_ans, strlen(new_ans), top_line); } Boolean topl_key(unsigned char ch) { switch (ch) { case CHAR_ESC: topl_replace("\x1b"); return false; case CHAR_ENTER: case CHAR_CR: case CHAR_LF: return false; case 0x1f & 'P': nh_doprev_message(); return true; case '\x1e'/* up arrow */: topl_set_select(topl_query_len, topl_query_len); return true; case CHAR_BS: case '\x1c'/* left arrow */: if ((*top_line)->selEnd > topl_query_len) TEKey(ch, top_line); return true; default: TEKey(ch, top_line); return true; } } Boolean topl_ext_key(unsigned char ch) { switch (ch) { case CHAR_ESC: topl_replace("\x1b"); return false; case CHAR_ENTER: case CHAR_CR: case CHAR_LF: return false; case 0x1f & 'P': nh_doprev_message(); return true; case CHAR_BS: topl_replace(""); return true; default: { int com_index = -1, oindex = 0; TEInsert(&ch, 1, top_line); while(extcmdlist[oindex].ef_txt != NULL){ if(!strncmpi(*(*top_line)->hText + topl_query_len, extcmdlist[oindex].ef_txt, (*top_line)->teLength - topl_query_len)) if(com_index == -1) /* No matches yet*/ com_index = oindex; else /* More than 1 match */ com_index = -2; oindex++; } if(com_index >= 0) topl_replace(extcmdlist[com_index].ef_txt); return true; } } } void topl_flash_resp(int resp_idx) { long dont_care; Rect frame; SetPort(theWindows[WIN_MESSAGE].theWindow); topl_resp_rect(resp_idx, &frame); InsetRect(&frame, 1, 1); InvertRect(&frame); Delay(GetDblTime() / 2, &dont_care); InvertRect(&frame); } void topl_set_def(int new_def_idx) { Rect frame; SetPort(theWindows[WIN_MESSAGE].theWindow); topl_resp_rect(topl_def_idx, &frame); InvalRect(&frame); topl_def_idx = new_def_idx; topl_resp_rect(new_def_idx, &frame); InvalRect(&frame); } void topl_set_resp(char *resp, char def) { char *loc; Rect frame; int r_len, r_len1; if (!resp) { static char any_str[2] = { CHAR_ANY, '\0' }; resp = any_str; def = CHAR_ANY; } r_len1 = strlen(resp); r_len = strlen(topl_resp); if (r_len < r_len1) r_len = r_len1; topl_resp_rect(0, &frame); frame.right = (BTN_IND + BTN_W) * r_len; InvalRect(&frame); strcpy(topl_resp, resp); loc = strchr (resp, def); topl_def_idx = loc ? loc - resp : -1; } static char topl_resp_key(char ch) { if (strlen(topl_resp) > 0) { char *loc = strchr(topl_resp, ch); if (!loc) if (ch == '\x9'/* tab */) { topl_set_def(topl_def_idx <= 0 ? strlen(topl_resp)-1 : topl_def_idx-1); ch = '\0'; } else if (ch == CHAR_ESC) { loc = strchr(topl_resp, 'q'); if (!loc) { loc = strchr(topl_resp, 'n'); if (!loc && topl_def_idx >= 0) loc = topl_resp + topl_def_idx; } } else if (ch == (0x1f & 'P')) { nh_doprev_message(); ch = '\0'; } else if (topl_def_idx >= 0) { if ( ch == CHAR_ENTER || ch == CHAR_CR || ch == CHAR_LF || ch == CHAR_BLANK || topl_resp[topl_def_idx] == CHAR_ANY ) loc = topl_resp + topl_def_idx; else if (strchr(topl_resp, '#')) { if (digit(ch)) { topl_set_def(strchr(topl_resp, '#') - topl_resp); TEKey(ch, top_line); ch = '\0'; } else if (topl_resp[topl_def_idx] == '#') if (ch == '\x1e'/* up arrow */) { topl_set_select(topl_query_len, topl_query_len); ch = '\0'; } else if (ch == '\x1d'/* right arrow */ || ch == '\x1f'/* down arrow */ || (ch == CHAR_BS || ch == '\x1c'/* left arrow */) && (*top_line)->selEnd > topl_query_len) { TEKey(ch, top_line); ch = '\0'; } } } if (loc) { topl_flash_resp(loc - topl_resp); if (*loc != CHAR_ANY) ch = *loc; TEKey(ch, top_line); } } return ch; } /* * display/select/update the window. * If f is true, this window should be "modal" - don't return * until presumed seen. */ void mac_display_nhwindow ( winid win , BOOLEAN_P f ) { WindowPtr theWindow ; NhWindow * aWin = & theWindows [ win ] ; if ( win < 0 || win >= NUM_MACWINDOWS ) { error ( "Invalid window %d in display_nhwindow." , win ) ; return ; } theWindow = aWin -> theWindow ; if ( ! theWindow ) { error ( "Unallocated window %d in display_nhwindow." , win ) ; return ; } if ( f && inSelect == WIN_ERR && ( win == BASE_WINDOW || win == WIN_MESSAGE ) ) { if ( win == WIN_MESSAGE ) topl_set_resp ( NULL , 0 ) ; /* The following piece of code prevents the "-- More --" prompt to be on a new line by itself. I comment it out because the result looks ugly to me. */ #ifdef 0 if ( aWin -> windowTextLen > 0 && ( * aWin -> windowText ) [ aWin -> windowTextLen - 1 ] == CHAR_CR ) { -- aWin -> windowTextLen ; -- aWin -> lin ; } #endif putstr ( win , ATR_INVERSE , "-- More --" ) ; } if ( ! ( ( WindowPeek ) theWindow ) -> visible ) { const Rect scr_r = (*GetGrayRgn())->rgnBBox, win_ind = { 20, 2, 3, 3 }; const Point scr_sz = { scr_r.bottom - scr_r.top, scr_r.right - scr_r.left }, wp_sz = { theWindow->portRect.bottom - theWindow->portRect.top, theWindow->portRect.right - theWindow->portRect.left }; const short max_h = scr_sz.v - win_ind.top - win_ind.bottom, max_w = scr_sz.h - win_ind.left - win_ind.right; const char cr = CHAR_CR; long line_start = 0, line_end; short w = wp_sz.h, h = full_screen ? aWin->lin * aWin->charHeight : wp_sz.v; Point pos = { theWindow->portRect.top, theWindow->portRect.left }; SetPort(theWindow); LocalToGlobal(&pos); HLock(aWin->windowText); while (line_start < aWin->windowTextLen) { short line_w; line_end = Munger(aWin->windowText, line_start, &cr, 1, nil, 0); if (line_end < 0) line_end = aWin->windowTextLen; line_w = TextWidth(*aWin->windowText, line_start, line_end - line_start) + (SBARWIDTH + 2); if (w < line_w) w = line_w; line_start = line_end + 1; } HUnlock(aWin->windowText); if (h > max_h) h = max_h; if (w > max_w) w = max_w; SizeWindow(theWindow, w, h, FALSE); if ( ! ( ( WindowPeek ) theWindow ) -> visible ) { short top , left ; if ( ! RetrieveWinPos ( theWindow , & top , & left ) ) { if (pos.v + h + win_ind.bottom > scr_r.bottom) pos.v = scr_r.bottom - h - win_ind.bottom; if (pos.h + w + win_ind.right > scr_r.right) pos.h = scr_r.right - w - win_ind.right; top = pos . v ; left = pos . h ; } MoveWindow(theWindow, left, top, FALSE); } SelectWindow ( theWindow ) ; ShowWindow ( theWindow ) ; } SetPort ( theWindow ) ; if ( aWin -> scrollBar ) { InvalScrollBar ( aWin ) ; } if ( f && inSelect == WIN_ERR ) { int ch ; inSelect = win ; do { ch = nhgetch ( ) ; } while ( ! ClosingWindowChar ( ch ) ) ; inSelect = WIN_ERR ; if ( win == WIN_MESSAGE ) topl_set_resp ( "" , '\0' ) ; else HideWindow ( theWindow ) ; } else { wait_synch ( ) ; } } void mac_destroy_nhwindow ( winid win ) { WindowPtr theWindow ; NhWindow * aWin = & theWindows [ win ] ; int kind , visible ; if ( win < 0 || win >= NUM_MACWINDOWS ) { if ( flags . window_inited ) error ( "Invalid window number %d (Max %d) in destroy_nhwindow." , win , NUM_MACWINDOWS ) ; return ; } theWindow = aWin -> theWindow ; if ( ! theWindow ) { error ( "Not allocated window number %d in destroy_nhwindow." , win ) ; return ; } /* * Check special windows. * The base window should never go away. * The other "standard" windows should not go away * unless we've exitted nhwindows. */ if ( win == BASE_WINDOW ) { return ; } if ( win == WIN_INVEN || win == WIN_STATUS || win == WIN_MAP || win == WIN_MESSAGE ) { if ( flags . window_inited ) { if ( flags . tombstone && killer ) { /* Prepare for the coming of the tombstone window. */ mono_font ( ) ; full_screen = TRUE ; } return ; } } kind = ( ( WindowPeek ) theWindow ) -> windowKind - WIN_BASE_KIND ; visible = ( ( WindowPeek ) theWindow ) -> visible ; if ( ! visible || ( kind != NHW_MENU && kind != NHW_TEXT ) ) { DisposeWindow ( theWindow ) ; if ( aWin -> windowText ) { DisposHandle ( aWin -> windowText ) ; } aWin -> theWindow = (WindowPtr) NULL ; aWin -> windowText = (Handle) NULL ; } } void mac_number_pad ( int pad ) { macPad = pad ; } void trans_num_keys(EventRecord *theEvent) { if (macPad) { Handle h = GetResource('Nump', theEvent->modifiers & shiftKey ? 129 : 128); if (h) { short *ab = (short *)*h; int i = ab[0]; while (i) { if ((theEvent->message & keyCodeMask) == (ab[i] & keyCodeMask)) { theEvent->message = ab[i]; break; } --i; } } } } /* * Note; theWindow may very well be NULL here, since keyDown may call * it when theres no window !!! */ void GeneralKey ( EventRecord * theEvent , WindowPtr theWindow ) { int i ; trans_num_keys ( theEvent ) ; addToKeyQueue ( topl_resp_key ( theEvent -> message & 0xff ) , 1 ) ; } static void macKeyNull ( EventRecord * theEvent , WindowPtr theWindow ) { GeneralKey ( theEvent , theWindow ) ; } static void macKeyMessage ( EventRecord * theEvent , WindowPtr theWindow ) { GeneralKey ( theEvent , theWindow ) ; } static void macKeyStatus ( EventRecord * theEvent , WindowPtr theWindow ) { GeneralKey ( theEvent , theWindow ) ; } static void macKeyMap ( EventRecord * theEvent , WindowPtr theWindow ) { GeneralKey ( theEvent , theWindow ) ; } static void macKeyMenu ( EventRecord * theEvent , WindowPtr theWindow ) { if ( filter_scroll_key ( theEvent -> message & 0xff , ( NhWindow * ) GetWRefCon ( theWindow ) ) ) { GeneralKey ( theEvent , theWindow ) ; } } static void macKeyText ( EventRecord * theEvent , WindowPtr theWindow ) { char c = filter_scroll_key ( theEvent -> message & 0xff , ( NhWindow * ) GetWRefCon ( theWindow ) ) ; if ( c ) if ( inSelect == WIN_ERR && ClosingWindowChar ( c ) ) { HideWindow ( theWindow ) ; destroy_nhwindow ( ( NhWindow * ) GetWRefCon ( theWindow ) - theWindows ) ; } else { GeneralKey ( theEvent , theWindow ) ; } } static void macClickNull ( EventRecord * theEvent , WindowPtr theWindow ) { if ( ! theEvent || ! theWindow ) { Debugger ( ) ; } } static void macClickMessage ( EventRecord * theEvent , WindowPtr theWindow ) { int r_idx = 0; Point mouse = theEvent->where; GlobalToLocal(&mouse); while (topl_resp[r_idx]) { Rect frame; topl_resp_rect(r_idx, &frame); InsetRect(&frame, 1, 1); if (PtInRect(mouse, &frame)) { Boolean in_btn = true; InvertRect(&frame); while (WaitMouseUp()) { SystemTask(); GetMouse(&mouse); if (PtInRect(mouse, &frame) != in_btn) { in_btn = !in_btn; InvertRect(&frame); } } if (in_btn) { InvertRect(&frame); addToKeyQueue ( topl_resp [ r_idx ] , 1 ) ; } return; } ++r_idx; } } static void macClickStatus ( EventRecord * theEvent , WindowPtr theWindow ) { if ( ! theEvent || ! theWindow ) { Debugger ( ) ; } } static void macClickMap ( EventRecord * theEvent , WindowPtr theWindow ) { if ( ! theEvent || ! theWindow ) { Debugger ( ) ; } { NhWindow * nhw = ( NhWindow * ) GetWRefCon ( theWindow ) ; Point where ; short posX , posY ; short sector ; char theDirectionChar [ 18 ] = { ' ' , 'k' , 'u' , 'l' , 'n' , 'j' , 'b' , 'h' , 'y' , 'o' , 'K' , 'U' , 'L' , 'N' , 'J' , 'B' , 'H' , 'Y' , } ; where = theEvent -> where ; GlobalToLocal ( & where ) ; posX = where . h / nhw -> charWidth ; posY = where . v / nhw -> charHeight ; /* 0 is ON, 1 is top, then clockwise */ sector = clickSector ( u . ux , u . uy , posX , posY ) ; if ( theEvent -> modifiers & shiftKey ) { sector += 9 ; } addToKeyQueue ( theDirectionChar [ sector ] , 0 ) ; gClickedToMove = 1 ; } } static amtToScroll = 0 ; static NhWindow * winToScroll = (NhWindow *) NULL ; static pascal void Up ( ControlHandle theBar , short part ) { EventRecord fake ; short now = GetCtlValue ( theBar ) ; short min = GetCtlMin ( theBar ) ; Rect r ; RgnHandle rgn = NewRgn ( ) ; if ( ! part ) { return ; } if ( now - min < amtToScroll ) { amtToScroll = now - min ; } if ( ! amtToScroll ) { return ; } SetCtlValue ( theBar , now - amtToScroll ) ; winToScroll -> scrollPos = now - amtToScroll ; r = winToScroll -> theWindow -> portRect ; r . right -= 15 ; ScrollRect ( & r , 0 , amtToScroll * winToScroll -> charHeight , rgn ) ; if ( rgn ) { InvalRgn ( rgn ) ; r . top = r . bottom - 16 ; r . left = r . right ; r . right += 15 ; InvalRect ( & r ) ; BeginUpdate ( winToScroll -> theWindow ) ; } winToScroll -> updateFunc ( & fake , winToScroll -> theWindow ) ; if ( rgn ) { EndUpdate ( winToScroll -> theWindow ) ; DisposeRgn ( rgn ) ; } } static pascal void Down ( ControlHandle theBar , short part ) { EventRecord fake ; short now = GetCtlValue ( theBar ) ; short max = GetCtlMax ( theBar ) ; Rect r ; RgnHandle rgn = NewRgn ( ) ; if ( ! part ) { return ; } if ( max - now < amtToScroll ) { amtToScroll = max - now ; } if ( ! amtToScroll ) { return ; } SetCtlValue ( theBar , now + amtToScroll ) ; winToScroll -> scrollPos = now + amtToScroll ; r = winToScroll -> theWindow -> portRect ; r . right -= 15 ; ScrollRect ( & r , 0 , - amtToScroll * winToScroll -> charHeight , rgn ) ; if ( rgn ) { InvalRgn ( rgn ) ; r . top = r . bottom - 16 ; r . left = r . right ; r . right += 15 ; InvalRect ( & r ) ; BeginUpdate ( winToScroll -> theWindow ) ; } winToScroll -> updateFunc ( & fake , winToScroll -> theWindow ) ; if ( rgn ) { EndUpdate ( winToScroll -> theWindow ) ; DisposeRgn ( rgn ) ; } } static void DoScrollBar ( Point p , short code , ControlHandle theBar , NhWindow * aWin , WindowPtr theWindow ) { pascal void ( * func ) ( ControlHandle , short ) = 0 ; winToScroll = aWin ; switch ( code ) { case inUpButton : func = Up ; amtToScroll = 1 ; break ; case inDownButton : func = Down ; amtToScroll = 1 ; break ; case inPageUp : func = Up ; amtToScroll = ( theWindow -> portRect . bottom - theWindow -> portRect . top ) / aWin -> charHeight ; break ; case inPageDown : func = Down ; amtToScroll = ( theWindow -> portRect . bottom - theWindow -> portRect . top ) / aWin -> charHeight ; break ; default : break ; } ( void ) TrackControl ( theBar , p , ( ProcPtr ) func ); if ( ! func ) { if ( aWin -> scrollPos != GetCtlValue ( theBar ) ) { aWin -> scrollPos = GetCtlValue ( theBar ) ; InvalRect ( & ( theWindow -> portRect ) ) ; } } } int filter_scroll_key(const int ch, NhWindow *aWin) { if (aWin->scrollBar && GetCtlValue(aWin->scrollBar) < GetCtlMax(aWin->scrollBar)) { winToScroll = aWin; SetPort(aWin->theWindow); if (ch == CHAR_BLANK) { amtToScroll = ( aWin->theWindow->portRect.bottom - aWin->theWindow->portRect.top ) / aWin->charHeight; Down(aWin->scrollBar, inPageDown); return 0; } if (ch == CHAR_CR || ch == CHAR_LF) { amtToScroll = 1; Down(aWin->scrollBar, inDownButton); return 0; } } return ch; } static void macClickMenu ( EventRecord * theEvent , WindowPtr theWindow ) { Point p ; short hiRow = -1 , loRow = -1 ; Rect r ; NhWindow * aWin = ( NhWindow * ) GetWRefCon ( theWindow ) ; r = theWindow -> portRect ; if ( aWin -> scrollBar && ( * aWin -> scrollBar ) -> contrlVis ) { short code ; Point p = theEvent -> where ; ControlHandle theBar ; r . right -= SBARWIDTH ; GlobalToLocal ( & p ) ; code = FindControl ( p , theWindow , & theBar ) ; if ( code ) { DoScrollBar ( p , code , theBar , aWin , theWindow ) ; return ; } if ( p . h >= r . right ) return ; } r . top = r . bottom = 0 ; if ( inSelect != WIN_ERR ) { do { SystemTask ( ) ; GetMouse ( & p ) ; if ( p . h < theWindow -> portRect . left || p . h > theWindow -> portRect . right || p . v < 0 || p . v > theWindow -> portRect . bottom ) { hiRow = -1 ; } else { hiRow = p . v / aWin -> charHeight ; if ( hiRow >= aWin -> lin ) hiRow = -1 ; } if ( hiRow != loRow ) { if ( loRow > -1 && aWin -> itemChars [ loRow + aWin -> scrollPos ] ) { r . top = loRow * aWin -> charHeight ; r . bottom = ( loRow + 1 ) * aWin -> charHeight ; InvertRect ( & r ) ; } loRow = hiRow ; if ( loRow > -1 && aWin -> itemChars [ loRow + aWin -> scrollPos ] ) { r . top = loRow * aWin -> charHeight ; r . bottom = ( loRow + 1 ) * aWin -> charHeight ; InvertRect ( & r ) ; } } } while ( StillDown ( ) ) ; if ( loRow > -1 && aWin -> itemChars [ loRow + aWin -> scrollPos ] ) { InvertRect ( & r ) ; addToKeyQueue ( aWin -> itemChars [ loRow + aWin -> scrollPos ] , 1 ) ; } } } static void macClickText ( EventRecord * theEvent , WindowPtr theWindow ) { short hiRow = -1 , loRow = -1 ; Rect r ; NhWindow * aWin = ( NhWindow * ) GetWRefCon ( theWindow ) ; r = theWindow -> portRect ; if ( aWin -> scrollBar && ( * aWin -> scrollBar ) -> contrlVis ) { short code ; Point p = theEvent -> where ; ControlHandle theBar ; r . right -= SBARWIDTH ; GlobalToLocal ( & p ) ; code = FindControl ( p , theWindow , & theBar ) ; if ( code ) { DoScrollBar ( p , code , theBar , aWin , theWindow ) ; return ; } } } static void macUpdateNull ( EventRecord * theEvent , WindowPtr theWindow ) { if ( ! theEvent || ! theWindow ) { Debugger ( ) ; } } static void draw_growicon_vert_only(WindowPtr wind) { GrafPtr org_port; RgnHandle org_clip = NewRgn(); Rect r = wind->portRect; r.left = r.right - SBARWIDTH; GetPort(&org_port); SetPort(wind); GetClip(org_clip); ClipRect(&r); DrawGrowIcon(wind); SetClip(org_clip); DisposeRgn(org_clip); SetPort(org_port); } static void macUpdateMessage ( EventRecord * theEvent , WindowPtr theWindow ) { RgnHandle org_clip = NewRgn(), clip = NewRgn(); Rect r = theWindow -> portRect ; NhWindow * aWin = ( NhWindow * ) GetWRefCon ( theWindow ) ; int l ; if ( ! theEvent ) { Debugger ( ) ; } GetClip(org_clip); DrawGrowIcon(theWindow); l = 0; while (topl_resp[l]) { StringPtr name; unsigned char tmp[2]; FontInfo font; Rect frame; topl_resp_rect(l, &frame); switch (topl_resp[l]) { case 'y': name = "\pyes"; break; case 'n': name = "\pno"; break; case 'N': name = "\pNone"; break; case 'a': name = "\pall"; break; case 'q': name = "\pquit"; break; case CHAR_ANY: name = "\pany key"; break; default: tmp[0] = 1; tmp[1] = topl_resp[l]; name = &tmp; break; } TextFont(geneva); TextSize(9); GetFontInfo(&font); MoveTo((frame.left + frame.right - StringWidth(name)) / 2, (frame.top + frame.bottom + font.ascent-font.descent-font.leading-1) / 2); DrawString(name); PenNormal(); if (l == topl_def_idx) PenSize(2, 2); FrameRoundRect(&frame, 4, 4); ++l; } r . right -= SBARWIDTH + 2; r . bottom -= SBARHEIGHT + 1; /* Clip to the portrect - scrollbar/growicon *before* adjusting the rect to be larger than the size of the window (!) */ RectRgn(clip, &r); if ( r . right < MIN_RIGHT ) r . right = MIN_RIGHT ; if (in_topl_mode()) { RgnHandle topl_rgn = NewRgn(); Rect topl_r = r; for (l = aWin->windowTextLen - 1; --l >= aWin->textBase; ) if ((*aWin->windowText)[l] == CHAR_CR) topl_r.top += aWin->charHeight; l = (*top_line)->destRect.right - (*top_line)->destRect.left; (*top_line)->viewRect = topl_r; (*top_line)->destRect = topl_r; if (l != topl_r.right - topl_r.left) TECalText(top_line); TEUpdate(&topl_r, top_line); RectRgn(topl_rgn, &topl_r); DiffRgn(clip, topl_rgn, clip); DisposeRgn(topl_rgn); } SectRgn(clip, org_clip, clip); SetClip(clip); DisposeRgn(clip); TextFont ( aWin -> fontNum ) ; TextSize ( aWin -> fontSize ) ; HLock ( aWin -> windowText ) ; TextBox ( * ( aWin -> windowText ) + aWin -> textBase , aWin -> windowTextLen - aWin -> textBase , & r , teJustLeft ) ; HUnlock ( aWin -> windowText ) ; SetClip(org_clip); DisposeRgn(org_clip); } static void macUpdateStatus ( EventRecord * theEvent , WindowPtr theWindow ) { NhWindow * nhw = ( NhWindow * ) GetWRefCon ( theWindow ) ; int height = nhw -> charHeight ; int leading = nhw -> leading ; int i ; if ( ! theEvent ) { Debugger ( ) ; } TextFont ( nhw -> fontNum ) ; TextSize ( nhw -> fontSize ) ; HLock ( nhw -> windowText ) ; for ( i = 0 ; i < NUM_STAT_ROWS ; i ++ ) { MoveTo ( 0 , ( i + 1 ) * height - leading ) ; DrawText ( ( ( StatusData * ) ( * nhw -> windowText ) ) -> map [ i ] , 0 , NUM_COLS ) ; } HUnlock ( nhw -> windowText ) ; } static void DrawMapCursor ( NhWindow * nhw ) { Rect r ; /* * We only want a cursor in the map * window... */ if ( ! WIN_MAP || nhw - theWindows != WIN_MAP ) return ; r . left = nhw -> cursor . h * nhw -> charWidth ; r . right = ( nhw -> cursor . h + 1 ) * nhw -> charWidth ; r . top = nhw -> cursor . v * nhw -> charHeight ; r . bottom = ( nhw -> cursor . v + 1 ) * nhw -> charHeight ; InvertRect ( & r ) ; nhw -> cursorDrawn = 1 ; } static void macUpdateMap ( EventRecord * theEvent , WindowPtr theWindow ) { NhWindow * nhw = ( NhWindow * ) GetWRefCon ( theWindow ) ; int height = nhw -> charHeight ; int leading = nhw -> leading ; int i ; if ( ! theEvent ) { Debugger ( ) ; } TextFont ( nhw -> fontNum ) ; TextSize ( nhw -> fontSize ) ; HLock ( nhw -> windowText ) ; for ( i = 0 ; i < NUM_ROWS ; i ++ ) { MoveTo ( 0 , ( i + 1 ) * height - leading ) ; DrawText ( ( ( MapData * ) ( * nhw -> windowText ) ) -> map [ i ] , 0 , NUM_COLS ) ; } HUnlock ( nhw -> windowText ) ; if ( nhw -> cursorDrawn ) { DrawMapCursor ( nhw ) ; } } static void macUpdateMenu ( EventRecord * theEvent , WindowPtr theWindow ) { Rect r = theWindow -> portRect ; Rect r2 = r ; NhWindow * aWin = ( NhWindow * ) GetWRefCon ( theWindow ) ; RgnHandle h ; Boolean vis ; if ( ! theEvent ) { Debugger ( ) ; } draw_growicon_vert_only(theWindow); r2 . left = r2 . right - SBARWIDTH ; r2 . right += 1 ; r2 . top -= 1 ; vis = ( r2 . bottom > r2 . top + 50 ) ; DrawControls ( theWindow ) ; h = (RgnHandle) NULL ; if ( vis && ( h = NewRgn ( ) ) ) { RgnHandle tmp = NewRgn ( ) ; if ( ! tmp ) { DisposeRgn ( h ) ; h = (RgnHandle) NULL ; } else { GetClip ( h ) ; RectRgn ( tmp , & r2 ) ; DiffRgn ( h , tmp , tmp ) ; SetClip ( tmp ) ; DisposeRgn ( tmp ) ; } } if ( r . right < MIN_RIGHT ) r . right = MIN_RIGHT ; r . top -= aWin -> scrollPos * aWin -> charHeight ; HLock ( aWin -> windowText ) ; TextBox ( * ( aWin -> windowText ) + aWin -> textBase , aWin -> windowTextLen - aWin -> textBase , & r , teJustLeft ) ; HUnlock ( aWin -> windowText ) ; if ( h ) { SetClip ( h ) ; DisposeRgn ( h ) ; } } static void macUpdateText ( EventRecord * theEvent , WindowPtr theWindow ) { Rect r = theWindow -> portRect ; Rect r2 = r ; NhWindow * aWin = ( NhWindow * ) GetWRefCon ( theWindow ) ; RgnHandle h ; Boolean vis ; if ( ! theEvent ) { Debugger ( ) ; } r2 . left = r2 . right - SBARWIDTH ; r2 . right += 1 ; r2 . top -= 1 ; vis = ( r2 . bottom > r2 . top + 50 ) ; DrawControls ( theWindow ) ; h = (RgnHandle) NULL ; if ( vis && ( h = NewRgn ( ) ) ) { RgnHandle tmp = NewRgn ( ) ; if ( ! tmp ) { DisposeRgn ( h ) ; h = (RgnHandle) NULL ; } else { GetClip ( h ) ; RectRgn ( tmp , & r2 ) ; DiffRgn ( h , tmp , tmp ) ; SetClip ( tmp ) ; DisposeRgn ( tmp ) ; } } if ( r . right < MIN_RIGHT ) r . right = MIN_RIGHT ; r . top -= aWin -> scrollPos * aWin -> charHeight ; r . right -= SBARWIDTH; HLock ( aWin -> windowText ) ; TextBox ( * ( aWin -> windowText ) + aWin -> textBase , aWin -> windowTextLen - aWin -> textBase , & r , teJustLeft ) ; HUnlock ( aWin -> windowText ) ; draw_growicon_vert_only(theWindow); if ( h ) { SetClip ( h ) ; DisposeRgn ( h ) ; } } static void macCursorNull ( EventRecord * theEvent , WindowPtr theWindow , RgnHandle mouseRgn ) { Rect r = { -1 , -1 , 2 , 2 } ; InitCursor ( ) ; OffsetRect ( & r , theEvent -> where . h , theEvent -> where . v ) ; RectRgn ( mouseRgn , & r ) ; } static void macCursorMessage ( EventRecord * theEvent , WindowPtr theWindow , RgnHandle mouseRgn ) { Rect r = { -1 , -1 , 2 , 2 } ; InitCursor ( ) ; OffsetRect ( & r , theEvent -> where . h , theEvent -> where . v ) ; RectRgn ( mouseRgn , & r ) ; } static void macCursorStatus ( EventRecord * theEvent , WindowPtr theWindow , RgnHandle mouseRgn ) { Rect r = { -1 , -1 , 2 , 2 } ; InitCursor ( ) ; OffsetRect ( & r , theEvent -> where . h , theEvent -> where . v ) ; RectRgn ( mouseRgn , & r ) ; } static void macCursorMap ( EventRecord * theEvent , WindowPtr theWindow , RgnHandle mouseRgn ) { Point where ; CursHandle ch ; GrafPtr gp ; NhWindow * nhw = ( NhWindow * ) GetWRefCon ( theWindow ) ; Rect r = { 0 , 0 , 1 , 1 } ; GetPort ( & gp ) ; SetPort ( theWindow ) ; where = theEvent -> where ; GlobalToLocal ( & where ) ; ch = GetCursor ( 512 + clickSector ( u . ux , u . uy , where . h / nhw -> charWidth , where . v / nhw -> charHeight ) ) ; if ( ch ) { HLock ( ( Handle ) ch ) ; SetCursor ( * ch ) ; ReleaseResource ( ( Handle ) ch ) ; } else { InitCursor ( ) ; } OffsetRect ( & r , theEvent -> where . h , theEvent -> where . v ) ; RectRgn ( mouseRgn , & r ) ; SetPort ( gp ) ; } static void macCursorMenu ( EventRecord * theEvent , WindowPtr theWindow , RgnHandle mouseRgn ) { Rect r = { -1 , -1 , 2 , 2 } ; InitCursor ( ) ; OffsetRect ( & r , theEvent -> where . h , theEvent -> where . v ) ; RectRgn ( mouseRgn , & r ) ; } static void macCursorText ( EventRecord * theEvent , WindowPtr theWindow , RgnHandle mouseRgn ) { Rect r = { -1 , -1 , 2 , 2 } ; InitCursor ( ) ; OffsetRect ( & r , theEvent -> where . h , theEvent -> where . v ) ; RectRgn ( mouseRgn , & r ) ; } void UpdateMenus ( void ) { WindowPeek w = ( WindowPeek ) FrontWindow ( ) ; Boolean enable = FALSE ; int i ; /* All menu items are OK, except the "edit" menu */ if ( w && w -> windowKind < 0 ) { enable = TRUE ; } for ( i = 1 ; i < 7 ; i ++ ) { if ( i == 2 ) continue ; if ( enable ) { EnableItem ( editMenu , i ) ; } else { DisableItem ( editMenu , i ) ; } } } void DoMenu ( long choise ) { WindowPeek w = ( WindowPeek ) FrontWindow ( ) ; short menu = choise >> 16 ; short item = choise & 0xffff ; int i ; Str255 str ; HiliteMenu ( menu ) ; if ( menu == kHMHelpMenuID ) { menu = 128 ; item = 2 ; } if ( menu == 128 && item > 2 ) /* apple, DA */ { GetItem ( appleMenu , item , str ) ; OpenDeskAcc ( str ) ; } else if ( menu == 130 ) /* edit */ { SystemEdit ( item - 1 ) ; } else { GetIndString ( str , menu + 1 , item ) ; if ( str [ 0 ] > QUEUE_LEN ) { error ( "Too long command : menul %d item %d" , menu , item ) ; str [ 0 ] = QUEUE_LEN ; } for ( i = 1 ; i <= str [ 0 ] ; i ++ ) { addToKeyQueue ( str [ i ] , 0 ) ; } } HiliteMenu ( 0 ) ; } void HandleKey ( EventRecord * theEvent ) { WindowPtr theWindow = FrontWindow ( ) ; if ( theEvent -> modifiers & cmdKey ) { if ( theEvent -> message & 0xff == '.' ) { int i ; /* Flush key queue */ for ( i = 0 ; i < QUEUE_LEN ; i ++ ) { keyQueue [ i ] = 0 ; } theEvent -> message = '\033' ; goto dispatchKey ; } else { UpdateMenus ( ) ; DoMenu ( MenuKey ( theEvent -> message & 0xff ) ) ; } } else { dispatchKey : if ( theWindow ) { ( ( NhWindow * ) GetWRefCon ( theWindow ) ) -> keyFunc ( theEvent , theWindow ) ; } else { GeneralKey ( theEvent , (WindowPtr) NULL ) ; } } } void HandleClick ( EventRecord * theEvent ) { int code ; unsigned long l ; WindowPtr theWindow ; Rect r = ( * GetGrayRgn ( ) ) -> rgnBBox ; NhWindow * aWin ; InsetRect ( & r , 4 , 4 ) ; code = FindWindow ( theEvent -> where , & theWindow ) ; aWin = ( NhWindow * ) GetWRefCon ( theWindow ) ; if ( code != inContent ) { InitCursor ( ) ; } else { aWin -> cursorFunc ( theEvent , theWindow , gMouseRgn ) ; /* Correct direction */ } switch ( code ) { case inContent : if ( inSelect == WIN_ERR || aWin - theWindows == inSelect ) { SelectWindow ( theWindow ) ; SetPort ( theWindow ) ; ( ( NhWindow * ) GetWRefCon ( theWindow ) ) -> clickFunc ( theEvent , theWindow ) ; } else { nhbell ( ) ; } break ; case inDrag : if ( inSelect == WIN_ERR || aWin - theWindows == inSelect ) { InitCursor ( ) ; DragWindow ( theWindow , theEvent -> where , & r ) ; SaveWindowPos ( theWindow ) ; } else { nhbell ( ) ; } break ; case inGrow : if ( inSelect == WIN_ERR || aWin - theWindows == inSelect ) { InitCursor ( ) ; SetRect ( & r , 80 , 2 * aWin -> charHeight + 1 , r . right , r . bottom ) ; l = GrowWindow ( theWindow , theEvent -> where , & r ) ; SizeWindow ( theWindow , l & 0xffff , l >> 16 , FALSE ) ; SaveWindowSize ( theWindow ) ; SetPort ( theWindow ) ; InvalRect ( & ( theWindow -> portRect ) ) ; if ( aWin -> scrollBar ) { InvalScrollBar ( aWin ) ; } } else { nhbell ( ) ; } break ; case inGoAway : if ( TrackGoAway ( theWindow , theEvent -> where ) ) { if ( aWin - theWindows == BASE_WINDOW && ! flags . window_inited ) { addToKeyQueue ( '\033' , 1 ) ; break ; } else { HideWindow ( theWindow ) ; } if ( inSelect == WIN_ERR || aWin - theWindows != inSelect ) { destroy_nhwindow ( aWin - theWindows ) ; } else { addToKeyQueue ( '\033' , 1 ) ; } } break ; case inMenuBar : UpdateMenus ( ) ; DoMenu ( MenuSelect ( theEvent -> where ) ) ; break ; case inSysWindow : SystemClick( theEvent, theWindow ) ; break ; default : break ; } } void HandleUpdate ( EventRecord * theEvent ) { WindowPtr theWindow = ( WindowPtr ) theEvent -> message ; BeginUpdate ( theWindow ) ; SetPort ( theWindow ) ; EraseRect ( & ( theWindow -> portRect ) ) ; ( ( NhWindow * ) GetWRefCon ( theWindow ) ) -> updateFunc ( theEvent , theWindow ) ; EndUpdate ( theWindow ) ; } static void DoOsEvt ( EventRecord * theEvent ) { WindowPtr wp ; short code ; if ( ( theEvent -> message & 0xff000000 ) == 0xfa000000 ) { /* Mouse Moved */ code = FindWindow ( theEvent -> where , & wp ) ; if ( code != inContent ) { Rect r = { -1 , -1 , 2 , 2 } ; InitCursor ( ) ; OffsetRect ( & r , theEvent -> where . h , theEvent -> where . v ) ; RectRgn ( gMouseRgn , & r ) ; } else { NhWindow * nhw = ( ( NhWindow * ) GetWRefCon ( wp ) ) ; if ( nhw ) { nhw -> cursorFunc ( theEvent , wp , gMouseRgn ) ; } } } else { /* Suspend/resume */ } } void HandleEvent ( EventRecord * theEvent ) { switch ( theEvent -> what ) { case autoKey : case keyDown : HandleKey ( theEvent ) ; break ; case updateEvt : HandleUpdate ( theEvent ) ; break ; case mouseDown : HandleClick ( theEvent ) ; break ; case diskEvt : if ( ( theEvent -> message & 0xffff0000 ) != 0 ) { Point p = { 150 , 150 } ; ( void ) DIBadMount ( p , theEvent -> message ) ; } break ; case osEvt : DoOsEvt ( theEvent ) ; break ; default : if ( multi < 0 ) { // Get frozen, so stop repeating int ix; for ( ix = 0 ; ix < QUEUE_LEN ; ix ++ ) { keyQueue [ ix ] = 0 ; } FlushEvents ( keyDownMask , 0 ) ; } /* * This somewhat elaborate hack is needed to make the menu * commands work right. They're also needed for fast typists. */ if ( keyQueue [ 0 ] && in_topl_mode() ) { int i ; theEvent -> what = keyDown ; theEvent -> modifiers = 0 ; theEvent -> message = keyQueue [ 0 ] ; /* extract from key queue */ for ( i = 0 ; i < QUEUE_LEN - 1 ; i ++ ) { keyQueue [ i ] = keyQueue [ i + 1 ] ; } keyQueue [ i ] = 0 ; SetPort ( theWindows [ WIN_MESSAGE ] . theWindow ) ; theWindows [ WIN_MESSAGE ] . keyFunc ( theEvent , theWindows [ WIN_MESSAGE ] . theWindow ) ; } break ; } } long doDawdle = 0L ; void DimMenuBar ( void ) { DisableItem ( appleMenu , 0 ) ; DisableItem ( fileMenu , 0 ) ; DisableItem ( editMenu , 0 ) ; DisableItem ( extendMenu , 0 ) ; DisableItem ( miscMenu , 0 ) ; DisableItem ( commandsMenu , 0 ) ; DisableItem ( thingsMenu , 0 ) ; DrawMenuBar ( ) ; } void UndimMenuBar ( void ) { EnableItem ( appleMenu , 0 ) ; EnableItem ( fileMenu , 0 ) ; EnableItem ( editMenu , 0 ) ; EnableItem ( extendMenu , 0 ) ; EnableItem ( miscMenu , 0 ) ; EnableItem ( commandsMenu , 0 ) ; EnableItem ( thingsMenu , 0 ) ; DrawMenuBar ( ) ; } static int mBarDimmed = 0 ; void mac_get_nh_event( void ) { EventRecord anEvent ; if ( ( inSelect != WIN_ERR || ! flags . window_inited || in_topl_mode() ) && ! mBarDimmed ) { DimMenuBar ( ) ; mBarDimmed = 1 ; } else if ( inSelect == WIN_ERR && flags . window_inited && mBarDimmed && ! in_topl_mode() ) { UndimMenuBar ( ) ; mBarDimmed = 0 ; } /* * We want to take care of keys in the buffer as fast as * possible */ if ( keyQueue [ 0 ] ) { doDawdle = 0L ; } if ( asyDSC ) { SetPort ( asyDSC -> theWindow ) ; DrawScrollbar ( asyDSC , asyDSC -> theWindow ) ; } if ( ! WaitNextEvent ( -1 , & anEvent , doDawdle , gMouseRgn ) ) { anEvent . what = nullEvent ; } doDawdle = 0L ; HandleEvent ( & anEvent ) ; if (top_line && theWindows) { WindowPeek win = (WindowPeek)theWindows[WIN_MESSAGE].theWindow; if (win && win->visible) TEIdle(top_line); } } int mac_nhgetch( void ) { int ch ; register int i ; wait_synch ( ) ; if ( flags . window_inited && ! theWindows [ WIN_MAP ] . cursorDrawn && theWindows [ WIN_MAP ] . theWindow ) { SetPort ( theWindows [ WIN_MAP ] . theWindow ) ; DrawMapCursor ( & theWindows [ WIN_MAP ] ) ; } if ( ! keyQueue [ 0 ] ) { long total , contig ; static char warn = 0 ; PurgeSpace ( & total , & contig ) ; if ( contig < 64000L || total < 256000L ) { if ( ! warn ) { DebugStr ( ( ConstStr255Param ) "\014Low Memory !" ) ; warn = 1 ; } } else { warn = 0 ; } } do { doDawdle = ( in_topl_mode() ? GetCaretTime ( ) : 120L ) ; get_nh_event ( ) ; ch = keyQueue [ 0 ] ; } while ( ! ch ) ; if ( ! gClickedToMove ) { ObscureCursor ( ) ; } else { gClickedToMove = 0 ; } for ( i = 0 ; i < QUEUE_LEN - 1 ; i ++ ) { keyQueue [ i ] = keyQueue [ i + 1 ] ; } keyQueue [ i ] = 0 ; #ifdef MAC_THINKC5 if (ch == '\r') ch = '\n'; #endif return ch ; } void mac_delay_output( void ) { long destTicks = TickCount ( ) + 1 ; while ( TickCount ( ) < destTicks ) { wait_synch ( ) ; } } void mac_wait_synch( void ) { get_nh_event ( ) ; } void mac_mark_synch( void ) { get_nh_event ( ) ; } void mac_cliparound ( int x , int y ) { /* TODO */ if ( ! ( x * ( y + 1 ) ) ) { Debugger ( ) ; } } void mac_raw_print ( const char * str ) { /* Here and in mac_raw_print_bold I assume that once theWindows got allocated by mac_init_nhwindows we can safely do putstr on BASE_WINDOW, even after mac_exit_nhwindows is called or flags.window_inited is reset to zero. Is this assumption correct? */ if ( theWindows ) { ShowWindow ( theWindows [ BASE_WINDOW ] . theWindow ) ; SelectWindow ( theWindows [ BASE_WINDOW ] . theWindow ) ; putstr ( BASE_WINDOW , 0 , str ) ; } else showerror ( str , NULL ) ; } void mac_raw_print_bold ( const char * str ) { if ( theWindows ) { ShowWindow ( theWindows [ BASE_WINDOW ] . theWindow ) ; SelectWindow ( theWindows [ BASE_WINDOW ] . theWindow ) ; putstr ( BASE_WINDOW , ATR_BOLD , str ) ; } else { nhbell ( ) ; showerror ( str , NULL ) ; } } void mac_exit_nhwindows ( const char * s ) { if ( s ) { raw_print ( s ) ; display_nhwindow ( BASE_WINDOW , TRUE ) ; } clear_nhwindow ( BASE_WINDOW ) ; flags . window_inited = 0 ; destroy_nhwindow ( WIN_MAP ) ; destroy_nhwindow ( WIN_MESSAGE ) ; destroy_nhwindow ( WIN_STATUS ) ; destroy_nhwindow ( WIN_INVEN ) ; } /* * Don't forget to decrease in_putstr before returning... */ void mac_putstr ( winid win , int attr , const char * str ) { long len , slen ; NhWindow * aWin = & theWindows [ win ] ; int kind ; static char in_putstr = 0 ; Rect r ; if ( in_putstr > 3 ) { DebugStr ( ( ConstStr255Param ) "\012Recursion!" ) ; return ; } if ( win < 0 || win >= NUM_MACWINDOWS ) { error ( "Invalid window %d (Max %d) in putstr." , win , NUM_MACWINDOWS , attr ) ; return ; } if ( ! aWin -> theWindow ) { error ( "Unallocated window %d in putstr." , win ) ; return ; } in_putstr ++ ; kind = ( ( WindowPeek ) ( aWin -> theWindow ) ) -> windowKind - WIN_BASE_KIND ; if ( kind == NHW_MAP || kind == NHW_STATUS ) { short h = ( NUM_COLS - aWin->cursor.h - strlen(str) ); /* * The "dungeon" window * putsym will call curs, so no updates necessary. */ while ( * str ) { putsym ( win , aWin -> cursor . h , aWin -> cursor . v , * str ) ; curs ( win , aWin -> cursor . h + 1 , aWin -> cursor . v ) ; str ++ ; } h = (h < 0) ? 0 : h; while( h-- ) { putsym ( win , aWin -> cursor . h , aWin -> cursor . v , CHAR_BLANK ) ; curs ( win , aWin -> cursor . h + 1 , aWin -> cursor . v ) ; } } else { char * sr , * ds ; /* * A "default" text window - uses TextBox * We just add the text, without attributes for now */ len = GetHandleSize ( aWin -> windowText ) ; slen = strlen ( str ) ; while ( aWin -> windowTextLen + slen + 1 > len ) { len = ( len > 2048 ) ? ( len + 2048 ) : ( len * 2 ) ; SetHandleSize ( aWin -> windowText , len ) ; if ( MemError ( ) ) { error ( "SetHandleSize (putstr)" ) ; aWin -> windowTextLen = 0L ; aWin -> textBase = 0 ; aWin -> lin = 0 ; } } len = aWin -> windowTextLen ; sr = (char *)str ; ds = * ( aWin -> windowText ) + len ; while ( * sr ) { if ( * sr == CHAR_LF ) * ds = CHAR_CR ; else * ds = * sr ; if ( * ds == CHAR_CR && kind != NHW_MENU ) { aWin -> lin ++ ; } sr ++ ; ds ++ ; } if ( slen > 1 ) { ( * ( aWin -> windowText ) ) [ len + slen ] = CHAR_CR ; aWin -> windowTextLen += slen + 1 ; aWin -> lin ++ ; } else { aWin -> windowTextLen += slen ; } SetPort ( aWin -> theWindow ) ; r = aWin -> theWindow -> portRect ; if ( win && win == WIN_MESSAGE ) { r . bottom -= SBARHEIGHT + 1 ; } InvalRect ( & r ) ; aWin -> clear = 0 ; if ( kind == NHW_MESSAGE ) { char * ptr , * stop ; long oldBase = aWin -> textBase ; short lines = ( r . bottom - r . top ) / aWin -> charHeight - 1 ; stop = * aWin -> windowText ; ptr = stop + aWin -> windowTextLen - 1 ; while ( lines >= 0 && -- ptr > stop ) { if ( * ptr == CHAR_CR || * ptr == CHAR_LF ) lines -- ; } if ( ptr <= stop ) { aWin -> textBase = 0L ; } else { aWin -> textBase = ptr - stop + 1 ; } if ( oldBase > aWin -> textBase ) { aWin -> textBase = oldBase ; } } if ( aWin -> scrollBar ) { InvalScrollBar ( aWin ) ; } } in_putstr -- ; } void putsym ( winid win , int x , int y , CHAR_P sym ) { NhWindow * aWin = & theWindows [ win ] ; int kind = ( ( WindowPeek ) ( aWin -> theWindow ) ) -> windowKind - WIN_BASE_KIND ; Rect update ; aWin -> clear = 0 ; /* * We don't need to invalidate the old position or set the window, * since curs() will do that. */ curs ( win , x , y ) ; x = aWin -> cursor . h ; y = aWin -> cursor . v ; if ( kind == NHW_MAP || kind == NHW_STATUS) { switch ( sym ) { case CHAR_LF : case CHAR_CR : curs ( win , 1 , y + 1 ) ; break ; case CHAR_BS : if ( x ) { curs ( win , x - 1 , y ) ; } break ; default : /* * Curs() takes care of getting cursor . v within range even for * the shorter status window - note; this assumes the status and * the map windows have the same width ! */ update . top = y * aWin -> charHeight ; update . bottom = ( y + 1 ) * aWin -> charHeight ; update . left = x * aWin -> charWidth ; update . right = ( x + 1 ) * aWin -> charWidth ; EraseRect ( & update ) ; MoveTo ( x * aWin -> charWidth , ( y + 1 ) * aWin -> charHeight - aWin -> leading ) ; ( ( MapData * ) * aWin -> windowText ) -> map [ y ] [ x ] = sym ; DrawChar ( sym ) ; break ; } } else { char ss [ 2 ] ; ss [ 0 ] = sym ; ss [ 1 ] = 0 ; putstr ( win , 0 , ss ) ; } } void mac_curs ( winid win , int x , int y ) { NhWindow * aWin = & theWindows [ win ] ; int kind = ( ( WindowPeek ) ( aWin -> theWindow ) ) -> windowKind - WIN_BASE_KIND ; SetPort ( aWin -> theWindow ) ; if ( kind == NHW_MAP || kind == NHW_STATUS ) { Rect update ; if ( x >= NUM_COLS ) { x = 1 ; y ++ ; } if ( y >= ( kind == NHW_STATUS ? NUM_STAT_ROWS : NUM_ROWS ) ) { y = 0 ; x = 1 ; } if ( aWin -> cursorDrawn ) { update . top = aWin -> cursor . v * aWin -> charHeight ; update . bottom = ( aWin -> cursor . v + 1 ) * aWin -> charHeight ; update . left = aWin -> cursor . h * aWin -> charWidth ; update . right = ( aWin -> cursor . h + 1 ) * aWin -> charWidth ; EraseRect ( & update ) ; MoveTo ( aWin -> cursor . h * aWin -> charWidth , ( aWin -> cursor . v + 1 ) * aWin -> charHeight - aWin -> leading ) ; DrawChar ( ( ( MapData * ) * ( aWin -> windowText ) ) -> map [ aWin -> cursor . v ] [ aWin -> cursor . h ] ) ; aWin -> cursorDrawn = 0 ; } } MoveTo ( x * aWin -> charWidth , ( y + 1 ) * aWin -> charHeight - aWin -> leading ) ; SetPt ( & ( aWin -> cursor ) , x , y ) ; } /* * print_glyph * * Print the glyph to the output device. Don't flush the output device. * * Since this is only called from show_glyph(), it is assumed that the * position and glyph are always correct (checked there)! */ void mac_print_glyph ( winid window , XCHAR_P x , XCHAR_P y , int glyph ) { unsigned int ch; register int offset; #define zap_color(n) #define cmap_color(n) #define trap_color(n) #define obj_color(n) #define mon_color(n) #define pet_color(c) /* * Map the glyph back to a character. * * Warning: For speed, this makes an assumption on the order of * offsets. The order is set in display.h. */ if ((offset = (glyph - GLYPH_SWALLOW_OFF)) >= 0) { /* swallow */ /* see swallow_to_glyph() in display.c */ ch = (uchar) showsyms[S_sw_tl + (offset & 0x7)]; mon_color(offset >> 3); } else if ((offset = (glyph - GLYPH_ZAP_OFF)) >= 0) { /* zap beam */ /* see zapdir_to_glyph() in display.c */ ch = showsyms[S_vbeam + (offset & 0x3)]; zap_color((offset >> 2)); } else if ((offset = (glyph - GLYPH_CMAP_OFF)) >= 0) { /* cmap */ ch = showsyms[offset]; cmap_color(offset); } else if ((offset = (glyph - GLYPH_TRAP_OFF)) >= 0) { /* trap */ ch = (offset == WEB) ? showsyms[S_web] : showsyms[S_trap]; trap_color(offset); } else if ((offset = (glyph - GLYPH_OBJ_OFF)) >= 0) { /* object */ ch = oc_syms[objects[offset].oc_class]; obj_color(offset); } else if ((offset = (glyph - GLYPH_BODY_OFF)) >= 0) { /* a corpse */ ch = oc_syms[objects[CORPSE].oc_class]; mon_color(offset); } else if ((offset = (glyph - GLYPH_PET_OFF)) >= 0) { /* a pet */ ch = monsyms[mons[offset].mlet]; pet_color(offset); } else { /* a monster */ ch = monsyms[mons[glyph].mlet]; mon_color(glyph); } if ( ch > 255 ) { error ( "cicn plotting is not supported." ) ; /* * cicn plotting goes here */ } else { /* * Print a char from the hack font. */ putsym ( window , x , y , ch ) ; } } int mac_nh_poskey ( int * a , int * b , int * c ) { if ( ! a || ! b || ! c ) { Debugger ( ) ; } return nhgetch ( ) ; } void mac_start_menu ( winid win ) { NhWindow * aWin = & theWindows [ win ] ; HideWindow ( aWin -> theWindow ) ; SetHandleSize ( aWin -> windowText , TEXT_BLOCK ) ; aWin -> wid = 0 ; aWin -> lin = 0 ; clear_nhwindow ( win ) ; } void mac_add_menu ( winid win , CHAR_P menuChar , int attr , const char * str ) { long addSize ; int newWid ; NhWindow * aWin = & theWindows [ win ] ; if ( ! str || aWin -> lin >= NUM_MENU_ITEMS ) return ; SetPort ( aWin -> theWindow ) ; aWin -> itemChars [ aWin -> lin ] = menuChar ; addSize = strlen ( str ) ; newWid = TextWidth ( str , 0 , addSize ) ; if ( newWid > aWin -> wid ) aWin -> wid = newWid ; putstr ( win , attr , str ) ; } /* * End a menu in this window, window must a type NHW_MENU. * ch is the value to return if the menu is canceled, * str is a list of cancel characters (values that may be input) * morestr is a prompt to display, rather than the default. * str and morestr might be ignored by some ports. */ void mac_end_menu ( winid win , CHAR_P ch , const char * str , const char * morestr ) { unsigned char buf [ 256 ] ; int len ; NhWindow * aWin = & theWindows [ win ] ; strncpy ( aWin -> cancelStr , str , NUM_CANCEL_ITEMS ) ; aWin -> cancelStr [ NUM_CANCEL_ITEMS - 1 ] = 0 ; aWin -> cancelChar = ch ; buf [ 0 ] = 0 ; if ( morestr ) { strncpy ( (char *)& buf [ 1 ] , morestr , 255 ) ; len = strlen ( morestr ) ; if ( len > 255 ) buf [ 0 ] = 255 ; else buf [ 0 ] = len ; } SetWTitle ( aWin -> theWindow , buf ) ; } char mac_select_menu ( winid win ) { short w , h ; int c , l ; WindowPtr theWin = theWindows [ win ] . theWindow ; NhWindow * aWin = & theWindows [ win ] ; inSelect = win ; SetPort ( theWin ) ; if ( aWin -> wid && aWin -> lin ) { w = aWin -> wid + 16 ; h = aWin -> lin * aWin -> charHeight ; if ( w > 450 ) { w = 450 ; } if ( h > 300 ) { h = 300 ; } SizeWindow ( theWin , w , h , TRUE ) ; if ( aWin -> scrollBar ) { InvalScrollBar ( aWin ) ; } } SelectWindow ( theWin ) ; ShowWindow ( theWin ) ; InvalRect ( & ( theWin -> portRect ) ) ; do { while ( ! ( c = nhgetch ( ) ) ) ; for ( l = 0 ; l < aWin -> lin ; l ++ ) { if ( aWin -> itemChars [ l ] == c ) goto done ; } if ( ClosingWindowChar ( c ) ) { c = aWin -> cancelChar ; } } while ( ! strchr ( aWin -> cancelStr , c ) && c != aWin -> cancelChar ) ; done : HideWindow ( theWin ) ; inSelect = WIN_ERR ; return c ; } void mac_display_file ( name, complain ) const char * name; boolean complain; { long l ; short refNum ; Ptr buf ; int win ; if ( 0 > ( refNum = macopen ( name , O_RDONLY , TEXT_TYPE ) ) ) { if (complain) error ( "Cannot open file %s." , name ) ; } else { l = macseek ( refNum , 0 , SEEK_END ) ; ( void ) macseek ( refNum , 0 , 0L ) ; win = create_nhwindow ( NHW_TEXT ) ; if ( win == WIN_ERR ) { if (complain) error ( "Cannot make window." ) ; goto out ; } buf = NewPtr(l+1); if (buf) l = macread(refNum, buf, l); if (buf && l > 0) { buf[l] = '\0'; putstr(win, 0, buf); display_nhwindow(win, FALSE); } else { HideWindow(theWindows[win].theWindow); destroy_nhwindow(win); } if (buf) DisposPtr(buf); out : macclose ( refNum ) ; } } void port_help ( ) { display_file ( PORT_HELP , TRUE ) ; } short frame_corner ; static pascal void FrameItem ( DialogPtr dlog , short item ) { short k ; Handle h ; Rect r ; GetDItem ( dlog , item , & k , & h , & r ) ; PenSize ( 3 , 3 ) ; FrameRoundRect ( & r , frame_corner , frame_corner ) ; PenNormal ( ) ; } void SetFrameItem ( DialogPtr dlog , short frame , short item ) { Rect r , r2 ; short kind ; Handle h ; GetDItem ( dlog , item , & kind , & h , & r ) ; InsetRect ( & r , -4 , -4 ) ; r2 = r ; GetDItem ( dlog , frame , & kind , & h , & r ) ; SetDItem ( dlog , frame , kind , ( Handle ) FrameItem , & r2 ) ; frame_corner = 16 ; } // Flash a button (for instance OK if you press enter) // void FlashButton ( DialogPtr dlog , short item ) { short k ; Handle h ; Rect r ; long l ; GetDItem ( dlog , item , & k , & h , & r ) ; if ( k == ctrlItem + btnCtrl ) { HiliteControl ( ( ControlHandle ) h , 1 ) ; Delay ( GetDblTime ( ) / 2 , & l ) ; HiliteControl ( ( ControlHandle ) h , 0 ) ; } } pascal Boolean CharacterDialogFilter ( DialogPtr dp , EventRecord * ev , short * item ) { int ix ; Handle h ; Rect r ; short k ; Str255 s ; unsigned char com [ 2 ] ; if ( ev -> what == mouseDown ) { int code ; WindowPtr wp ; Rect r ; code = FindWindow ( ev -> where , & wp ) ; if ( wp != dp || code != inDrag ) { return 0 ; } r = ( * GetGrayRgn ( ) ) -> rgnBBox ; InsetRect ( & r , 3 , 3 ) ; DragWindow ( wp , ev -> where , & r ) ; SaveWindowPos ( wp ) ; ev -> what = nullEvent ; return 1 ; } if ( ev -> what != keyDown ) { return 0 ; } com [ 0 ] = 1 ; com [ 1 ] = ev -> message & 0xff ; if ( com [ 1 ] == 10 || com [ 1 ] == 13 || com [ 1 ] == 32 || com [ 1 ] == 3 ) { // various "OK" * item = 1 ; FlashButton ( dp , 1 ) ; return 1 ; } if ( com [ 1 ] == 'Q' || com [ 1 ] == 'q' || com [ 1 ] == 27 || ( ev -> message & 0xff00 == 0x3500 ) ) { // escape * item = 2 ; FlashButton ( dp , 2 ) ; return 1 ; } for ( ix = 3 ; ix ; ix ++ ) { h = ( Handle ) NULL ; k = 0 ; GetDItem ( dp , ix , & k , & h , & r ) ; if ( ! k || ! h ) { return 0 ; } if ( k == 6 ) { // Radio Button Item GetCTitle ( ( ControlHandle ) h , s ) ; s [ 0 ] = 1 ; if ( ! IUEqualString ( com , s ) ) { * item = ix ; return 1 ; } } } /*NOTREACHED*/ return 0 ; } void mac_player_selection ( void ) { ControlHandle ctrl; DialogPtr characterDialog; short itemHit, lastItemSelected, type; Rect box; characterDialog = GetNewDialog(132, (Ptr) NULL, (WindowPtr) -1); /* ** Default selection is random, beginning at the first item after the "Cancel" button. */ lastItemSelected = rn1(12, 3); /* ** Mark the default selection. */ GetDItem(characterDialog, lastItemSelected, &type, (Handle *) &ctrl, &box); SetCtlValue(ctrl, 1); InitCursor ( ) ; SetFrameItem ( characterDialog , 15 , 1 ) ; do { ModalDialog((ModalFilterProcPtr) CharacterDialogFilter , &itemHit); if ((itemHit != 1) && (itemHit != 2)) { /* ** If OK and Cancel (items 1 and 2) weren't selected then a radio button ** was pushed. Unmark the previous selection. */ GetDItem(characterDialog, lastItemSelected, &type, (Handle *) &ctrl, &box); SetCtlValue(ctrl, 0); /* ** Mark the current selection. */ GetDItem(characterDialog, itemHit, &type, (Handle *) &ctrl, &box); SetCtlValue(ctrl, 1); /* ** Save the item number for use later. */ lastItemSelected = itemHit; } } while ((itemHit != 1) && (itemHit != 2)); if (itemHit == 2) { clearlocks(); ExitToShell(); } else { switch (lastItemSelected) { case 3: pl_character [ 0 ] = 'A'; break; case 4: pl_character [ 0 ] = 'B'; break; case 5: pl_character [ 0 ] = 'C'; break; case 6: pl_character [ 0 ] = 'E'; break; case 7: pl_character [ 0 ] = 'H'; break; case 8: pl_character [ 0 ] = 'K'; break; case 9: pl_character [ 0 ] = 'P'; break; case 10: pl_character [ 0 ] = 'R'; break; case 11: pl_character [ 0 ] = 'S'; break; case 12: pl_character [ 0 ] = 'T'; break; case 13: pl_character [ 0 ] = 'V'; break; case 14: pl_character [ 0 ] = 'W'; break; } } DisposDialog(characterDialog); } void mac_update_inventory ( void ) { } void mac_suspend_nhwindows ( const char * ) { /* Can't relly do that :-) */ } void mac_resume_nhwindows ( void ) { /* Can't relly do that :-) */ } int try_key_queue ( char * bufp ) { if ( keyQueue [ 0 ] ) { int ix , flag = 0 ; for ( ix = 0 ; ix < QUEUE_LEN ; ix ++ ) { if ( ! flag ) { if ( ! ( bufp [ ix ] = keyQueue [ ix ] ) ) { flag = 1 ; } } keyQueue [ ix ] = 0 ; } if ( ! flag ) { bufp [ ix ] = 0 ; } return 1 ; } return 0 ; } /* Interface definition, for windows.c */ struct window_procs mac_procs = { "mac", mac_init_nhwindows, mac_player_selection, mac_askname, mac_get_nh_event, mac_exit_nhwindows, mac_suspend_nhwindows, mac_resume_nhwindows, mac_create_nhwindow, mac_clear_nhwindow, mac_display_nhwindow, mac_destroy_nhwindow, mac_curs, mac_putstr, mac_display_file, mac_start_menu, mac_add_menu, mac_end_menu, mac_select_menu, mac_update_inventory, mac_mark_synch, mac_wait_synch, #ifdef CLIPPING mac_cliparound, #endif mac_print_glyph, mac_raw_print, mac_raw_print_bold, mac_nhgetch, mac_nh_poskey, mac_nhbell, mac_doprev_message, mac_yn_function, mac_getlin, #ifdef COM_COMPL mac_get_ext_cmd, #endif /* COM_COMPL */ mac_number_pad, mac_delay_output, /* other defs that really should go away (they're tty specific) */ 0, // mac_start_screen, 0, // mac_end_screen, } ; /*macwin.c*/