Mercurial > cpython-lru_cache-weakref
diff Mac/Python/macglue.c @ 8790:1076a028365a legacy-trunk
New about box, with the version mesage filled in in a text item, and
PLstrcmp() fixed. (Just)
| author | Jack Jansen <jack.jansen@cwi.nl> |
|---|---|
| date | Fri, 31 Jul 1998 09:36:30 +0000 |
| parents | f594778a56af |
| children | f83b74273da2 |
line wrap: on
line diff
--- a/Mac/Python/macglue.c Fri Jul 31 09:34:47 1998 +0000 +++ b/Mac/Python/macglue.c Fri Jul 31 09:36:30 1998 +0000 @@ -245,9 +245,9 @@ if ( res != 0 ) return res; - if ( s1 < s2 ) + if ( s1[0] < s2[0] ) return -1; - else if ( s1 > s2 ) + else if ( s1[0] > s2[0] ) return 1; else return 0; @@ -660,26 +660,27 @@ /* ** Our replacement about box */ + +#include "patchlevel.h" + void SIOUXDoAboutBox(void) { DialogPtr theDialog; - WindowRef theWindow; - CGrafPtr thePort; + WindowPtr theWindow; short item; - short xpos, ypos, width, height, swidth, sheight; + short fontID; if( (theDialog = GetNewDialog(ABOUT_ID, NULL, (WindowPtr)-1)) == NULL ) return; theWindow = GetDialogWindow(theDialog); - thePort = GetWindowPort(theWindow); - width = thePort->portRect.right - thePort->portRect.left; - height = thePort->portRect.bottom - thePort->portRect.top; - swidth = qd.screenBits.bounds.right - qd.screenBits.bounds.left; - sheight = qd.screenBits.bounds.bottom - qd.screenBits.bounds.top - LMGetMBarHeight(); - xpos = (swidth-width)/2; - ypos = (sheight-height)/5 + LMGetMBarHeight(); - MoveWindow(theWindow, xpos, ypos, 0); + SetPortWindowPort(theWindow); + GetFNum("\pPython-Sans", &fontID); + if (fontID == 0) + fontID = kFontIDGeneva; + TextFont(fontID); + TextSize(9); + ParamText(Pstring(PATCHLEVEL), "\p", "\p", "\p"); ShowWindow(theWindow); ModalDialog(NULL, &item); DisposeDialog(theDialog);