file open dialog

**marcdevil** · 20-02-2002, 13:00

hi, ich suche eine "file open" dialogbox unter X, welche im quellcode vorliegt, bzw ein script ist, damit ich die anwendung flexibel aendern kann, mit dem die ausgesuchte datei geoeffnet werden soll.
ich glaub perlTK ist da am besten geeignet, kann aber auch was anderes sein, hauptsache schoen schnell (nicht QT2 oder 3).

- script starten, File Open Dialogbox erscheint, ein Feld mit individuellem Titel waer auch ganz nett
- mit Maus angefangen von / rumsurfen und eine Datei auswaehlen
- der OK Button startet dann das Prog, was ich im script dafuer eingetragen hatte mit der Datei als $1.
- das ganze noch schoen portabel (fuer solaris8@sparc und linux@x86)

eigentlich ganz einfach, ich kann nur kein perlTK
Vielen Dank schon mal fuers lesen

**jgbauman** · 21-02-2002, 00:00

Ich kann auch kein PerlTK, hab deswegen einfach Perl weggelassen und nur TK (+bash) genommen.

Code:

#!/bin/bash 
#path to wich
WISH=/usr/bin/wish8.3
#other common pathes to wish (not used)
#WISH=/usr/bin/wish
#WISH=/usr/X11R6/bin/wish
#WISH=/usr/X11R6/bin/wish8.3
#WISH=wish

#Title for file selection box
TITLE="Select your file:"
#program to run file with
PROG=cat

FILE=`echo 'set fn [tk_getOpenFile -title "'${TITLE}'"]; if {$fn==""} { exit 1} else { puts $fn; exit 0}' | wish` && exec "$PROG" "$FILE"
echo "Error"
exit 1