Index: prefs.tcl =================================================================== RCS file: /cvs/src/src/gdb/gdbtk/library/prefs.tcl,v retrieving revision 1.20 diff -p -r1.20 prefs.tcl *** prefs.tcl 8 Nov 2002 20:56:44 -0000 1.20 --- prefs.tcl 11 Nov 2002 22:28:03 -0000 *************** proc pref_set_defaults {} { *** 385,391 **** pref define gdb/bp/show_threads 0 # Help ! pref define gdb/help/browser 0 # Kernel Objects (kod) pref define gdb/kod/show_icon 0 --- 385,391 ---- pref define gdb/bp/show_threads 0 # Help ! pref define gdb/help/browsername "" # Kernel Objects (kod) pref define gdb/kod/show_icon 0 Index: vartree.itb =================================================================== RCS file: /cvs/src/src/gdb/gdbtk/library/vartree.itb,v retrieving revision 1.1 diff -p -r1.1 vartree.itb *** vartree.itb 6 Nov 2002 21:05:23 -0000 1.1 --- vartree.itb 11 Nov 2002 22:28:03 -0000 *************** itcl::body VarTree::_but3 {x y X Y} { *** 335,343 **** $pop add command -label "Delete" -command [code $this remove $var] $pop add separator if {$type == "local"} { ! $pop add command -label "Help" -command "HtmlViewer::open_help watch.html" } else { ! $pop add command -label "Help" -command "HtmlViewer::open_help locals.html" } $pop add separator $pop add command -label "Close" -command "destroy [winfo toplevel $itk_interior]" --- 335,343 ---- $pop add command -label "Delete" -command [code $this remove $var] $pop add separator if {$type == "local"} { ! $pop add command -label "Help" -command "open_help watch.html" } else { ! $pop add command -label "Help" -command "open_help locals.html" } $pop add separator $pop add command -label "Close" -command "destroy [winfo toplevel $itk_interior]" *************** itcl::body VarTree::_do_default_menu {X *** 356,364 **** $pop add separator $pop add command -label "Sort" -command [code $this _sort] if {$type == "local"} { ! $pop add command -label "Help" -command "HtmlViewer::open_help watch.html" } else { ! $pop add command -label "Help" -command "HtmlViewer::open_help locals.html" } $pop add separator $pop add command -label "Close" -command "destroy [winfo toplevel $itk_interior]" --- 356,364 ---- $pop add separator $pop add command -label "Sort" -command [code $this _sort] if {$type == "local"} { ! $pop add command -label "Help" -command "open_help watch.html" } else { ! $pop add command -label "Help" -command "open_help locals.html" } $pop add separator $pop add command -label "Close" -command "destroy [winfo toplevel $itk_interior]"