diff options
Diffstat (limited to 'gdb/gdbtk/library/warning.tcl')
-rw-r--r-- | gdb/gdbtk/library/warning.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/gdbtk/library/warning.tcl b/gdb/gdbtk/library/warning.tcl index 1aee2830a98..0e1a82342b0 100644 --- a/gdb/gdbtk/library/warning.tcl +++ b/gdb/gdbtk/library/warning.tcl @@ -31,7 +31,7 @@ # ----------------------------------------------------------------------------- # -class WarningDlg { +itcl::class WarningDlg { inherit ManagedWin ModalDialog public { @@ -50,7 +50,7 @@ class WarningDlg { # DESC: # Creates the warning dialog. # ----------------------------------------------------------------------------- -body WarningDlg::constructor {args} { +itcl::body WarningDlg::constructor {args} { debug $args window_name "Warning" eval itk_initialize $args |