mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-24 00:45:52 +00:00
- Use itcl as a dependency instead of itk.
- Include extra patches from master web site fixing various problems. - Use FreeBSD-specific utils (e.g. 'vipw' instead of 'vi /etc/passwd') or correct non-FreeBSD flags to system programs (e.g. 'du -D' will not work on FreeBSD). PR: 18725 Submitted by: Andy Sparrow <andy@geek4food.org>
This commit is contained in:
Steve Price
parent
809da0a360
commit
c4a4317a53
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=28883
@ -12,9 +12,9 @@ MASTER_SITES= http://sd.znet.com/~jchris/tkdesk/ \
|
||||
${MASTER_SITE_SUNSITE}
|
||||
MASTER_SITE_SUBDIR= X11/desktop
|
||||
|
||||
MAINTAINER= dmlb@ragnet.demon.co.uk
|
||||
MAINTAINER= andy@geek4food.org
|
||||
|
||||
LIB_DEPENDS= itk30.1:${PORTSDIR}/x11-toolkits/itk \
|
||||
LIB_DEPENDS= itcl30.1:${PORTSDIR}/lang/itcl \
|
||||
BLT24.2:${PORTSDIR}/x11-toolkits/blt
|
||||
|
||||
USE_GMAKE= YES
|
||||
@ -26,6 +26,9 @@ CONFIGURE_ARGS+= --with-blt=${LOCALBASE}/lib
|
||||
|
||||
MAN1= tkdesk.1 cd-tkdesk.1 ed-tkdesk.1 od-tkdesk.1
|
||||
|
||||
pre-install:
|
||||
@find ${WRKSRC} -type f -name '*.orig' -exec ${RM} -f {} ';'
|
||||
|
||||
post-install:
|
||||
strip ${PREFIX}/bin/tkdesksh
|
||||
strip ${PREFIX}/bin/tkdeskclient
|
||||
|
||||
29
x11-fm/tkdesk/files/patch-ac
Normal file
29
x11-fm/tkdesk/files/patch-ac
Normal file
@ -0,0 +1,29 @@
|
||||
--- tcldesk/configs/AppBar.orig Sun Nov 14 14:07:53 1999
|
||||
+++ tcldesk/configs/AppBar Thu Apr 27 21:48:58 2000
|
||||
@@ -282,7 +282,7 @@
|
||||
{{TkDesk User's Guide } {dsk_help guide}}
|
||||
{{FAQ } {dsk_help faq}}
|
||||
{{Changes} {dsk_help changes}}
|
||||
- {{TkDesk Homepage } {dsk_netscape url http://people.mainz.netsurf.de/~bolik/tkdesk/ window}}
|
||||
+ {{TkDesk Homepage } {dsk_netscape url http://sd.znet.com/~jchris/tkdesk/ window}}
|
||||
-
|
||||
{{Manual Page ...} {
|
||||
dsk_read_string {Show manual page for: (e.g. col(1))} {
|
||||
@@ -392,7 +392,7 @@
|
||||
}
|
||||
}
|
||||
{{Superuser}
|
||||
- {{Edit password file} {dsk_exec_as_root vi /etc/passwd}}
|
||||
+ {{Edit password file} {dsk_exec_as_root vipw}}
|
||||
{{Edit /etc/hosts} {dsk_exec_as_root vi /etc/hosts}}
|
||||
}
|
||||
-
|
||||
@@ -476,7 +476,7 @@
|
||||
}}
|
||||
}
|
||||
{{Locations}
|
||||
- {{TkDesk Homepage } {dsk_netscape url http://people.mainz.netsurf.de/~bolik/tkdesk/ window}}
|
||||
+ {{TkDesk Homepage } {dsk_netscape url http://sd.znet.com/~jchris/tkdesk/ window}}
|
||||
{{AltaVista } {dsk_netscape url http://www.altavista.digital.com window}}
|
||||
{{Tcl/Tk at Sun } {dsk_netscape url http://www.sunlabs.com/research/tcl window}}
|
||||
}
|
||||
20
x11-fm/tkdesk/files/patch-ad
Normal file
20
x11-fm/tkdesk/files/patch-ad
Normal file
@ -0,0 +1,20 @@
|
||||
--- tcldesk/configs/AppBar_Be.orig Sun Nov 14 14:07:53 1999
|
||||
+++ tcldesk/configs/AppBar_Be Thu Apr 27 21:48:34 2000
|
||||
@@ -241,7 +241,7 @@
|
||||
{{TkDesk User's Guide } {dsk_help guide}}
|
||||
{{FAQ } {dsk_help faq}}
|
||||
{{Changes} {dsk_help changes}}
|
||||
- {{TkDesk Homepage } {dsk_netscape url http://people.mainz.netsurf.de/~bolik/tkdesk/ window}}
|
||||
+ {{TkDesk Homepage } {dsk_netscape url http://sd.znet.com/~jchris/tkdesk/ window}}
|
||||
-
|
||||
{{Manual Page ...} {
|
||||
dsk_read_string {Show manual page for: (e.g. col(1))} {
|
||||
@@ -333,7 +333,7 @@
|
||||
}}
|
||||
}
|
||||
{{Locations}
|
||||
- {{TkDesk Homepage } {dsk_netscape url http://people.mainz.netsurf.de/~bolik/tkdesk/ window}}
|
||||
+ {{TkDesk Homepage } {dsk_netscape url http://sd.znet.com/~jchris/tkdesk/ window}}
|
||||
{{AltaVista } {dsk_netscape url http://www.altavista.digital.com window}}
|
||||
{{Tcl/Tk at Sun } {dsk_netscape url http://www.sunlabs.com/research/tcl window}}
|
||||
}
|
||||
11
x11-fm/tkdesk/files/patch-ae
Normal file
11
x11-fm/tkdesk/files/patch-ae
Normal file
@ -0,0 +1,11 @@
|
||||
--- tcldesk/configs/System.orig Sat Apr 29 18:20:13 2000
|
||||
+++ tcldesk/configs/System Sat Apr 29 18:21:05 2000
|
||||
@@ -132,7 +132,7 @@
|
||||
### most cases).
|
||||
|
||||
set tkdesk(cmd,whoami) "whoami" ;# used to determine user's login name
|
||||
-set tkdesk(cmd,du) "du -Dk" ;# for Disk Usage: usage in KB
|
||||
+set tkdesk(cmd,du) "du -k" ;# for Disk Usage: usage in KB
|
||||
set tkdesk(cmd,df) "df" ;# for getting free disk space in KB
|
||||
set tkdesk(cmd,sort) "sort -rn" ;# for Disk Usage: list biggest first
|
||||
set tkdesk(cmd,cp) "cp -r" ;# copy recursively
|
||||
17
x11-fm/tkdesk/files/patch-af
Normal file
17
x11-fm/tkdesk/files/patch-af
Normal file
@ -0,0 +1,17 @@
|
||||
--- tcldesk/appbar.tcl.orig Sun Nov 14 16:07:47 1999
|
||||
+++ tcldesk/appbar.tcl Sun May 28 16:30:32 2000
|
||||
@@ -631,12 +631,13 @@
|
||||
}
|
||||
}
|
||||
|
||||
-proc _appbar_dd_action {cmd flist} {
|
||||
+proc _appbar_dd_action {cmd args} {
|
||||
global tkdesk
|
||||
|
||||
catch "wm withdraw $tkdesk(dd_token_window)"
|
||||
update
|
||||
|
||||
+ set flist $args
|
||||
if {[string first %A $cmd] > -1} {
|
||||
set cmd [string_replace $cmd %A $flist]
|
||||
} else {
|
||||
21
x11-fm/tkdesk/files/patch-ag
Normal file
21
x11-fm/tkdesk/files/patch-ag
Normal file
@ -0,0 +1,21 @@
|
||||
--- tcldesk/delete.tcl.orig Sun Nov 14 16:07:47 1999
|
||||
+++ tcldesk/delete.tcl Sun May 28 16:30:32 2000
|
||||
@@ -381,12 +381,12 @@
|
||||
if {[cb_okcancel "Empty trash can?\nThis will delete ALL files in the trash can!"] == 0} {
|
||||
dsk_sound dsk_really_deleting
|
||||
if {$anum == 1} {set fll "File"} {set fll "Files"}
|
||||
- #set tlist ""
|
||||
- #foreach f $alist {
|
||||
- # lappend tlist [string trimright \
|
||||
- # $tkdesk(trashdir)/$f " "]
|
||||
- #}
|
||||
- dsk_bgexec "$tkdesk(cmd,rm) .* *" "Deleting $anum $fll..."
|
||||
+ set tlist ""
|
||||
+ foreach f $alist {
|
||||
+ lappend tlist [string trimright \
|
||||
+ $tkdesk(trashdir)/$f " "]
|
||||
+ }
|
||||
+ dsk_bgexec "$tkdesk(cmd,rm) $tlist" "Deleting $anum $fll..."
|
||||
dsk_refresh $tkdesk(trashdir)
|
||||
}
|
||||
}
|
||||
24
x11-fm/tkdesk/files/patch-ah
Normal file
24
x11-fm/tkdesk/files/patch-ah
Normal file
@ -0,0 +1,24 @@
|
||||
--- tkdesk.main.orig Sun Nov 14 16:07:45 1999
|
||||
+++ tkdesk.main Sun May 28 16:30:32 2000
|
||||
@@ -682,6 +682,12 @@
|
||||
blt_drag&drop errors ""
|
||||
}
|
||||
|
||||
+# Disable BLT's built-in d&d bindings (except for motion):
|
||||
+catch {
|
||||
+ bind BltDrag&DropButton2 <Button-2> {}
|
||||
+ bind BltDrag&DropButton2 <ButtonRelease-2> {}
|
||||
+}
|
||||
+
|
||||
#
|
||||
# ==== Set misc. global variables ============================================
|
||||
#
|
||||
@@ -1004,7 +1010,7 @@
|
||||
}
|
||||
|
||||
foreach obj [itcl_info objects -class dsk_Editor] {
|
||||
- if [winfo exists $obj] {
|
||||
+ if [winfo exists [$obj getToplevel]] {
|
||||
if {[$obj close_win] == "cancel"} {
|
||||
return
|
||||
}
|
||||
11
x11-fm/tkdesk/files/patch-ai
Normal file
11
x11-fm/tkdesk/files/patch-ai
Normal file
@ -0,0 +1,11 @@
|
||||
--- tcldesk/find.tcl.orig Sun Nov 14 16:07:47 1999
|
||||
+++ tcldesk/find.tcl Sun May 28 16:30:32 2000
|
||||
@@ -805,7 +805,7 @@
|
||||
set flist ""
|
||||
set list [$dlb get]
|
||||
foreach f $fl {
|
||||
- lappend flist [lindex [lindex $list $f] 0]
|
||||
+ lappend flist [lindex [split [lindex $list $f] \t] 0]
|
||||
}
|
||||
|
||||
set nfiles 0
|
||||
@ -1,2 +1,4 @@
|
||||
TkDesk is a graphical, highly configurable and powerful file manager
|
||||
for Unix and the X Window System.
|
||||
|
||||
WWW: http://sd.znet.net/~jchris/tkdesk
|
||||
|
||||
Loading…
Reference in New Issue
Block a user