diff options
Diffstat (limited to 'library')
-rw-r--r-- | library/bgerror.tcl | 6 | ||||
-rw-r--r-- | library/dialog.tcl | 4 | ||||
-rw-r--r-- | library/msgbox.tcl | 4 | ||||
-rw-r--r-- | library/unsupported.tcl | 5 |
4 files changed, 11 insertions, 8 deletions
diff --git a/library/bgerror.tcl b/library/bgerror.tcl index 13b0389..5cb96c6 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.16 2001/08/01 16:21:11 dgp Exp $ -# $Id: bgerror.tcl,v 1.16 2001/08/01 16:21:11 dgp Exp $ +# RCS: @(#) $Id: bgerror.tcl,v 1.17 2001/08/06 18:29:41 dgp Exp $ +# $Id: bgerror.tcl,v 1.17 2001/08/06 18:29:41 dgp Exp $ option add *ErrorDialog.function.text [::msgcat::mc "Save To Log"] \ widgetDefault @@ -143,7 +143,7 @@ proc ::bgerror err { wm transient .bgerrorDialog .bgerrorDialog if {$tcl_platform(platform) == "macintosh"} { - unsupported1 style .bgerrorDialog dBoxProc + ::tk::unsupported::MacWindowStyle style .bgerrorDialog dBoxProc } frame .bgerrorDialog.bot diff --git a/library/dialog.tcl b/library/dialog.tcl index 534a9ae..a6f3c5b 100644 --- a/library/dialog.tcl +++ b/library/dialog.tcl @@ -3,7 +3,7 @@ # This file defines the procedure tk_dialog, which creates a dialog # box containing a bitmap, a message, and one or more buttons. # -# RCS: @(#) $Id: dialog.tcl,v 1.9 2001/08/01 16:21:11 dgp Exp $ +# RCS: @(#) $Id: dialog.tcl,v 1.10 2001/08/06 18:29:41 dgp Exp $ # # Copyright (c) 1992-1993 The Regents of the University of California. # Copyright (c) 1994-1997 Sun Microsystems, Inc. @@ -66,7 +66,7 @@ proc ::tk_dialog {w title text bitmap default args} { } if {[string equal $tcl_platform(platform) "macintosh"]} { - unsupported1 style $w dBoxProc + ::tk::unsupported::MacWindowStyle style $w dBoxProc } frame $w.bot diff --git a/library/msgbox.tcl b/library/msgbox.tcl index ade57ce..6fdef49 100644 --- a/library/msgbox.tcl +++ b/library/msgbox.tcl @@ -3,7 +3,7 @@ # Implements messageboxes for platforms that do not have native # messagebox support. # -# RCS: @(#) $Id: msgbox.tcl,v 1.14 2001/08/01 16:21:11 dgp Exp $ +# RCS: @(#) $Id: msgbox.tcl,v 1.15 2001/08/06 18:29:41 dgp Exp $ # # Copyright (c) 1994-1997 Sun Microsystems, Inc. # @@ -286,7 +286,7 @@ proc ::tk::MessageBox {args} { } if {[string equal $tcl_platform(platform) "macintosh"]} { - unsupported1 style $w dBoxProc + unsupported::MacWindowStyle style $w dBoxProc } frame $w.bot diff --git a/library/unsupported.tcl b/library/unsupported.tcl index 467fb9c..d1eb5a8 100644 --- a/library/unsupported.tcl +++ b/library/unsupported.tcl @@ -3,7 +3,7 @@ # Commands provided by Tk without official support. Use them at your # own risk. They may change or go away without notice. # -# RCS: @(#) $Id: unsupported.tcl,v 1.2 2001/08/01 16:21:11 dgp Exp $ +# RCS: @(#) $Id: unsupported.tcl,v 1.3 2001/08/06 18:29:41 dgp Exp $ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. @@ -222,6 +222,7 @@ namespace eval ::tk::unsupported { tkTextUpDownLine ::tk::TextUpDownLine tkTraverseToMenu ::tk::TraverseToMenu tkTraverseWithinMenu ::tk::TraverseWithinMenu + unsupported1 ::tk::unsupported::MacWindowStyle } # Map from the old global names of Tk private variable to their @@ -229,7 +230,9 @@ namespace eval ::tk::unsupported { variable PrivateVariables array set PrivateVariables { + droped_to_start ::tk::mac::Droped_to_start histNum ::tk::HistNum + stub_location ::tk::mac::Stub_location tkFocusIn ::tk::FocusIn tkFocusOut ::tk::FocusOut tkPalette ::tk::Palette |