static INT GraphOpen (GRAPH_WINDOW *gw, const char *title, short h, short v, short dh, short dv) { WindowPtr MacWin; GrafPtr myPort; PaletteHandle myPalette; Str255 pstr; MacWin = MAC_WIN(gw); /* read in resources */ if (GetNewCWindow(GRAPH_RSRC_ID,(Ptr) MacWin,(WindowPtr) -1)==NULL) return (1); myPalette = GetNewPalette(PALETTE_RSRC_ID); SetPalette(MacWin,myPalette,FALSE); /* move and size window */ myPort = (GrafPtr) MacWin; SetPort(myPort); MoveWindow(MacWin,h,v,false); SizeWindow(MacWin,dh,dv,false); CopyCStringToPascal(title,pstr); SetWTitle(MacWin,pstr); ShowWindow(MacWin); SelectWindow(MacWin); DrawGrowIcon(MacWin); return (0); }
static int CreateApplicationWindow (AWindowRecord *wr, char *fname, short h, short v, short dh, short dv) { Rect r; GrafPtr myPort; PaletteHandle myPalette; char name[80]; /* init AWindowRecord */ wr->theWindow = (WindowPtr) wr; /* read in resources */ if (GetNewCWindow(appWinId,(Ptr)wr,(WindowPtr) -1)==NULL) { return(1); } myPalette = GetNewPalette(defaultPaletteId); SetPalette(wr->theWindow,myPalette,false); /* move and size window */ myPort = (GrafPtr) wr->theWindow; SetPort(myPort); MoveWindow(wr->theWindow,h,v,false); SizeWindow(wr->theWindow,dh+15,dv+15,false); strcpy(name,fname); SetWTitle(wr->theWindow,c2pstr(name)); ShowWindow(wr->theWindow); SelectWindow(wr->theWindow); DrawGrowIcon(wr->theWindow); r = myPort->portRect; TextFont(kFontIDMonaco); /* get the scroll bars */ wr->vScrollBar = GetNewControl(vScrollBarId,wr->theWindow); wr->hScrollBar = GetNewControl(hScrollBarId,wr->theWindow); /* set correct size of the scroll bars */ MoveControl(wr->vScrollBar,r.right-15,-1); SizeControl(wr->vScrollBar,16,r.bottom-13); SetControlMinimum(wr->vScrollBar,0); SetControlMaximum(wr->vScrollBar,0); SetControlValue(wr->vScrollBar,0); ShowControl(wr->vScrollBar); MoveControl(wr->hScrollBar,-1,r.bottom-15); SizeControl(wr->hScrollBar,r.right-13,16); SetControlMinimum(wr->hScrollBar,0); SetControlMaximum(wr->hScrollBar,0); SetControlValue(wr->hScrollBar,0); ShowControl(wr->hScrollBar); DrawControls(wr->theWindow); SetRect(&(wr->usableRect),0,0,dh,dv); return(0); }
void LCD_makepalette(void) { Handle myClut; if (hasColorQD) { myClut = Get1Resource('clut', myRes); if (!myClut) { post("Color Problem"); myPalette = GetNewPalette(0); } /* DDZ changed palette from "courteous" to "tolerant" 12/14/92 */ else myPalette = NewPalette(numPaletteColors,(CTabHandle)myClut,pmTolerant,0x5000); } else myPalette = 0; }