* library/main.tcl: Don't require iwidgets 3.0.
* library/console.itb (Console::_build_win): Rename
tkTextClosestGap to tk::TextClosestGap. Rename tkCancelRepeat
to tk::CancelRepeat. Rename tkPriv to tk::Priv. Needed for tk 8.4.1.
* library/bpwin.itb (BpWin::build_win): Don't
create sizebox.
* library/locals.tcl (build_win): Ditto.
* library/regwin.itb (RegWin::_build_win): Ditto.
* library/srcwin.itb (SrcWin::constructor): Ditto.
* library/stackwin.itb (StackWin::build_win): Ditto.
* library/watch.tcl (build_win): Ditto.
2003-01-21 Martin M. Hunt <hunt@redhat.com>
+ * library/main.tcl: Don't require iwidgets 3.0.
+ * library/console.itb (Console::_build_win): Rename
+ tkTextClosestGap to tk::TextClosestGap. Rename tkCancelRepeat
+ to tk::CancelRepeat. Rename tkPriv to tk::Priv. Needed for tk 8.4.1.
+
+ * library/bpwin.itb (BpWin::build_win): Don't
+ create sizebox.
+ * library/locals.tcl (build_win): Ditto.
+ * library/regwin.itb (RegWin::_build_win): Ditto.
+ * library/srcwin.itb (SrcWin::constructor): Ditto.
+ * library/stackwin.itb (StackWin::build_win): Ditto.
+ * library/watch.tcl (build_win): Ditto.
+
* generic/gdbtk.c (gdbtk_init): Look for iwidgets in
"iwidgets" instead of "iwidgets3.0.0".
Don't call ide_create_sizebox_command.
# Breakpoint window for Insight.
-# Copyright 1997, 1998, 1999, 2001, 2002 Red Hat, Inc.
+# Copyright 1997, 1998, 1999, 2001, 2002, 2003 Red Hat, Inc.
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (GPL) as published by
global _bp_en _bp_disp tcl_platform
set bg1 $::Colors(bg)
- if {$tcl_platform(platform) == "windows"} {
- # Add a sizebox and set scroll modes to static
- ide_sizebox $itk_interior.sbox
- place $itk_interior.sbox -relx 1.0 -rely 1.0 -anchor se
- set hsmode static
- set vsmode static
- } else {
- set hsmode dynamic
- set vsmode dynamic
- }
+ set hsmode dynamic
+ set vsmode dynamic
# FIXME: The iwidgets scrolled frame is pretty useless.
# When we get BLT, use its hiertable to do this.
# Console window for Insight
-# Copyright 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
+# Copyright 1998, 1999, 2000, 2001, 2002, 2003 Red Hat, Inc.
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (GPL) as published by
# the saved insertion point.
set pretag pre-$_twin
bind $_twin <1> [format {
- if {[%%W compare [tkTextClosestGap %%W %%x %%y] <= cmdmark]} {
+ if {[%%W compare [tk::TextClosestGap %%W %%x %%y] <= cmdmark]} {
%s _insertion [%%W index insert]
} else {
%s _insertion {}
} $this $this $this]
# FIXME: has inside information.
bind $_twin <ButtonRelease-1> [format {
- tkCancelRepeat
+ tk::CancelRepeat
if {[%s _insertion] != ""} {
%%W mark set insert [%s _insertion]
}
# drags a little "fuzzy".
bind $_twin <B2-Motion> {
if {!$tk_strictMotif} {
- if {($tkPriv(x) - 2 < %x < $tkPriv(x) + 2) \
- || ($tkPriv(y) - 2 < %y < $tkPriv(y) + 2)} {
- set tkPriv(mouseMoved) 1
+ if {($tk::Priv(x) - 2 < %x < $tk::Priv(x) + 2) \
+ || ($tk::Priv(y) - 2 < %y < $tk::Priv(y) + 2)} {
+ set tk::Priv(mouseMoved) 1
}
- if {$tkPriv(mouseMoved)} {
+ if {$tk::Priv(mouseMoved)} {
%W scan dragto %x %y
}
}
break
}
bind $_twin <ButtonRelease-2> [format {
- if {!$tkPriv(mouseMoved) || $tk_strictMotif} {
+ if {!$tk::Priv(mouseMoved) || $tk_strictMotif} {
%s
break
}
# Local Variable Window for Insight.
-# Copyright 2002 Red Hat
+# Copyright 2002, 2003 Red Hat
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (GPL) as published by
pack $f.tree -expand yes -fill both
pack $f -expand yes -fill both
if {$::tcl_platform(platform) == "windows"} {
- ide_sizebox [namespace tail $this].sizebox
- place [namespace tail $this].sizebox -relx 1 -rely 1 -anchor se
+# ide_sizebox [namespace tail $this].sizebox
+# place [namespace tail $this].sizebox -relx 1 -rely 1 -anchor se
}
window_name "Local Variables"
if {[info exists IWIDGETS_LIBRARY]} {
lappend auto_path $IWIDGETS_LIBRARY
}
-if {[catch {package require Iwidgets 3.0} msg]} {
+if {[catch {package require Iwidgets} msg]} {
if {![info exists ::env(GDBTK_TEST_RUNNING)] || $::env(GDBTK_TEST_RUNNING) == 0} {
if {$::tcl_platform(platform) != "windows"} {
puts stderr "Error: $msg"
# Register display window for Insight.
-# Copyright 1998, 1999, 2001, 2002 Red Hat, Inc.
+# Copyright 1998, 1999, 2001, 2002, 2003 Red Hat, Inc.
#
# Written by Keith Seitz (keiths@redhat.com)
# and Martin Hunt (hunt@redhat.com)
grid rowconfigure $itk_interior 0 -weight 0
grid rowconfigure $itk_interior 1 -weight 1
- # Add sizebox for windows
- if {[string compare $::tcl_platform(platform) "windows"] == 0} {
- ide_sizebox $itk_interior.sbox
- place $itk_interior.sbox -relx 1.0 -rely 1.0 -anchor se
- }
+# Add sizebox for windows
+# if {[string compare $::tcl_platform(platform) "windows"] == 0} {
+# ide_sizebox $itk_interior.sbox
+# place $itk_interior.sbox -relx 1.0 -rely 1.0 -anchor se
+# }
# Add popup menu - we populate it in the event handler
itk_component add popup {
# Source window for Insight.
-# Copyright 1997, 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
+# Copyright 1997, 1998, 1999, 2000, 2001, 2002, 2003 Red Hat, Inc.
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (GPL) as published by
# On Windows, create a sizebox.
if {$::tcl_platform(platform) == "windows"} {
- ide_sizebox $itk_interior.sizebox
+# ide_sizebox $itk_interior.sizebox
}
set Tracing [pref get gdb/mode]
# Stack window for Insight.
-# Copyright 1997, 1998, 1999, 2002 Red Hat
+# Copyright 1997, 1998, 1999, 2002, 2003 Red Hat
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (GPL) as published by
# Add sizebox for windows
if {[string compare $tcl_platform(platform) "windows"] == 0} {
- ide_sizebox $itk_interior.sbox
- place $itk_interior.sbox -relx 1.0 -rely 1.0 -anchor se
+# ide_sizebox $itk_interior.sbox
+# place $itk_interior.sbox -relx 1.0 -rely 1.0 -anchor se
}
update dummy
# Watch window for Insight.
-# Copyright 2002 Red Hat
+# Copyright 2002, 2003 Red Hat
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (GPL) as published by
grid columnconfigure $entryFrame 1
if {$::tcl_platform(platform) == "windows"} {
- grid columnconfigure $entryFrame 1 -pad 20
- ide_sizebox [namespace tail $this].sizebox
- place [namespace tail $this].sizebox -relx 1 -rely 1 -anchor se
+# grid columnconfigure $entryFrame 1 -pad 20
+# ide_sizebox [namespace tail $this].sizebox
+# place [namespace tail $this].sizebox -relx 1 -rely 1 -anchor se
}
grid $treeFrame -row 0 -column 0 -sticky news