From e4c758049c65a3fa68d736b7c73f61899bf70f16 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Tue, 18 Jan 2005 11:56:56 +0000
Subject: Fixed dialog parenting problem described by Keith Nash. Also tidied
 up callbacks

---
 ChangeLog              |  6 ++++++
 library/demos/menu.tcl | 32 +++++++++++++++++---------------
 2 files changed, 23 insertions(+), 15 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 584a1e0..7dd39d2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2005-01-18  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
+
+	* library/demos/menu.tcl: Reworked to make dialogs children of the
+	demo widget so that they are properly visible. Issue reported by
+	Keith Nash <k.j.nash@usa.net>
+
 2005-01-13  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
 
 	* library/tkfbox.tcl (IconList_Selection, IconList_Create):
diff --git a/library/demos/menu.tcl b/library/demos/menu.tcl
index 55bee0e..247b2d1 100644
--- a/library/demos/menu.tcl
+++ b/library/demos/menu.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a window with a bunch of menus
 # and cascaded menus using menubars.
 #
-# RCS: @(#) $Id: menu.tcl,v 1.8 2004/12/21 11:56:35 dkf Exp $
+# RCS: @(#) $Id: menu.tcl,v 1.9 2005/01/18 11:56:57 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -117,14 +117,15 @@ set m $w.menu.icon
 $w.menu add cascade -label "Icons" -menu $m -underline 0
 menu $m -tearoff 0
 # Main widget program sets variable tk_demoDirectory
-$m add command \
-    -bitmap @[file join $tk_demoDirectory images pattern.xbm] \
-    -hidemargin 1 \
-    -command {
-	tk_dialog .pattern {Bitmap Menu Entry} {The menu entry you invoked displays a bitmap rather than a text string.  Other than this, it is just like any other menu entry.} {} 0 OK
-}
+$m add command -bitmap @[file join $tk_demoDirectory images pattern.xbm] \
+    -hidemargin 1 -command [list \
+	tk_dialog $w.pattern {Bitmap Menu Entry} \
+		"The menu entry you invoked displays a bitmap rather than\
+		a text string.  Other than this, it is just like any other\
+		menu entry." {} 0 OK ]
 foreach i {info questhead error} {
-    $m add command -bitmap $i -command "puts {You invoked the $i bitmap}" -hidemargin 1
+    $m add command -bitmap $i -hidemargin 1 -command [list \
+	    puts "You invoked the $i bitmap" ]
 }
 $m entryconfigure 2 -columnbreak 1
 
@@ -134,19 +135,20 @@ menu $m -tearoff 0
 foreach i {{An entry} {Another entry} {Does nothing} {Does almost nothing} {Make life meaningful}} {
     $m add command -label $i -command [list puts "You invoked \"$i\""]
 }
-$m entryconfigure "Does almost nothing" \
-	-bitmap questhead  -compound left  -command {
-    tk_dialog .compound {Compound Menu Entry} {The menu entry you invoked\
-	    displays both a bitmap and a text string.  Other than this, it\
-	    is just like any other menu entry.} {} 0 OK
+$m entryconfigure "Does almost nothing" -bitmap questhead -compound left \
+	-command [list \
+	tk_dialog $w.compound {Compound Menu Entry} \
+		"The menu entry you invoked displays both a bitmap and a\
+		text string.  Other than this, it is just like any other\
+		menu entry." {} 0 OK ]
 }
 
 set m $w.menu.colors
 $w.menu add cascade -label "Colors" -menu $m -underline 1
 menu $m
 foreach i {red orange yellow green blue} {
-    $m add command -label $i -background $i \
-	    -command [list puts "You invoked \"$i\""]
+    $m add command -label $i -background $i -command [list \
+	    puts "You invoked \"$i\"" ]
 }
 
 $w configure -menu $w.menu
-- 
cgit v0.12