a6729a70b3
Submitted in PR pkg/17423 by Rui-Xiang Guo <rxg@ms25.url.com.tw> TkDesk is a graphical file manager for Unix and the X-Window System. It offers a very rich set of file operations and services, and provides the user with an immense amount of configurability. TkDesk's configuration flexibility results from the use of Tcl/Tk as the primary implementation language. Another benefit of using Tcl/Tk is that TkDesk is very portable and runs on virtually any Unix platform.
44 lines
1.3 KiB
Text
44 lines
1.3 KiB
Text
$NetBSD: patch-ak,v 1.1.1.1 2002/07/03 09:27:01 dmcmahill Exp $
|
|
|
|
--- tcldesk/util.tcl.orig Fri Jun 28 15:05:45 2002
|
|
+++ tcldesk/util.tcl
|
|
@@ -112,8 +112,8 @@
|
|
#}
|
|
if {$windows != ""} {
|
|
foreach win $windows {
|
|
- #puts "blt_busy(1) hold $win"
|
|
- catch {blt_busy hold $win \
|
|
+ #puts "busy(1) hold $win"
|
|
+ catch {busy hold $win \
|
|
-cursor "@$cb_tools(path)/bitmaps/timer1.xbm \
|
|
$cb_tools(path)/bitmaps/timer.mask.xbm black white"}
|
|
if {[lsearch $dsk_busy(windows) $win] < 0} {
|
|
@@ -141,8 +141,8 @@
|
|
|
|
set cb_balloonHelp(bltbusy) 1
|
|
foreach win $dsk_busy(busy) {
|
|
- #puts "blt_busy(2) hold $win"
|
|
- catch {blt_busy hold $win \
|
|
+ #puts "busy(2) hold $win"
|
|
+ catch {busy hold $win \
|
|
-cursor "@$cb_tools(path)/bitmaps/timer1.xbm \
|
|
$cb_tools(path)/bitmaps/timer.mask.xbm black white"}
|
|
}
|
|
@@ -177,7 +177,7 @@
|
|
#}
|
|
if {$windows != ""} {
|
|
foreach win $windows {
|
|
- catch {blt_busy release $win}
|
|
+ catch {busy release $win}
|
|
set l [lsearch $dsk_busy(windows) $win]
|
|
if {$l >= 0} {
|
|
set dsk_busy(windows) [lreplace $dsk_busy(windows) $l $l]
|
|
@@ -202,7 +202,7 @@
|
|
|
|
foreach win $dsk_busy(busy) {
|
|
if {([lsearch $dsk_busy(windows) $win] < 0) || ($force != "")} {
|
|
- catch {blt_busy release $win}
|
|
+ catch {busy release $win}
|
|
}
|
|
}
|
|
|