diff options
| author | das <das@noemail.net> | 2001-11-23 02:04:07 (GMT) |
|---|---|---|
| committer | das <das@noemail.net> | 2001-11-23 02:04:07 (GMT) |
| commit | 2570e40473dbfef4aafdc2d32687788cb096b872 (patch) | |
| tree | 0d0864ac4fc0b0ff178f5869f1600d2c584109c8 /mac/tkMacMenus.c | |
| parent | 177acc7add7f613bacfa038f71187e82f4dcf415 (diff) | |
| download | tk-2570e40473dbfef4aafdc2d32687788cb096b872.zip tk-2570e40473dbfef4aafdc2d32687788cb096b872.tar.gz tk-2570e40473dbfef4aafdc2d32687788cb096b872.tar.bz2 | |
** upport to 8.4 of mac code changes for 8.3.3 & various new
** changes for 8.4, some already backported to 8.3.4 (patch #435660)
see ChangeLog for details
FossilOrigin-Name: 72721350b6f21354b5149babeafdb2304ece1e2e
Diffstat (limited to 'mac/tkMacMenus.c')
| -rw-r--r-- | mac/tkMacMenus.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/mac/tkMacMenus.c b/mac/tkMacMenus.c index f83e49d..ca17f1d 100644 --- a/mac/tkMacMenus.c +++ b/mac/tkMacMenus.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacMenus.c,v 1.6 2000/04/23 03:47:32 jingham Exp $ + * RCS: @(#) $Id: tkMacMenus.c,v 1.7 2001/11/23 02:06:11 das Exp $ */ #include "tcl.h" @@ -106,7 +106,7 @@ TkMacHandleMenuSelect( break; } default: - GetItem(tkAppleMenu, theItem, name); + GetMenuItemText(tkAppleMenu, theItem, name); HiliteMenu(0); OpenDeskAcc(name); return; @@ -193,9 +193,9 @@ TkMacInitMenus( panic("memory - menus"); } InsertMenu(tkAppleMenu, 0); - AppendMenu(tkAppleMenu, "\pAbout Tcl & TkÉ"); + AppendMenu(tkAppleMenu, "\pAbout Tcl & TkŠ"); AppendMenu(tkAppleMenu, "\p(-"); - AddResMenu(tkAppleMenu, 'DRVR'); + AppendResMenu(tkAppleMenu, 'DRVR'); if (TkMacUseMenuID(kFileMenu) != TCL_OK) { panic("Menu ID %d is already in use!", kFileMenu); @@ -205,7 +205,7 @@ TkMacInitMenus( panic("memory - menus"); } InsertMenu(tkFileMenu, 0); - AppendMenu(tkFileMenu, "\pSourceÉ"); + AppendMenu(tkFileMenu, "\pSourceŠ"); AppendMenu(tkFileMenu, "\pClose/W"); AppendMenu(tkFileMenu, "\p(-"); AppendMenu(tkFileMenu, "\pQuit/Q"); |