diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/bgerror.tcl | 6 | ||||
| -rw-r--r-- | library/demos/menu.tcl | 3 |
2 files changed, 4 insertions, 5 deletions
diff --git a/library/bgerror.tcl b/library/bgerror.tcl index 4897bbb..8181cf2 100644 --- a/library/bgerror.tcl +++ b/library/bgerror.tcl @@ -9,8 +9,8 @@ # Copyright (c) 1998-2000 by Ajuba Solutions. # All rights reserved. # -# RCS: @(#) $Id: bgerror.tcl,v 1.27 2004/04/17 03:53:55 hobbs Exp $ -# $Id: bgerror.tcl,v 1.27 2004/04/17 03:53:55 hobbs Exp $ +# RCS: @(#) $Id: bgerror.tcl,v 1.28 2005/08/09 07:39:19 das Exp $ +# $Id: bgerror.tcl,v 1.28 2005/08/09 07:39:19 das Exp $ namespace eval ::tk::dialog::error { namespace import -force ::tk::msgcat::* @@ -137,7 +137,7 @@ proc ::tk::dialog::error::bgerror err { wm protocol .bgerrorDialog WM_DELETE_WINDOW { } if {[tk windowingsystem] eq "aqua"} { - ::tk::unsupported::MacWindowStyle style .bgerrorDialog dBoxProc + ::tk::unsupported::MacWindowStyle style .bgerrorDialog zoomDocProc } frame .bgerrorDialog.bot diff --git a/library/demos/menu.tcl b/library/demos/menu.tcl index 247b2d1..b9f98a3 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.9 2005/01/18 11:56:57 dkf Exp $ +# RCS: @(#) $Id: menu.tcl,v 1.10 2005/08/09 07:39:19 das Exp $ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -141,7 +141,6 @@ $m entryconfigure "Does almost nothing" -bitmap questhead -compound left \ "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 |