share/insight1.0/targetselection.ith

# 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

}