[GRASS5] Tcl/Tk Disable Tear-off?

GRASS GRASS developer
1

Hi,

OK, I have got the Mac OS X Tcl/Tk 8.4 interface to a much more acceptable size now.

A (cropped) screen shot is at:

     <http://OpenOSX.com/grass/newScreen.jpg&gt;

I would like to disable the "Tear-off" option from the menu if at all possible. Does anyone know how disable it?

Thanks,

Jeshua Lacock __________________________
Programmer/Owner Phone: 760.935.4736
http://OpenOSX.com Fax: 760.935.4845
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

2

Jeshua Lacock wrote:

I would like to disable the "Tear-off" option from the menu if at all
possible. Does anyone know how disable it?

This seems to work:

--- src/tcltkgrass/main/gui.tcl~ Thu Apr 11 09:45:35 2002
+++ src/tcltkgrass/main/gui.tcl Tue Oct 8 15:10:51 2002
@@ -142,7 +142,7 @@
                 if {$initial} {
                     set menupath $path.mb$j.m
                     menubutton $path.mb$j -text $label -menu $menupath
- menu $menupath
+ menu $menupath -tearoff 0
                     pack $path.mb$j -side left -expand yes
                     bindtags $path.mb$j [list $path.mb$j Menubutton balloon . all]
                     set balloonHelp($path.mb$j) $comment

--
Glynn Clements <glynn.clements@virgin.net>

3

On Tuesday, October 8, 2002, at 07:13 AM, Glynn Clements wrote:

+ menu $menupath -tearoff 0

Thanks Glynn,

That did the trick - No more buggy tear-off menus!

I am very much a TK novice, and I was wondering if it possible to make the modules appear on the screen say about 20 pixels lower than they do as default? The module's menu bar appears above the Mac OS X menu bar (making it so that you may not move the module - less than ideal I realize)...

Thanks,

Jeshua Lacock __________________________
Programmer/Owner Phone: 760.935.4736
http://OpenOSX.com Fax: 760.935.4845
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

4

Jeshua Lacock wrote:

On Tuesday, October 8, 2002, at 07:13 AM, Glynn Clements wrote:

> + menu $menupath -tearoff 0

Thanks Glynn,

That did the trick - No more buggy tear-off menus!

I am very much a TK novice, and I was wondering if it possible to make
the modules appear on the screen say about 20 pixels lower than they do
as default? The module's menu bar appears above the Mac OS X menu bar
(making it so that you may not move the module - less than ideal I
realize)...

Search for "wm geometry" and "+10+100" in gui.tcl.

Although, this might be specific to X (the window manager concept and
the +X+Y format are both X-isms).

--
Glynn Clements <glynn.clements@virgin.net>