[BACK]Return to patch-ac CVS log [TXT][DIR] Up to [cvs.NetBSD.org] / pkgsrc / mbone / wbd / patches

File: [cvs.NetBSD.org] / pkgsrc / mbone / wbd / patches / patch-ac (download)

Revision 1.1.1.1 (vendor branch), Tue Jul 7 16:10:18 2009 UTC (13 years, 1 month ago) by sborrill
Branch: TNF, MAIN
CVS Tags: pkgsrc-base, pkgsrc-2022Q2-base, pkgsrc-2022Q2, pkgsrc-2022Q1-base, pkgsrc-2022Q1, pkgsrc-2021Q4-base, pkgsrc-2021Q4, pkgsrc-2021Q3-base, pkgsrc-2021Q3, pkgsrc-2021Q2-base, pkgsrc-2021Q2, pkgsrc-2021Q1-base, pkgsrc-2021Q1, pkgsrc-2020Q4-base, pkgsrc-2020Q4, pkgsrc-2020Q3-base, pkgsrc-2020Q3, pkgsrc-2020Q2-base, pkgsrc-2020Q2, pkgsrc-2020Q1-base, pkgsrc-2020Q1, pkgsrc-2019Q4-base, pkgsrc-2019Q4, pkgsrc-2019Q3-base, pkgsrc-2019Q3, pkgsrc-2019Q2-base, pkgsrc-2019Q2, pkgsrc-2019Q1-base, pkgsrc-2019Q1, pkgsrc-2018Q4-base, pkgsrc-2018Q4, pkgsrc-2018Q3-base, pkgsrc-2018Q3, pkgsrc-2018Q2-base, pkgsrc-2018Q2, pkgsrc-2018Q1-base, pkgsrc-2018Q1, pkgsrc-2017Q4-base, pkgsrc-2017Q4, pkgsrc-2017Q3-base, pkgsrc-2017Q3, pkgsrc-2017Q2-base, pkgsrc-2017Q2, pkgsrc-2017Q1-base, pkgsrc-2017Q1, pkgsrc-2016Q4-base, pkgsrc-2016Q4, pkgsrc-2016Q3-base, pkgsrc-2016Q3, pkgsrc-2016Q2-base, pkgsrc-2016Q2, pkgsrc-2016Q1-base, pkgsrc-2016Q1, pkgsrc-2015Q4-base, pkgsrc-2015Q4, pkgsrc-2015Q3-base, pkgsrc-2015Q3, pkgsrc-2015Q2-base, pkgsrc-2015Q2, pkgsrc-2015Q1-base, pkgsrc-2015Q1, pkgsrc-2014Q4-base, pkgsrc-2014Q4, pkgsrc-2014Q3-base, pkgsrc-2014Q3, pkgsrc-2014Q2-base, pkgsrc-2014Q2, pkgsrc-2014Q1-base, pkgsrc-2014Q1, pkgsrc-2013Q4-base, pkgsrc-2013Q4, pkgsrc-2013Q3-base, pkgsrc-2013Q3, pkgsrc-2013Q2-base, pkgsrc-2013Q2, pkgsrc-2013Q1-base, pkgsrc-2013Q1, pkgsrc-2012Q4-base, pkgsrc-2012Q4, pkgsrc-2012Q3-base, pkgsrc-2012Q3, pkgsrc-2012Q2-base, pkgsrc-2012Q2, pkgsrc-2012Q1-base, pkgsrc-2012Q1, pkgsrc-2011Q4-base, pkgsrc-2011Q4, pkgsrc-2011Q3-base, pkgsrc-2011Q3, pkgsrc-2011Q2-base, pkgsrc-2011Q2, pkgsrc-2011Q1-base, pkgsrc-2011Q1, pkgsrc-2010Q4-base, pkgsrc-2010Q4, pkgsrc-2010Q3-base, pkgsrc-2010Q3, pkgsrc-2010Q2-base, pkgsrc-2010Q2, pkgsrc-2010Q1-base, pkgsrc-2010Q1, pkgsrc-2009Q4-base, pkgsrc-2009Q4, pkgsrc-2009Q3-base, pkgsrc-2009Q3, HEAD
Changes since 1.1: +0 -0 lines

wbd, the UCB/LBNL whiteboard tool, is a real-time shared whiteboard
application.

$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