+2008-02-08 Keith Seitz <keiths@redhat.com>
+
+ * library/main.tcl: Add gdbtk_platform definitions.
+ * library/attachdlg.itb (list_pids): Use gdbtk_platform
+ instead of tcl_platform.
+ * library/bpwin.itb (build_win): Likewise.
+ (_bp_add): Likewise.
+ (_bp_modify): Likewise.
+ * library/download.itb (download_it): Likewise.
+ * library/globalpref.itb (_build_win): Likewise.
+ * library/helpviewer.tcl (open_help): Likewise.
+ * library/interface.tcl (gdbtk_tcl_query): Likewise.
+ (show_warning): Likewise.
+ (open_file): Likewise.
+ (run_executable): Likewise.
+ * library/managedwin.itb (reveal): Likewise.
+ (_create): Likewise.
+ * library/prefs.tcl (pref_read): Likewise.
+ (pref_set_defaults): Likewise.
+ (pref_set_colors): Likewise.
+ * library/session.tcl (_exe_name): Likewise.
+ * library/srcbar.itcl (_update_file_menu): Likewise.
+ (create_run_menu): Likewise.
+ * library/srctextwin.itb (_mtime_changed): Likewise.
+ (LoadFromCache): Likewise.
+ * library/targetselection.itb (default_port): Likewise.
+ (build_win): Likewise.
+
+ * library/memwin.itb (build_win): Remove unused tcl_platform
+ declaration.
+ * library/pluginwin.itcl (enable_ui): Likewise.
+ * library/process.itb (build_win): Likewise.
+ * library/srcbar.itcl (enable_ui): Likewise.
+ * library/srcwin.itb (location): Likewise.
+ * library/stackwin.itb (build_win): Likewise.
+ * library/tdump.tcl (build_win): Likewise.
+
2008-02-05 Maciej W. Rozycki <macro@mips.com>
* generic/gdbtk-varobj.c (variable_children): Adjust
# Attach Dialog for Insight.
-# Copyright (C) 1999, 2002, 2003 Red Hat, Inc.
+# Copyright (C) 1999, 2002, 2003, 2008 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
# ------------------------------------------------------------------
itcl::body AttachDlg::list_pids {{pattern *}} {
- global tcl_platform
+ global gdbtk_platform
- switch $tcl_platform(os) {
+ switch $gdbtk_platform(os) {
Linux {
set ps_cmd "ps axw"
}
# Breakpoint window for Insight.
-# Copyright (C) 1997, 1998, 1999, 2001, 2002, 2003 Red Hat, Inc.
+# Copyright (C) 1997, 1998, 1999, 2001, 2002, 2003, 2008 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
# METHOD: build_win - build the main breakpoint window
# ------------------------------------------------------------------
itcl::body BpWin::build_win {} {
- global _bp_en _bp_disp tcl_platform
+ global _bp_en _bp_disp
set bg1 $::Colors(bg)
set hsmode dynamic
# METHOD: bp_add - add a breakpoint entry
# ------------------------------------------------------------------
itcl::body BpWin::bp_add {bp_event {tracepoint 0}} {
- global _bp_en _bp_disp tcl_platform _files
+ global _bp_en _bp_disp gdbtk_platform _files
set number [$bp_event get number]
set thread [$bp_event get thread]
if {$thread != "-1"} {set color [pref get gdb/src/thread_fg]}
- if {$tcl_platform(platform) == "windows"} {
+ if {$gdbtk_platform(platform) == "windows"} {
checkbutton $twin.en$i -relief flat -variable _bp_en($i) \
-activebackground $bg1 -command "$this bp_able $i" -fg $color
} else {
# METHOD: bp_modify - modify a breakpoint entry
# ------------------------------------------------------------------
itcl::body BpWin::bp_modify {bp_event {tracepoint 0}} {
- global _bp_en _bp_disp tcl_platform _files
+ global _bp_en _bp_disp gdbtk_platform _files
set number [$bp_event get number]
set thread [$bp_event get thread]
if {$thread != "-1"} {set color [pref get gdb/src/thread_fg]}
- if {$tcl_platform(platform) == "windows"} then {
+ if {$gdbtk_platform(platform) == "windows"} then {
$twin.en$i configure -fg $color
} else {
$twin.en$i configure -selectcolor $color
itcl::body Download::download_it { } {
global gdb_exe_name gdb_downloading gdb_loaded
global gdb_target_name gdb_pretty_name
- global gdb_running
- global tcl_platform
+ global gdb_running gdbtk_platform
debug "exe=$gdb_exe_name downloading=$gdb_downloading"
debug " loaded=$gdb_loaded target=$gdb_target_name running=$gdb_running"
}
}
- if {[string compare $tcl_platform(platform) "windows"] == 0} {
+ if {[string compare $gdbtk_platform(platform) "windows"] == 0} {
set f [ide_cygwin_path to_win32 $gdb_exe_name]
} else {
set f $gdb_exe_name
# Global preference class implementation for Insight.
-# Copyright (C) 1997, 1998, 1999, 2002, 2003, 2004 Red Hat
+# Copyright (C) 1997, 1998, 1999, 2002, 2003, 2004, 2008 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
# METHOD: _build_win - build the dialog
# ------------------------------------------------------------------
itcl::body GlobalPref::_build_win {} {
- global tcl_platform GDBTK_LIBRARY
+ global gdbtk_platform GDBTK_LIBRARY
debug
frame $itk_interior.f
frame $itk_interior.x
set fam [lsort $fam]
if {$font_cache == ""} {
- if {$tcl_platform(platform) == "unix"} {
+ if {$gdbtk_platform(platform) == "unix"} {
toplevel .c
wm title .c "Scanning for fonts"
message .c.m -width 3i -text "Scanning system for fonts\n\nPlease wait..." \
_make_font_item $f fixed "Fixed Font:" $font_cache
- if {$tcl_platform(platform) != "windows"} {
+ if {$gdbtk_platform(platform) != "windows"} {
# Cannot change the windows menu font ourselves
_make_font_item $f menu "Menu Font:" $fam
}
-width $tracing_labels(max_len) -anchor w
# use_icons
- if {$tcl_platform(platform) == "unix"} {
+ if {$gdbtk_platform(platform) == "unix"} {
checkbutton $f.use_icons \
-text "Use builtin image as icon." -variable [scope _new(gdb/use_icons)]
}
grid $f.tracing -sticky w -padx 5 -pady 5
- if {$tcl_platform(platform) == "unix"} {
+ if {$gdbtk_platform(platform) == "unix"} {
grid $f.use_icons -sticky w -padx 5 -pady 5
}
grid $f.consolewrap -sticky w -padx 5 -pady 5
grid $f.use_cs -sticky w -padx 5 -pady 5
- if {$tcl_platform(platform) == "unix"} {
+ if {$gdbtk_platform(platform) == "unix"} {
# Compatibility frame
iwidgets::Labeledframe $frame.compat -labelpos nw -labeltext "OS Compatibility"
set fc [$frame.compat childsite]
pack $frame.icons.lab $frame.icons.cb -side left
grid $frame.icons x -sticky w -pady 10
grid $frame.d -columnspan 2 -sticky w
- if {$tcl_platform(platform) == "unix"} {
+ if {$gdbtk_platform(platform) == "unix"} {
grid $frame.compat $frame.misc -sticky we
} else {
grid $frame.misc x -sticky we
# Open a viewer for HTML help info
-# Copyright (C) 2002, Red Hat, Inc.
+# Copyright (C) 2002, 2008, 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
set link file://[file join $::GDBTK_LIBRARY help $hfile]
# windows is easy
- if {$::tcl_platform(platform) == "windows"} {
+ if {$::gdbtk_platform(platform) == "windows"} {
ide_shell_execute open $link
return
}
# Interface between GDB and Insight.
-# Copyright (C) 1997, 1998, 1999, 2001, 2002, 2004 Red Hat, Inc.
+# Copyright (C) 1997, 1998, 1999, 2001, 2002, 2004, 2008 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
# PROC: gdbtk_tcl_query -
# ------------------------------------------------------------------
proc gdbtk_tcl_query {message {default yes}} {
- global gdb_checking_for_exit gdbtk_state tcl_platform
+ global gdb_checking_for_exit gdbtk_state gdbtk_platform
# FIXME We really want a Help button here. But Tk's brain-damaged
# modal dialogs won't really allow it. Should have async dialog
set modal "system"
}
- if {$tcl_platform(platform) == "windows"} {
+ if {$gdbtk_platform(platform) == "windows"} {
# On Windows, we want to only ask each question once.
# If we're already asking the question, just wait for the answer
# to come back.
# PROC: show_warning -
# ------------------------------------------------------------------
proc show_warning {message} {
- global tcl_platform
+ global gdbtk_platform
# FIXME We really want a Help button here. But Tk's brain-damaged
# modal dialogs won't really allow it. Should have async dialog
# another thread is not required.
- if {$tcl_platform(platform) == "windows"} {
+ if {$gdbtk_platform(platform) == "windows"} {
ide_messageBox [list set r] -icon warning \
-default ok -message $message -title $title \
-type ok -modal $modal -parent .
# ------------------------------------------------------------------
proc _open_file {{file ""}} {
- global gdb_running gdb_downloading tcl_platform
+ global gdb_running gdb_downloading gdbtk_platform
if {$gdb_running || $gdb_downloading} {
# We are already running/downloading something..
}
# Add the base dir for this file to the source search path.
set root [file dirname $file]
- if {$tcl_platform(platform) == "windows"} {
+ if {$gdbtk_platform(platform) == "windows"} {
set root [ide_cygwin_path to_posix $root]
set file [ide_cygwin_path to_posix $file]
}
proc run_executable { {auto_start 1} } {
global gdb_loaded gdb_downloading gdb_target_name
global gdb_exe_changed gdb_target_changed gdb_program_has_run
- global gdb_running gdb_exe_name tcl_platform
+ global gdb_running gdb_exe_name gdbtk_platform
# debug "auto_start=$auto_start gdb_target_name=$gdb_target_name"
# If the user requested it, start an xterm for use as the
# inferior's tty.
- if {$tcl_platform(platform) != "windows"
+ if {$gdbtk_platform(platform) != "windows"
&& [pref getd gdb/process/xtermtty] == "yes"} {
tty::create
}
# GDBtk (Insight) entry point
-# Copyright (C) 1997, 1998, 1999, 2002, 2003, 2004 Red Hat, Inc.
+# Copyright (C) 1997, 1998, 1999, 2002, 2003, 2004, 2008 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
# For testing
set _test(interactive) 0
+# Set up platform globals. We replace Tcl's tcl_platform with
+# our own version which knows the difference between cygwin and
+# mingw.
+global gdbtk_platform
+set gdbtk_platform(platform) $tcl_platform(platform)
+switch $tcl_platform(platform) {
+ windows {
+ if {[llength [info commands ide_cygwin_path]] == 0} {
+ set gdbtk_platform(os) "mingw"
+ } else {
+ set gdbtk_platform(os) "cygwin"
+ }
+ }
+
+ default {
+ set gdbtk_platform(os) $tcl_platform(os)
+ }
+}
+set gdbtk_platform(osVersion) $tcl_platform(osVersion)
+
# set traces on state variables
trace variable gdb_running w do_state_hook
trace variable gdb_downloading w do_state_hook
# Managed window for Insight.
-# Copyright (C) 1998, 1999, 2000, 2001, 2002, 2004 Red Hat, Inc.
+# Copyright (C) 1998, 1999, 2000, 2001, 2002, 2004, 2008 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 window is visible.
if {[info exists ::$_top._init_geometry]} {
upvar ::$_top._init_geometry gm
- if {$::tcl_platform(platform) == "unix"} {
+ if {$::gdbtk_platform(platform) == "unix"} {
wm geometry $_top $gm
}
unset ::$_top._init_geometry
# NOT for Windows, though. Without the focus, we get, eg. a
# register window on top of the source window, but the source window
# will have the focus. This is not the proper model for Windows.
- if {$::tcl_platform(platform) == "windows"} {
+ if {$::gdbtk_platform(platform) == "windows"} {
focus -force [focus -lastfor $_top]
}
}
set w .
}
wm transient $top $w
- } elseif {$::tcl_platform(platform) == "unix"} {
+ } elseif {$::gdbtk_platform(platform) == "unix"} {
# Modal dialogs DONT get Icons...
if {[pref get gdb/use_icons] && ![$newwin isa ModalDialog]} {
set icon [_make_icon_window ${top}_icon]
# Memory display window class definition for Insight.
-# Copyright (C) 1998, 1999, 2001, 2002, 2005 Red Hat, Inc.
+# Copyright (C) 1998, 1999, 2001, 2002, 2005, 2008 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
# METHOD: build_win - build the main memory window
# ------------------------------------------------------------------
itcl::body MemWin::build_win {} {
- global tcl_platform gdb_ImageDir _mem ${this}_memval
+ global gdb_ImageDir _mem ${this}_memval
set maxlen 0
set maxalen 0
# PluginWindow
-# Copyright (C) 2001 Red Hat, Inc.
+# Copyright (C) 2001, 2008 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
# 2 off on gdb has no inferior, and is idle
# ------------------------------------------------------------------
public method enable_ui {on} {
- global tcl_platform
debug "$on"
# Do the enabling so that all the disabling happens first, this way if a
# Local preferences functions for Insight.
-# Copyright (C) 1997, 1998, 1999, 2002, 2003, 2004 Red Hat
+# Copyright (C) 1997, 1998, 1999, 2002, 2003, 2004, 2008 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
proc pref_read {} {
global prefs_init_filename env gdb_ImageDir GDBTK_LIBRARY GDBStartup
- global tcl_platform
+ global gdbtk_platform
if {[info exists env(HOME)]} {
- if {$tcl_platform(platform) == "windows"} {
+ if {$gdbtk_platform(platform) == "windows"} {
set home [ide_cygwin_path to_win32 $env(HOME)]
} else {
set home $env(HOME)
set home ""
}
- if {$tcl_platform(platform) == "windows"} {
+ if {$gdbtk_platform(platform) == "windows"} {
set prefs_init_filename "gdbtk.ini"
} else {
set prefs_init_filename ".gdbtkinit"
# PROC: pref_set_defaults - set up default values
# ------------------------------------------------------------------
proc pref_set_defaults {} {
- global GDBTK_LIBRARY tcl_platform gdb_ImageDir
+ global GDBTK_LIBRARY gdbtk_platform gdb_ImageDir
debug
# Gdb global defaults
# some window managers can't deal with it.
# OS compatibility. Valid values are "Windows", "GNOME", "KDE", and "default"
- if {$tcl_platform(platform) == "windows"} {
+ if {$gdbtk_platform(platform) == "windows"} {
pref define gdb/compat "Windows"
- } elseif {$tcl_platform(platform) == "unix"} {
+ } elseif {$gdbtk_platform(platform) == "unix"} {
pref define gdb/compat "GNOME"
} else {
pref define gdb/compat "default"
pref define gdb/load/bp_at_func 0
pref define gdb/load/bp_func ""
pref define gdb/load/baud 38400
- if {$tcl_platform(platform) == "windows"} {
+ if {$gdbtk_platform(platform) == "windows"} {
pref define gdb/load/port com1
} else {
pref define gdb/load/port "/dev/ttyS0"
# To enable us to fix that without hardcoding colors, we create a color
# array here and use it as needed to force widgets to the correct colors.
- global Colors tcl_platform
+ global Colors
debug
# UNIX colors
option add *highlightBackground $Colors(bg)
option add *selectBackground $Colors(sbg)
- if {$::tcl_platform(platform) == "unix"} {
+ if {$::gdbtk_platform(platform) == "unix"} {
option add *activeBackground $Colors(sbg)
}
# Change the default select color for checkbuttons, etc to match
# selectBackground.
- if {$::tcl_platform(platform) == "unix"} {
+ if {$::gdbtk_platform(platform) == "unix"} {
option add *selectColor $Colors(sbg)
}
}
# Process window for Insight.
-# Copyright (C) 1998, 1999, 2001, 2002 Red Hat, Inc.
+# Copyright (C) 1998, 1999, 2001, 2002, 2008 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
# METHOD: build_win - build the main process window
# ------------------------------------------------------------------
itcl::body ProcessWin::build_win {} {
- global tcl_platform
itk_component add slbox {
iwidgets::scrolledlistbox $itk_interior.slbox \
# Local preferences functions for Insight.
-# Copyright (C) 2000, 2001, 2002, 2004 Red Hat, Inc.
+# Copyright (C) 2000, 2001, 2002, 2004, 2008 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
# should use `realpath', but that is more work. So for now we neglect
# the possibility of symlinks.
proc _exe_name {path} {
- global tcl_platform
# Get real directory.
- if {[string compare $tcl_platform(platform) "windows"] == 0} {
+ if {[string compare $::gdbtk_platform(os) "cygwin"] == 0} {
set path [ide_cygwin_path to_win32 $path]
}
set save [pwd]
# SrcBar
-# Copyright (C) 2001, 2002, 2004 Red Hat, Inc.
+# Copyright (C) 2001, 2002, 2004, 2008 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
# Used really only to update the session list.
# ------------------------------------------------------------------
private method _update_file_menu {} {
- global enable_external_editor tcl_platform gdb_exe_name
+ global enable_external_editor gdbtk_platform gdb_exe_name
# Clear the File menu
$Menu clear file
$Menu add separator
- if {$tcl_platform(platform) == "windows"} {
+ if {$gdbtk_platform(platform) == "windows"} {
$Menu add command None "Page Setup..." \
[format {
set top %s
# I will hold off on the Windows implementation for now.
if {$is_native} {
- if {[string compare $::tcl_platform(platform) windows] != 0} {
+ if {[string compare $::gdbtk_platform(platform) windows] != 0} {
$Menu add command Attach "Attach to process" \
[code $this do_attach $run_menu] \
-underline 0 -accelerator "Ctrl+A"
}
if {$is_native} {
- if {[string compare $::tcl_platform(platform) windows] != 0} {
+ if {[string compare $::gdbtk_platform(platform) windows] != 0} {
$Menu add command Detach "Detach" \
[code $this do_detach $run_menu] \
-underline 0 -state disabled
# 2 off on off gdb has no inferior, and is idle
# ------------------------------------------------------------------
public method enable_ui {on} {
- global tcl_platform
debug "$on - Browsing=$Browsing"
# Do the enabling so that all the disabling happens first, this way if a
# Paned text widget for source code, for Insight
-# Copyright (C) 1997, 1998, 1999, 2001, 2002 Red Hat, Inc.
+# Copyright (C) 1997, 1998, 1999, 2001, 2002, 2008 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
# has changed.
# ------------------------------------------------------------------
itcl::body SrcTextWin::_mtime_changed {filename} {
- global tcl_platform
+ global gdbtk_platform
if [catch {gdb_find_file $filename} f] {
set r 1
} elseif {$f == ""} {
set r 1
} else {
- if {[string compare $tcl_platform(platform) "windows"] == 0} {
+ if {[string compare $gdbtk_platform(os) "cygwin"] == 0} {
set f [ide_cygwin_path to_win32 $f]
}
if {[catch {file mtime $f} mtime]} {
itcl::body SrcTextWin::LoadFromCache {w name asm lib} {
debug "LoadFromCache $w $name $asm"
- global tcl_platform
+ global gdbtk_platform
upvar ${w}win win
upvar _${w}pane pane
# out.
if {$loadingSource} {
- if {[string compare $tcl_platform(platform) "windows"] == 0} {
+ if {[string compare $gdbtk_platform(os) "cygwin"] == 0} {
set f [ide_cygwin_path to_win32 $name]
} else {
set f $name
# Source window for Insight.
-# Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+# Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2008,
# 2006 Red Hat, Inc.
#
# This program is free software; you can redistribute it and/or modify it
# linespec will be "{} {} {} 0 0x0 0x0" when GDB has not started debugging.
# ------------------------------------------------------------------
itcl::body SrcWin::location {tag linespec} {
- global gdb_running gdb_exe_name _files tcl_platform
+ global gdb_running gdb_exe_name _files
# We need to keep track of changes to the line, filename, function name
# and address so we can keep the widgets up-to-date. Otherwise we
# Stack window for Insight.
-# Copyright (C) 1997, 1998, 1999, 2002, 2003 Red Hat
+# Copyright (C) 1997, 1998, 1999, 2002, 2003, 2008 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
# METHOD: build_win - build the main register window
# ------------------------------------------------------------------
itcl::body StackWin::build_win {} {
- global tcl_platform
itk_component add slb {
iwidgets::scrolledlistbox $itk_interior.s \
# Target selection dialog for Insight.
-# Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 Red Hat, Inc.
+# Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2008 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
}
itcl::body TargetSelection::default_port {} {
- global tcl_platform
- switch -regexp $tcl_platform(os) {
- Windows { set port com1 }
+ global gdbtk_platform
+ switch -regexp $gdbtk_platform(os) {
+ cygwin { set port com1 }
Linux { set port /dev/ttyS0 }
SunOS { set port /dev/ttya }
AIX { set port /dev/foo1 }
NetBSD { set port /dev/foo1 }
HP-UX {
# Special case...
- switch -regexp $tcl_platform(osVersion) {
+ switch -regexp $gdbtk_platform(osVersion) {
A.09 { set port /dev/tty00 }
B.10 -
B.11 { set port /dev/tty0p0 }
# METHOD: build_win - build the dialog
# ------------------------------------------------------------------
itcl::body TargetSelection::build_win {} {
- global tcl_platform PREFS_state gdb_ImageDir gdb_target_name
+ global gdbtk_platform PREFS_state gdb_ImageDir gdb_target_name
set f [frame $itk_interior.f]
set opts [frame $itk_interior.moreoptions]
-width $Width
# port combobox
- if {$tcl_platform(platform) == "windows"} {
+ if {$gdbtk_platform(platform) == "windows"} {
set editable 0
} else {
set editable 1
fill_rates
# load port combobox
- if {$tcl_platform(platform) == "windows"} {
+ if {$gdbtk_platform(platform) == "windows"} {
foreach val [port_list] {
$fr.port list insert end $val
}
} else {
# fixme: how do I find valid values for these????
- switch $tcl_platform(os) {
+ switch $gdbtk_platform(os) {
Linux { set ports [list /dev/cua0 /dev/ttyS0 /dev/ttyS1 /dev/ttyS2 /dev/ttyS3]}
SunOS { set ports [list /dev/ttya /dev/ttyb] }
AIX { set ports [list /dev/foo1 /dev/foo2] }
NetBSD { set ports [list /dev/foo1 /dev/foo2] }
HP-UX {
# Special case...
- switch -regexp $tcl_platform(osVersion) {
+ switch -regexp $gdbtk_platform(osVersion) {
A.09 { set ports [list /dev/tty00 /dev/tty01] }
B.10 -
B.11 { set ports [list /dev/tty0p0 /dev/tty1p0] }
checkbutton $f.fr.verb -text [gettext "Display Download Dialog"] \
-variable [pref varname gdb/load/$target-verbose]
- if {$tcl_platform(platform) == "unix"} {
+ if {$gdbtk_platform(platform) == "unix"} {
checkbutton $f.fr.xterm -text [gettext "Use xterm as inferior's tty"] \
-variable [pref varname gdb/process/xtermtty] \
-onvalue yes -offvalue no
pack $f.fr.bp.at_func $f.fr.bp.func -side left
grid $f.fr.bp -sticky w -padx 5 -pady 5
grid $f.fr.verb -sticky w -padx 5 -pady 5
- if {$tcl_platform(platform) == "unix"} {
+ if {$gdbtk_platform(platform) == "unix"} {
grid $f.fr.xterm -sticky w -padx 5 -pady 5
}
if {![pref get gdb/control_target]} {
# Trace dump window for Insight
-# Copyright (C) 1998, 1999, 2001, 2002, 2004 Red Hat, Inc.
+# Copyright (C) 1998, 1999, 2001, 2002, 2004, 2008 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
# METHOD: build_win - build the main tdump window
# ------------------------------------------------------------------
method build_win {} {
- global tcl_platform
-
itk_component add stext {
iwidgets::scrolledtext $itk_interior.stext -hscrollmode dynamic \
-vscrollmode dynamic -textfont global/fixed \