From: Martin Hunt Date: Mon, 11 Nov 2002 22:42:05 +0000 (+0000) Subject: 2002-11-11 Martin M. Hunt X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=f700896dd023c4f3463aedff5c7dded50c9237cc;p=pf3gnuchains%2Fpf3gnuchains3x.git 2002-11-11 Martin M. Hunt * library/toolbar.tcl: Deleted this obsolete file. * library/tclIndex: Rebuilt. --- diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index a5f9de2b22..c764eec897 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,5 +1,10 @@ 2002-11-11 Martin M. Hunt + * library/toolbar.tcl: Deleted this obsolete file. + * library/tclIndex: Rebuilt. + +2002-11-11 Martin M. Hunt + * library/srcbar.itcl (create_help_menu): For unix systems, if compatibility is set to KDE or GNOME, put the help menu in the right place. Otherwise put it on the far right, like diff --git a/gdb/gdbtk/library/tclIndex b/gdb/gdbtk/library/tclIndex index 0fbeceeb6f..e24b0cde11 100644 --- a/gdb/gdbtk/library/tclIndex +++ b/gdb/gdbtk/library/tclIndex @@ -107,7 +107,6 @@ set auto_index(::Session::delete) [list source [file join $dir session.tcl]] set auto_index(::Session::list_names) [list source [file join $dir session.tcl]] set auto_index(TdumpWin) [list source [file join $dir tdump.tcl]] set auto_index(TfindArgs) [list source [file join $dir tfind_args.tcl]] -set auto_index(oldGDBToolBar) [list source [file join $dir toolbar.tcl]] set auto_index(TraceDlg) [list source [file join $dir tracedlg.tcl]] set auto_index(gdb_add_tracepoint) [list source [file join $dir tracedlg.tcl]] set auto_index(gdb_edit_tracepoint) [list source [file join $dir tracedlg.tcl]] diff --git a/gdb/gdbtk/library/toolbar.tcl b/gdb/gdbtk/library/toolbar.tcl deleted file mode 100644 index aa0a742419..0000000000 --- a/gdb/gdbtk/library/toolbar.tcl +++ /dev/null @@ -1,845 +0,0 @@ -# OBSOLETE: Please see gdbmenubar, gdbtoolbar, srcmenubar and srctoolbar -# -# Menu, toolbar, and status window for GDBtk. -# Copyright 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. - - -# Implements a menu, toolbar, and status window for GDB -# This class has methods for adding buttons & menus, and -# a collection of methods for the standard GDB menu sets -# and button sets. It does not actually add any buttons or -# menus on its own, however. - -itcl::class oldGDBToolBar { - inherit itk::Widget - - # ------------------------------------------------------------------ - # CONSTRUCTOR - create new console window - # ------------------------------------------------------------------ - constructor {src} { - set source $src - _load_images - _load_src_images - - build_win - add_hook gdb_idle_hook "$this enable_ui 1" - add_hook gdb_busy_hook "$this enable_ui 0" - add_hook gdb_no_inferior_hook "$this enable_ui 2" - add_hook gdb_set_hook "$this set_hook" - } - - # ------------------------------------------------------------------ - # METHOD: build_win - build the main toolbar window - # ------------------------------------------------------------------ - public method build_win {} { - - set OtherMenus {} - set ControlMenus {} - set OtherButtons {} - set ControlButtons {} - - set Menu [menu $itk_interior.m -tearoff 0] - if {! [create_menu_items]} { - destroy $Menu - set Menu {} - } else { - [winfo toplevel $itk_interior] configure -menu $Menu - } - - # Make a subframe so that the menu can't accidentally conflict - # with a name created by some subclass. - set ButtonFrame [frame $itk_interior.t] - create_buttons - - if {! [llength $button_list]} { - destroy $ButtonFrame - } else { - eval standard_toolbar $ButtonFrame $button_list - pack $ButtonFrame $itk_interior -fill both -expand true - } - } - - # ------------------------------------------------------------------ - # DESTRUCTOR - destroy window containing widget - # ------------------------------------------------------------------ - destructor { - remove_hook gdb_idle_hook "$this enable_ui 1" - remove_hook gdb_busy_hook "$this enable_ui 0" - remove_hook gdb_no_inferior_hook "$this enable_ui 2" - remove_hook gdb_set_hook "$this set_hook" - #destroy $this - } - - # ------------------------------------------------------------------ - # METHOD: reconfig - used when preferences change - # ------------------------------------------------------------------ - public method reconfig {} { - debug "toolbar::reconfig" - _load_images 1 - } - - public method _set_stepi {} { - } - - # ------------------------------------------------------------------ - # METHOD: create_buttons - Add some buttons to the toolbar. Returns - # list of buttons in form acceptable to - # standard_toolbar. - # ------------------------------------------------------------------ - public method create_buttons {} { - _load_images - create_buttons - } - - method add_label {name text balloon args} { - set lname $ButtonFrame.$name - eval label $lname -text \$text $args - balloon register $lname $balloon - lappend button_list $lname - } - - - # ------------------------------------------------------------------ - # METHOD: create_button - Creates all the bookkeeping for a button, - # without actually inserting it in the toolbar. - # ------------------------------------------------------------------ - method create_button {name class command balloon args} { - set bname $ButtonFrame.$name - set Buttons($name) $bname - - eval button $bname -command \$command $args - balloon register $bname $balloon - foreach elem $class { - switch $elem { - None {} - default { - lappend ${elem}Buttons $bname - } - } - } - - return $bname - } - - # ------------------------------------------------------------------ - # METHOD: add_button - Creates a button, and inserts it at the end - # of the button list. Call this when the toolbar is being - # set up, but has not yet been made. - # ------------------------------------------------------------------ - method add_button {name class command balloon args} { - - lappend button_list [eval create_button \$name \$class \$command \$balloon $args] - - } - - # ------------------------------------------------------------------ - # METHOD: insert_button - Inserts button "name" before button "before". - # the toolbar must be made, and the buttons must have been created - # before you run this. - # ------------------------------------------------------------------ - method insert_button {name before} { - - if {[string first "-" $name] == 0} { - set name [string range $name 1 end] - set add_sep 1 - } else { - set add_sep 0 - } - - if {![info exists Buttons($name)] || ![info exists Buttons($before)]} { - error "insert_buttons called with non-existant button" - } - - set before_col [gridCGet $Buttons($before) -column] - set before_row [gridCGet $Buttons($before) -row] - - set slaves [grid slaves $ButtonFrame] - - set incr [expr 1 + $add_sep] - foreach slave $slaves { - set slave_col [gridCGet $slave -column] - if {$slave_col >= $before_col} { - grid configure $slave -column [expr $slave_col + $incr] - } - } - if {$add_sep} { - grid $Buttons(-$name) -column $before_col -row $before_row - } - - # Now grid our button. Have to put in the pady since this button - # may not have been originally inserted by the libgui toolbar - # proc. - - grid $Buttons($name) -column [expr $before_col + $add_sep] \ - -row $before_row -pady 2 - - } - - method remove_button {name} { - - if {[string first "-" $name] == 0} { - set name [string range $name 1 end] - set remove_sep 1 - } else { - set remove_sep 0 - } - - if {![info exists Buttons($name)] } { - error "remove_buttons called with non-existant button $name" - } - - set name_col [gridCGet $Buttons($name) -column] - set name_row [gridCGet $Buttons($name) -row] - - grid remove $Buttons($name) - if {$remove_sep} { - set Buttons(-$name) [grid slaves $ButtonFrame \ - -column [expr $name_col - 1] \ - -row $name_row] - grid remove $Buttons(-$name) - } - - set slaves [grid slaves $ButtonFrame -row $name_row] - - foreach slave $slaves { - set slave_col [gridCGet $slave -column] - if {$slave_col > $name_col} { - grid configure $slave -column [expr $slave_col - 1] - } - } - } - - method add_button_separator {} { - lappend button_list - - } - - method button_right_justify {} { - lappend button_list -- - } - - method swap_button_lists {in_list out_list} { - # Now swap out the buttons... - set first_out [lindex $out_list 0] - if {[info exists Buttons($first_out)] && [grid info $Buttons($first_out)] != ""} { - foreach button $in_list { - insert_button $button $first_out - } - foreach button $out_list { - remove_button $button - } - } elseif {[info exists Buttons($first_out)]} { - debug "Error in swap_button_list - $first_out not gridded..." - } else { - debug "Button $first_out is not in button list" - } - } - - ############################################################ - # The next set of commands control the menubar associated with the - # toolbar. Currently, only sequential addition of submenu's and menu - # entries is allowed. Here's what you do. First, create a submenu - # with the "new_menu" command. This submenu is the targeted menu. - # Subsequent calls to add_menu_separator, and add_menu_command add - # separators and commands to the end of this submenu. - # If you need to edit a submenu, call clear_menu and then add all the - # items again. - # - # Each menu command also has a class list. Transitions between states - # of gdb will enable and disable different classes of menus. - # - # FIXME - support insert_command, and also cascade menus, whenever - # we need it... - # FIXME - The toolbar and the Menubar support are glommed together in - # one class for historical reasons, but there is no good reason for this. - ############################################################ - - # ------------------------------------------------------------------ - # METHOD: create_menu_items - Add some menu items to the menubar. - # Returns 1 if any items added. - # - # num = number of last menu entry - # ------------------------------------------------------------------ - method create_menu_items {} { - # Empty - This is overridden in child classes. - } - - # ------------------------------------------------------------------ - # METHOD: new_menu - Add a new cascade menu to the Toolbar's main menu. - # Also target this menu for subsequent add_menu_command - # calls. - # - # name - the token for the new menu - # label - The label used for the label - # underline - the index of the underlined character for this menu item. - # - # RETURNS: then item number of the menu. - # ------------------------------------------------------------------ - method new_menu {name label underline} { - set current_menu $Menu.$name - set menu_list($name) [$Menu add cascade -menu $current_menu \ - -label $label -underline $underline] - menu $current_menu -tearoff 0 - - set item_number -1 - return $current_menu - } - - # ------------------------------------------------------------------ - # METHOD: menu_exists - Report whether a menu keyed by NAME exists. - # - # name - the token for the menu sought - # - # RETURNS: 1 if the menu exists, 0 otherwise. - # ------------------------------------------------------------------ - method menu_exists {name} { - return [info exists menu_list($name)] - - } - - # ------------------------------------------------------------------ - # METHOD: clear_menu - Deletes the items from one of the cascade menus - # in the Toolbar's main menu. Also makes this menu - # the target menu. - # - # name - the token for the new menu - # - # RETURNS: then item number of the menu, or "" if the menu is not found. - # ------------------------------------------------------------------ - method clear_menu {name} { - if {[info exists menu_list($name)]} { - set current_menu [$Menu entrycget $menu_list($name) -menu] - $current_menu delete 0 end - set item_number -1 - return $current_menu - } else { - return "" - } - } - - - # ------------------------------------------------------------------ - # METHOD: add_menu_separator - Adds a menu separator to the currently - # targeted submenu of the Toolbar's main menu. - # - # ------------------------------------------------------------------ - method add_menu_separator {} { - incr item_number - $current_menu add separator - } - - # ------------------------------------------------------------------ - # METHOD: add_menu_command - Adds a menu command item to the currently - # targeted submenu of the Toolbar's main menu. - # - # class - The class of the command, used for disabling entries. - # label - The text for the command. - # command - The command for the menu entry - # args - Passed to the menu entry creation command (eval'ed) - # ------------------------------------------------------------------ - method add_menu_command {class label command args} { - - eval $current_menu add command -label \$label -command \$command \ - $args - - incr item_number - - switch $class { - None {} - default { - foreach elem $class { - lappend menu_classes($elem) [list $current_menu $item_number] - } - } - } - } - - - # ------------------------------------------------------------------ - # METHOD: _load_images - Load standard images. Private method. - # ------------------------------------------------------------------ - public method _load_images { {reconfig 0} } { - global gdb_ImageDir - if {!$reconfig && $_loaded_images} { - return - } - set _loaded_images 1 - - lappend imgs console reg stack vmake vars watch memory bp - foreach name $imgs { - image create photo ${name}_img -file [file join $gdb_ImageDir ${name}.gif] - } - } - - - # ------------------------------------------------------------------ - # METHOD: _load_src_images - Load standard images. Private method. - # ------------------------------------------------------------------ - method _load_src_images { {reconf 0} } { - global gdb_ImageDir - - if {!$reconf && $_loaded_src_images} { - return - } - set _loaded_src_images 1 - - foreach name {run stop step next finish continue edit \ - stepi nexti up down bottom Movie_on Movie_off \ - next_line next_check next_hit rewind prev_hit \ - watch_movie run_expt tdump tp} { - image create photo ${name}_img -file [file join $gdb_ImageDir ${name}.gif] - } - } - - # ------------------------------------------------------------------ - # METHOD: enable_ui - enable/disable the appropriate buttons and menus - # Called from the busy, idle, and no_inferior hooks. - # - # on must be: - # value Control Other Trace State - # 0 off off off gdb is busy - # 1 on on off gdb has inferior, and is idle - # 2 off on off gdb has no inferior, and is idle - # ------------------------------------------------------------------ - public method enable_ui {on} { - global tcl_platform - debug "Toolbar::enable_ui $on - Browsing=$Browsing" - - # Do the enabling so that all the disabling happens first, this way if a - # button belongs to two groups, enabling takes precedence, which is probably right. - - switch $on { - 0 { - set enable_list {Control disabled \ - Other disabled \ - Trace disabled \ - Attach disabled \ - Detach disabled} - } - 1 { - if {!$Browsing} { - set enable_list {Trace disabled \ - Control normal \ - Other normal \ - Attach disabled \ - Detach normal } - # set the states of stepi and nexti correctly - _set_stepi - } else { - set enable_list {Control disabled Other normal Trace normal} - } - - } - 2 { - set enable_list {Control disabled \ - Trace disabled \ - Other normal \ - Attach normal \ - Detach disabled } - } - default { - debug "Unknown type: $on in enable_ui" - return - } - } - - debug "Enable list is: $enable_list" - foreach {type state} $enable_list { - if {[info exists ${type}Buttons]} { - foreach button [set ${type}Buttons] { - $button configure -state $state - } - } - if {[info exists menu_classes($type)]} { - change_menu_state $menu_classes($type) $state - } - } - - } - - # ------------------------------------------------------------------ - # METHOD: change_menu_state - Does the actual job of enabling menus... - # Pass normal or disabled for the state. - # ------------------------------------------------------------------ - method change_menu_state {menuList state} { - - foreach elem $menuList { - [lindex $elem 0] entryconfigure [lindex $elem 1] -state $state - } - } - - - # - # The next set of functions are the generic button groups that gdb uses. - # Then toolbars that derive from this class can just mix and match - # from the standard set as they please. - # - - # ------------------------------------------------------------------ - # METHOD: create_control_buttons - Creates the step, continue, etc buttons. - # ------------------------------------------------------------------ - - method create_control_buttons {} { - add_button step Control [code $source inferior step] \ - "Step (S)" -image step_img - - add_button next Control [code $source inferior next] \ - "Next (N)" -image next_img - - add_button finish Control [code $source inferior finish] \ - "Finish (F)" -image finish_img - - add_button continue Control [code $source inferior continue] \ - "Continue (C)" -image continue_img - - # A spacer before the assembly-level items looks good. It helps - # to indicate that these are somehow different. - add_button_separator - - add_button stepi Control [code $source inferior stepi] \ - "Step Asm Inst (S)" -image stepi_img - - add_button nexti Control [code $source inferior nexti] \ - "Next Asm Inst (N)" -image nexti_img - - _set_stepi - - set Run_control_buttons {step next finish continue -stepi nexti} - - } - - # ------------------------------------------------------------------ - # METHOD: create_trace_buttons - Creates the next hit, etc. - # ------------------------------------------------------------------ - - method create_trace_buttons {{show 0}} { - - if {$show} { - set command add_button - } else { - set command create_button - } - - $command tfindstart Trace {tfind_cmd "tfind start"} "First Hit " \ - -image rewind_img - - $command tfind Trace {tfind_cmd tfind} "Next Hit " -image next_hit_img - - $command tfindprev Trace {tfind_cmd "tfind -"} "Previous Hit

