You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
101 lines
2.7 KiB
Plaintext
101 lines
2.7 KiB
Plaintext
# Target selection dialog class definition for GDBtk.
|
|
# Copyright (C) 1997, 1998, 1999 Cygnus Solutions
|
|
#
|
|
# 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 Free Software Foundation; either version 2 of the License, or (at
|
|
# your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
|
|
|
|
itcl::class TargetSelection {
|
|
inherit ModalDialog ManagedWin
|
|
|
|
private {
|
|
variable f
|
|
variable fr
|
|
variable target
|
|
variable saved_baud
|
|
variable saved_port
|
|
variable saved_main
|
|
variable saved_exit
|
|
variable saved_check
|
|
variable saved_verb
|
|
variable saved_portname
|
|
variable saved_hostname
|
|
variable saved_attach
|
|
variable saved_load
|
|
variable saved_run
|
|
variable saved_cont
|
|
variable saved_options
|
|
variable saved_after_attaching
|
|
variable _after_entry
|
|
variable changes 0
|
|
variable target_list ""
|
|
|
|
common db_inited 0
|
|
common prefs_inited 0
|
|
common trace_inited 0
|
|
|
|
# The Connection frame has three "sections"; the first contains
|
|
# a combobox with all the targets. The second can either be
|
|
# a combobox listing available baud rates or an entry for specifying
|
|
# the hostname of a TCP connection. The actual widget mapped onto the
|
|
# screen is saved in MAPPED1. The third section contains either a
|
|
# combobox for the serial port or an entry for the portnumber. The
|
|
# widget actually mapped onto the screen is saved in MAPPED2.
|
|
variable mapped1
|
|
variable mapped2
|
|
|
|
variable Width 20
|
|
variable MoreButton
|
|
variable MoreFrame
|
|
variable MoreLabel
|
|
|
|
variable RunMethod
|
|
|
|
proc _init_prefs {}
|
|
proc default_port {}
|
|
|
|
method build_win {}
|
|
method cancel {}
|
|
method change_baud {w {baud ""}}
|
|
method change_target {w {name ""}}
|
|
method config_dialog {t}
|
|
method fill_rates {}
|
|
method fill_targets {}
|
|
method get_target {name}
|
|
method help {}
|
|
method _init {}
|
|
method _init_target {}
|
|
method port_list {}
|
|
method save {}
|
|
method set_check_button {name}
|
|
method set_run {check_which}
|
|
method set_saved {}
|
|
method target_trace {variable index op}
|
|
method toggle_more_options {}
|
|
method valid_target {target}
|
|
method write_saved {}
|
|
}
|
|
|
|
public {
|
|
variable exportcancel 0
|
|
|
|
method constructor {args}
|
|
method reconfig {}
|
|
|
|
proc get_target_list {}
|
|
proc native_debugging {}
|
|
proc getname {target name}
|
|
proc init_target_db {}
|
|
}
|
|
|
|
protected common gdb_target
|
|
|
|
}
|