blob: b86d3670a64305148474b4f68cdad680b63acb6c (
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
|
$NetBSD: patch-ac,v 1.1.1.1 2009/07/07 16:10:18 sborrill Exp $
--- wbd.tcl.orig 1999-02-16 17:34:49.000000000 +0000
+++ wbd.tcl 2005-12-23 08:34:15.000000000 +0000
@@ -1,4 +1,3 @@
-#
# Copyright (c) 1997 Loughborough University
# All rights reserved.
#
@@ -1294,6 +1293,7 @@
proc StateWB {state} {
+ global W
if {$state == "0"} {set state normal}
if {$state == "1"} {set state disabled}
@@ -1314,8 +1314,10 @@
$w2.font configure -state $state
# $w1.quit configure -state $state
$w3.newpage configure -state $state
- $w3.impps configure -state $state
- $w3.imptext configure -state $state
+ if {$W(blockimport) == 0} {
+ $w3.impps configure -state $state
+ $w3.imptext configure -state $state
+ }
# $w3.dump configure -state $state
# $w3.load configure -state $state
$w3.grab configure -state $state
@@ -1635,20 +1637,21 @@
proc BuildInfo {w} {
- global GWbdFont
+ global GWbdFont W
button $w.newpage -width 8 -text {New Page} \
-font $GWbdFont -command PageNew
pack $w.newpage -side left
- button $w.impps -width 8 -text {Import PS} \
- -font $GWbdFont -command ImportPS
- pack $w.impps -side left
-
- button $w.imptext -width 8 -text {Import Text} \
- -font $GWbdFont -command ImportText
- pack $w.imptext -side left
-
+ if {$W(blockimport) == 0} {
+ button $w.impps -width 8 -text {Import PS} \
+ -font $GWbdFont -command ImportPS
+ pack $w.impps -side left
+
+ button $w.imptext -width 8 -text {Import Text} \
+ -font $GWbdFont -command ImportText
+ pack $w.imptext -side left
+ }
# button $w.ps -width 8 -text {Print} -command PrintWB \
# -font $GWbdFont
# pack $w.ps -side left
|
