ASPN ActiveState Programmer Network
ActiveState
/ Home / Perl / PHP / Python / Tcl / XSLT /
/ Safari / My ASPN /
Cookbooks | Documentation | Mailing Lists | Modules | News Feeds | Products | User Groups


Recent Messages
List Archives
About the List
List Leaders
Subscription Options

View Subscriptions
Help

View by Topic
ActiveState
.NET Framework
Open Source
Perl
PHP
Python
Tcl
Web Services
XML & XSLT

View by Category
Database
General
SOAP
System Administration
Tools
User Interfaces
Web Programming
XML Programming


MyASPN >> Mail Archive >> tcl-mac
tcl-mac
Re: [MACTCL] Cascade menus in 8.5 (HEAD)
by Linus Nyberg other posts by this author
Jun 1 2007 2:35AM messages near this date
Re: [MACTCL] Cascade menus in 8.5 (HEAD) | [MACTCL] *Config.sh vs tcl.m4
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-mac-bounces@[...].net
[mailto:tcl-mac-bounces@[...].net] On Behalf Of Daniel A.
Steffen
Sent: den 1 juni 2007 05:25
To: Linus Nyberg
Cc: tcl-mac@[...].net
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
tcl-mac@[...].net
https://lists.sourceforge.net/lists/listinfo/tcl-mac


-------------------------------------------------------------------------
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
tcl-mac@[...].net
https://lists.sourceforge.net/lists/listinfo/tcl-mac
Thread:
Linus Nyberg
Daniel A. Steffen
Linus Nyberg

Privacy Policy | Email Opt-out | Feedback | Syndication
© ActiveState Software Inc. All rights reserved