From: Linus N. <li...@el...> - 2007-05-31 18:12:12
|
Hi! I've started playing with 8.5 on Mac (Intel) and it seems to work fine except for this: Cascade menus don't seem to work at all. Does anyone know if this is supposed to work? Here is a sample snippet that works fine on Windows (after changing to ButtonPress-3): ################ set ::tk::mac::useCustomMDEF 1 catch {console show} proc showmenu {} { set x [winfo pointerx .] set y [winfo pointery .] menu .submenu -type tearoff .submenu add command -label "Cascaded item" -command "puts {Cascaded item}" menu .m -tearoff 0 .m add command -label "Test" -command "puts Test" .m add cascade -label "And a cascade" -menu .submenu update .m post $x $y update destroy .submenu destroy .m } bind . <ButtonPress-2> "showmenu" ################ Doesn't matter if I set useCustomMDEF to 0 either. I'm using HEAD (from 29/5 at 14:44). Cheers, Linus |
From: Daniel A. S. <st...@ma...> - 2007-06-01 03:25:42
|
Linus, On 01/06/2007, at 4:11, Linus Nyberg wrote: > I've started playing with 8.5 on Mac (Intel) and it seems to work fine > except for this: > Cascade menus don't seem to work at all. > Does anyone know if this is supposed to work? cascades work but only when part of the menubar or attached to a menubutton... the following patch fixes this limitation for me and seems to have no negative effects, please test: Index: macosx/tkMacOSXMenu.c =================================================================== --- macosx/tkMacOSXMenu.c +++ macosx/tkMacOSXMenu.c @@ -1556,6 +1556,7 @@ TkpPostMenu( Tcl_CancelIdleCall(DrawMenuBarWhenIdle, NULL); DrawMenuBarWhenIdle(NULL); } + RecursivelyInsertMenu(menuPtr); TkMacOSXTrackingLoop(1); popUpResult = PopUpMenuSelect(macMenuHdl, y, x, menuPtr->active); Cheers, Daniel -- ** Daniel A. Steffen Dept. of Mathematics ** ** Macquarie University NSW 2109 Australia ** |
From: Linus N. <li...@el...> - 2007-06-01 09:35:06
|
Hi Daniel, What a quick response! With this patch, tests so far work perfect (on Mac OS X 10.4.9, both Intel and PPC). Awesome, thank you! Linus -----Original Message----- From: tcl...@li... [mailto:tcl...@li...] On Behalf Of Daniel A. Steffen Sent: den 1 juni 2007 05:25 To: Linus Nyberg Cc: tc...@li... Subject: Re: [MACTCL] Cascade menus in 8.5 (HEAD) Linus, On 01/06/2007, at 4:11, Linus Nyberg wrote: > I've started playing with 8.5 on Mac (Intel) and it seems to work fine > except for this: > Cascade menus don't seem to work at all. > Does anyone know if this is supposed to work? cascades work but only when part of the menubar or attached to a menubutton... the following patch fixes this limitation for me and seems to have no negative effects, please test: Index: macosx/tkMacOSXMenu.c =================================================================== --- macosx/tkMacOSXMenu.c +++ macosx/tkMacOSXMenu.c @@ -1556,6 +1556,7 @@ TkpPostMenu( Tcl_CancelIdleCall(DrawMenuBarWhenIdle, NULL); DrawMenuBarWhenIdle(NULL); } + RecursivelyInsertMenu(menuPtr); TkMacOSXTrackingLoop(1); popUpResult = PopUpMenuSelect(macMenuHdl, y, x, menuPtr->active); Cheers, Daniel -- ** Daniel A. Steffen Dept. of Mathematics ** ** Macquarie University NSW 2109 Australia ** ------------------------------------------------------------------------- This SF.net email is sponsored by DB2 Express Download DB2 Express C - the FREE version of DB2 express and take control of your XML. No limits. Just data. Click to get it now. http://sourceforge.net/powerbar/db2/ _______________________________________________ Tcl-mac mailing list tc...@li... https://lists.sourceforge.net/lists/listinfo/tcl-mac |