Artifact
dc6c13f2c8d59b9acc6d5bf48bcff4ab8aaa3432:
Attachment "patch" to
ticket [450914ffff]
added by
dgp
2001-08-15 02:39:53.
Index: modules/ftp/example/hpupdate.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftp/example/hpupdate.tcl,v
retrieving revision 1.2
diff -u -r1.2 hpupdate.tcl
--- modules/ftp/example/hpupdate.tcl 2000/07/09 20:13:35 1.2
+++ modules/ftp/example/hpupdate.tcl 2001/08/14 19:37:38
@@ -32,6 +32,10 @@
# load required FTP package library
package require ftp 2.0
+package require Tk
+if {![llength [info commands tkButtonInvoke]]} {
+ ::tk::unsupported::ExposePrivateCommand tkButtonInvoke
+}
# LED Colors
set status(off) "#006666"
