blob: 6c250bc7159f9373653b5c7dd9d1f15fd2ab6f9b (
plain) (
blame)
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
|
set Resources(tcl_panel) {
!--------------------------------
! Define a debug Tcl shell.
!--------------------------------
*tcl_panel.width: 550
*tcl_panel.height: 180
*tcl_panel.title: Debug TCL Command Entry
*tclLayout*borderWidth: 0
*tclLayout*Frame.frameType: sunken
*tclLayout*Frame.frameWidth: 2
*tclLayout.layout: vertical { \
0 < +0 -0 > \
tclCmdGroup < +inf -inf * > \
tclFrame < +inf -inf * +inf -inf> \
0 < +0 -0 > \
}
*tclEntry*foreground: black
*tclEntry*editType: edit
*tclEntry*type: string
*tclEntry*font: 7x13
*tclEntry*scrollVertical: Always
*tclEntry*scrollHorizontal: whenNeeded
*tclCmdGroup.label:
*tclCmdGroup.outerOffset: 0
*tclCmdGroup.innerOffset: 0
*tclCmd.layout: vertical { \
5 \
horizontal { \
5 \
tclClear 3 \
tclExecute \
10 < +inf -10> \
tclDismiss \
5 \
} \
5 \
}
*tclClear.label: Clear
*tclExecute.label: Execute
*tclDismiss.label: Dismiss
}
|
