GUIKit - Zahenformat und Export-Funktion

[Emanuel von Wartburg <vonwartburg@XXXXXXX.ch>]

Hallo Mathematica-Users

Ich habe begonnen mich ein bischen mit dem GUIKit herumzuschlagen und habe 
zwei Fragen die mir hoffentlich jemand beantworten kann (die GUIKit 
Dokumentation von Mathematica ist leider nicht sehr ausführlich).

Zahlenformat

Widget["Label",{"text" -> "Total: "}],
    WidgetAlign[],
    Widget["Textfield",{"horizontalAlignment" -> PropertyValue["RIGHT"], 
"editable" -> "false"}, Name -> "Resultat"]

Dabei ist in der Variablen "Resultat" eine Zahl gespeichert. In der Ausgabe 
hat diese Zahl jedoch immer etwa zehn Nachkommastellen. Ich weiss nicht wie 
ich das Zahlenformat ändern kann. N[Resultat, 3] hat zum Beispiel keinen 
Einfluss, die Ausgabe hat unverändert viele Nachkommastellen.

Export

Script[
        exportcs[] := Module[{fng},
           Widget["FileDialog", Name -> "saveFileDialog"];
           returnValue = InvokeMethod[{"saveFileDialog", 
"showSaveDialog"}, Null];
           If[returnValue === PropertyValue[{"saveFileDialog", 
"APPROVE_OPTION"}],
           PropertyValue[{PropertyValue[{"saveFileDialog", 
"selectedFile"}], "path"}], Null];
           fng = ToExpression /@ PropertyValue[{"saveFileDialog", 
"selectedFile"}];
           Export[fng, cp, "JPEG"];
        ]
     ]

In der Variablen cp ist eine Graphik gespeichert, die ich in einem anderen 
Widget auch anzeigen kann. Ich kann das Script ohne Fehlermeldung 
durchführen, nur hat die Export-Funktion keinen Effekt. Ich vermute, das 
Problem liegt am Dateipfad (in der Variablen fng gespeichert) den ich mit 
dem saveFileDialog bestimme. Hat jemand eine Idee, wie ich diesen Dateipfad 
korrekt bestimme oder liegt das Problem anderswo?

Besten Dank,
Emanuel von Wartburg