GUIKit Buttons

[ulenia <ulenia@XXXXXXX.com>]

Liebe Mathematica Fans,

I versuche die Befehle von GUIKit zu verstehen.
Kann mir jemand einen Tipp geben, warum

Variante 1):

Needs["GUIKit`"];
GUIRun[Widget["ImageLabel",
{
"data" -> Script[SetDirectory["Q:\\fruits"];
files = FileNames["apfel*.tif"];
ims = Import[#] & /@ files;
ExportString[GraphicsRow[ims], "PNG"]],
},
Name -> "imgDisplay"]]


funktioniert, 


aber
Variante 2):



Needs["GUIKit`"];
Klick = GUIRun[
Widget["Panel",
{Widget["Button", {"text" -> "apfel", BindEvent["Action", p[]]}, 
Name -> "button1"],
Widget["Button", {"text" -> "birne", BindEvent["Action", p[]]}, 
Name -> "button2"],
Widget["ImageLabel", Name -> "imgShow"],
p[] := Script[
SetPropertyValue[{"imgShow", "data"},
Script[
SetDirectory["Q:\\fruits"];
If[PropertyValue["button1"] == "apfel", 
files = FileNames["apfel*.tif"]];
If[PropertyValue["button2"] == "birne", 
files = FileNames["birne*.tif"]];
ims = Import[#] & /@ files;
ExportString[GraphicsRow[ims], "PNG"]]]]
}]]


funktioniert nicht?



Danke für jede Antwort !

Mit freundlichen Grüssen,

ulenia