blob: 6906b9ba47aeac80e50339b1749b8e00393debc6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
# IPC preferences dialog for Insight.
# Copyright (C) 2004 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
# 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.
# ------------------------------------------------------------------
# CONSTRUCTOR - create new IPC preferences window
# ------------------------------------------------------------------
itcl::body IPCPref::constructor {args} {
window_name "Insight IPC Preferences"
_init_var
_build_win
}
# ------------------------------------------------------------------
# METHOD: init_var - initialize preference variables
# ------------------------------------------------------------------
itcl::body IPCPref::_init_var {} {
set vlist [list gdb/ipc/enabled gdb/ipc/port gdb/ipc/step_button gdb/ipc/stop_button \
gdb/ipc/cont_button gdb/ipc/exit gdb/ipc/run_button]
foreach var $vlist {
set _saved($var) [pref get $var]
set _new($var) $_saved($var)
}
}
# ------------------------------------------------------------------
# METHOD: build_win - build the dialog
# ------------------------------------------------------------------
itcl::body IPCPref::_build_win {} {
frame $itk_interior.f
frame $itk_interior.f.a
frame $itk_interior.f.b
set f $itk_interior.f.a
# Description frame
set d [labelframe $f.desc -text "Description"]
label $d.txt -justify left -wraplength 6i -background $::Colors(textbg) \
-text "Some multiprocessor systems use multiple instances of Insight \
for debugging different CPUs. In these cases it may be desirable to have \
all the instances stop, start, or continue at the same time. The IPC \
feature can do that and more.\n\nThe IPC uses local TCP connections to the\
port number specified below."
pack $d.txt -side top
checkbutton $f.enabled -text "Enable IPC" -variable [scope _new(gdb/ipc/enabled)]
frame $f.port
spinbox $f.port.box -from 0 -to 65535 -wrap 0\
-width 6 -textvariable [scope _new(gdb/ipc/port)] -validate key \
-vcmd {string is integer %P}
label $f.port.label -text "TCP Port Number"
pack $f.desc -expand yes -fill both
pack $f.enabled -anchor w -pady 10
pack $f.port.box $f.port.label -side left -pady 10
pack $f.port -anchor w -pady 10
set w [labelframe $f.buttons -text "Enable IPC on these buttons"]
checkbutton $w.0 -text "Run" -variable [scope _new(gdb/ipc/run_button)]
checkbutton $w.1 -text "Stop" -variable [scope _new(gdb/ipc/stop_button)]
checkbutton $w.2 -text "Continue" -variable [scope _new(gdb/ipc/cont_button)]
checkbutton $w.3 -text "Step" -variable [scope _new(gdb/ipc/step_button)]
checkbutton $w.4 -text "Exit" -variable [scope _new(gdb/ipc/exit)]
grid $w.0 $w.1 -padx 10 -pady 10 -sticky w
grid $w.2 $w.3 -padx 10 -pady 10 -sticky w
grid $w.4 -padx 10 -pady 10 -sticky w
pack $w -fill both -expand yes
pack $f.buttons -fill both -expand yes
button $itk_interior.f.b.ok -text OK -width 7 -underline 0 -command [code $this _save]
button $itk_interior.f.b.quit -text Cancel -width 7 -underline 0 -command [code $this _cancel]
standard_button_box $itk_interior.f.b
pack $itk_interior.f.a $itk_interior.f.b $itk_interior.f -expand yes -fill both -padx 5 -pady 5
}
# ------------------------------------------------------------------
# METHOD: apply - apply changes
# ------------------------------------------------------------------
itcl::body IPCPref::_apply {} {
set enable_changed 0
if {[pref get gdb/ipc/enabled] != $_new(gdb/ipc/enabled)} {
set enable_changed 1
}
if {$_new(gdb/ipc/enabled) && [pref get gdb/ipc/port] != $_new(gdb/ipc/port)} {
set enable_changed 1
}
foreach var [array names _new] {
if {$_new($var) != [pref get $var]} {
pref set $var $_new($var)
}
}
if {$enable_changed} {
if {$_new(gdb/ipc/enabled)} {
# must start up ipc
catch {delete object $::insight_ipc}
set ::insight_ipc [Iipc \#auto]
} else {
delete object $::insight_ipc
}
}
}
# ------------------------------------------------------------------
# METHOD: _cancel
# ------------------------------------------------------------------
itcl::body IPCPref::_cancel {} {
foreach elem [array names _saved] {
set cur_val [pref get $elem]
if {[string compare $cur_val $_saved($elem)] != 0} {
pref set $elem $_saved($elem)
}
}
unpost
}
# ------------------------------------------------------------------
# METHOD: save - apply changes and quit
# ------------------------------------------------------------------
itcl::body IPCPref::_save {} {
_apply
unpost
}
|