" \ - -image prev_hit_img - - $command tfindline Trace {tfind_cmd "tfind line"} "Next Line Hit " \ - -image next_line_img - - $command tfindtp Trace { tfind_cmd "tfind tracepoint"} \ - "Next Hit Here " -image next_check_img - - set Trace_control_buttons {tfindstart tfind tfindprev tfindline tfindtp} - - # This is a bit of a hack, but I need to bind the standard_toolbar bindings - # and appearances to these externally, since I am not inserting them in - # the original toolbar... Have to add a method to the libgui toolbar to do this. - - if {!$show} { - foreach name $Trace_control_buttons { - # Make sure the button acts the way we want, not the default Tk - # way. - set button $Buttons($name) - $button configure -takefocus 0 -highlightthickness 0 \ - -relief flat -borderwidth 1 - set index [lsearch -exact [bindtags $button] Button] - bindtags $button [lreplace [bindtags $button] $index $index \ - ToolbarButton] - } - } - } - - - # ------------------------------------------------------------------ - # METHOD: create_window_buttons - Creates the registers, etc, buttons - # ------------------------------------------------------------------ - - method create_window_buttons {} { - add_button reg Other {ManagedWin::open RegWin} "Registers (Ctrl+R)" -image reg_img - - add_button mem Other {ManagedWin::open MemWin} "Memory (Ctrl+M)" -image memory_img - - add_button stack Other {ManagedWin::open StackWin} "Stack (Ctrl+S)" -image stack_img - - add_button watch Other {ManagedWin::open WatchWin} "Watch Expressions (Ctrl+W)" \ - -image watch_img - - add_button vars Other {ManagedWin::open LocalsWin} "Local Variables (Ctrl+L)" \ - -image vars_img - - if {[pref get gdb/control_target]} { - add_button bp Other {ManagedWin::open BpWin} "Breakpoints (Ctrl+B)" -image bp_img - } - - if {[pref get gdb/mode]} { - add_button tp Other {ManagedWin::open BpWin -tracepoints 1} \ - "Tracepoints (Ctrl+T)" -image tp_img - - add_button tdump Trace {ManagedWin::open TdumpWin} "Tdump (Ctrl+D)" -image tdump_img - } - - add_button con Other {ManagedWin::open Console} "Console (Ctrl+N)" \ - -image console_img - } - - # - # The next set of functions create the common menu groupings that - # are used in gdb menus. - # - - - # ------------------------------------------------------------------ - # METHOD: create_view_menu - Creates the standard view menu - # ------------------------------------------------------------------ - - method create_view_menu {} { - new_menu view "View" 0 - - add_menu_command Other "Stack" {ManagedWin::open StackWin} \ - -underline 0 -accelerator "Ctrl+S" - - add_menu_command Other "Registers" {ManagedWin::open RegWin} \ - -underline 0 -accelerator "Ctrl+R" - - add_menu_command Other "Memory" {ManagedWin::open MemWin} \ - -underline 0 -accelerator "Ctrl+M" - - add_menu_command Other "Watch Expressions" {ManagedWin::open WatchWin} \ - -underline 0 -accelerator "Ctrl+W" - add_menu_command Other "Local Variables" {ManagedWin::open LocalsWin} \ - -underline 0 -accelerator "Ctrl+L" - - if {[pref get gdb/control_target]} { - add_menu_command Other "Breakpoints" \ - {ManagedWin::open BpWin -tracepoints 0} \ - -underline 0 -accelerator "Ctrl+B" - } - - if {[pref get gdb/mode]} { - add_menu_command Other "Tracepoints" \ - {ManagedWin::open BpWin -tracepoints 1} \ - -underline 0 -accelerator "Ctrl+T" - add_menu_command Other "Tdump" {ManagedWin::open TdumpWin} \ - -underline 2 -accelerator "Ctrl+U" - - } - - add_menu_command Other "Console" {ManagedWin::open Console} \ - -underline 2 -accelerator "Ctrl+N" - - add_menu_command Other "Function Browser" {ManagedWin::open BrowserWin} \ - -underline 1 -accelerator "Ctrl+F" - add_menu_command Other "Thread List" {ManagedWin::open ProcessWin} \ - -underline 0 -accelerator "Ctrl+H" - if {[info exists ::env(GDBTK_DEBUG)] && $::env(GDBTK_DEBUG)} { - add_menu_separator - add_menu_command Other "Debug Window" {ManagedWin::open DebugWin} \ - -underline 3 -accelerator "Ctrl+U" - } - } - - # ------------------------------------------------------------------ - # METHOD: create_control_menu - Creates the standard control menu - # ------------------------------------------------------------------ - - method create_control_menu {} { - new_menu cntrl "Control" 0 - - add_menu_command Control "Step" [code $source inferior step] \ - -underline 0 -accelerator S - - add_menu_command Control "Next" [code $source inferior next] \ - -underline 0 -accelerator N - - add_menu_command Control "Finish" [code $source inferior finish] \ - -underline 0 -accelerator F - - add_menu_command Control "Continue" \ - [code $source inferior continue] \ - -underline 0 -accelerator C - - add_menu_separator - add_menu_command Control "Step Asm Inst" \ - [code $source inferior stepi] \ - -underline 1 -accelerator S - - add_menu_command Control "Next Asm Inst" \ - [code $source inferior nexti] \ - -underline 1 -accelerator N - - # add_menu_separator - # add_menu_command Other "Automatic Step" auto_step - - } - - # ------------------------------------------------------------------ - # METHOD: create_trace_menu - Creates the standard trace menu - # ------------------------------------------------------------------ - - method create_trace_menu {} { - new_menu trace "Trace" 0 - - add_menu_command Other "Save Trace Commands..." "save_trace_commands" \ - -underline 0 - - add_menu_separator - - add_menu_command Trace "Next Hit" {tfind_cmd tfind} \ - -underline 0 -accelerator N - - add_menu_command Trace "Previous Hit" {tfind_cmd "tfind -"} \ - -underline 0 -accelerator P - - add_menu_command Trace "First Hit" {tfind_cmd "tfind start"} \ - -underline 0 -accelerator F - - add_menu_command Trace "Next Line Hit" {tfind_cmd "tfind line"} \ - -underline 5 -accelerator L - - add_menu_command Trace "Next Hit Here" {tfind_cmd "tfind tracepoint"} \ - -underline 9 -accelerator H - - add_menu_separator - add_menu_command Trace "Tfind Line..." \ - "ManagedWin::open TfindArgs -Type LN" \ - -underline 9 -accelerator E - - add_menu_command Trace "Tfind PC..." \ - "ManagedWin::open TfindArgs -Type PC" \ - -underline 7 -accelerator C - - add_menu_command Trace "Tfind Tracepoint..." \ - "ManagedWin::open TfindArgs -Type TP" \ - -underline 6 -accelerator T - - add_menu_command Trace "Tfind Frame..." \ - "ManagedWin::open TfindArgs -Type FR" \ - -underline 6 -accelerator F - } - - # ------------------------------------------------------------------ - # METHOD: create_help_menu - Creates the standard help menu - # ------------------------------------------------------------------ - method create_help_menu {} { - new_menu help "Help" 0 - add_menu_command Other "Help Topics" {HtmlViewer::open_help index.html} \ - -underline 0 - add_menu_separator - add_menu_command Other "About GDB..." {ManagedWin::open About -transient} \ - -underline 0 - } - - # ------------------------------------------------------------------ - # METHOD: set_hook - run when user enters a `set' command. - # ------------------------------------------------------------------ - method set_hook {varname value} { - debug "Got $varname = $value" - if {$varname == "os"} { - set save_menu $current_menu - set current_menu $Menu.view - set title "Kernel Objects" - if {[catch {$current_menu index $title} index]} { - set index none - } - if {$value == ""} { - # No OS, so remove KOD from View menu. - if {$index != "none"} { - $current_menu delete $index - } - } else { - # Add KOD to View menu, but only if it isn't already there. - if {$index == "none"} { - add_menu_command Other $title {ManagedWin::open KodWin} \ - -underline 0 -accelerator "Ctrl+K" - } - } - set current_menu $save_menu - - global gdb_kod_cmd - set gdb_kod_cmd $value - } - } - - # - # PROTECTED DATA - # - - # - # FIXME - Need to break the images into the sets needed for - # each button group, and load them when the button group is - # created. - - # This is set if we've already loaded the standard images. - private common _loaded_images 0 - - # This is set if we've already loaded the standard images. Private - # variable. - private common _loaded_src_images 0 - - # - # PUBLIC DATA - # - - # This is a handle on our parent source window. - protected variable source {} - - public variable Tracing 0 ;# Is tracing enabled for this gdb? - public variable Browsing 0 ;# Are we currently browsing a trace experiment? - public variable Collecting 0 ;# Are we currently collecting a trace experiment? - - # The list of all control buttons (ones which should be disabled when - # not running anything or when inferior is running) - protected variable ControlButtons {} - - # The list of all other buttons (which are disabled when inderior is - # running) - protected variable OtherButtons {} - - # The list of buttons that are enabled when we are in trace browse - # mode... - protected variable TraceButtons {} - - # This is the list of buttons that are being built up - # - private variable button_list {} - - # - # This is an array of buttons names -> Tk Window names - # - - protected variable Buttons - - # The main window's menu - private variable Menu - - #The frame to contain the buttons: - protected variable ButtonFrame - - # This array holds the menu classes. The key is the class name, - # and the value is the list of menus belonging to this class. - - protected variable menu_classes - - # These buttons go in the control area when we are browsing - protected variable Trace_control_buttons - - # And these go in the control area when we are running - protected variable Run_control_buttons - - protected variable item_number -1 - protected variable current_menu {} -}