File: od-tkdesk

package info (click to toggle)
tkdesk 2.0-12
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 6,596 kB
  • sloc: tcl: 20,764; ansic: 16,262; sh: 359; makefile: 233
file content (19 lines) | stat: -rwxr-xr-x 468 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/bin/sh
#
# Usage: od-tkdesk [directory]
# Opens directory in a new TkDesk window, or, if no arg is given, does
# the same for the current working directory.

if [ $# -gt 0 ]; then
  DIR=$1
  if [ "$DIR" = "." ]; then
    DIR=`pwd`
  elif [ "$DIR" = ".." ]; then
    DIR=`dirname $(pwd)`
  elif [ "x`echo $DIR | grep '^[/~]'`" = "x" ]; then
    DIR=`pwd`/$DIR
  fi
  tkdeskclient "dsk_open_dir $DIR" >/dev/null
else
  tkdeskclient "dsk_open_dir `pwd`" >/dev/null
fi