file open dialog

[marcdevil]

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]

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


#!/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

[marcdevil]

JA, vielen dank, genau das habe ich gesucht,
wish ist uebrigens bei uns auf /usr/local/bin/wish

[marcdevil]

Gibts das auch mit Directories tk_getChooseDir , oder so ?

[jgbauman]

Das heist tk_chooseDirectory.
Mit einem man tk_getOpenFile
haettest Du es aber auch selber herausfinden koennen ;-)

[marcdevil]

man tk_getOpenFile
No manual entry for tk_getOpenFile


:) :) :)