UseGettext
WindowLocaleTitle {Save Façade}
WindowSize 315 230
Font "xft:monospace:pixelsize=11;"

Init
 Begin
    Set $ID=(GetScriptArgument 1)
 End

Widget 1
Property
    Size 295 210
    Position 10 10
    Type Rectangle
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 10
Property
 Position 20 30
 Flags NoReliefString NoFocus
 Type ItemDraw
 Title {Name:}
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 11
Property
 Size 220 30
 Position 75 27
 Flags NoReliefString
 Type TextField
 Title {}
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 15
Property
 Position 20 70
 Flags NoReliefString
 Type CheckBox
 Title { Use Window Names For Matching}
 Value 0
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 16
Property
 Position 20 100
 Flags NoReliefString
 Type CheckBox
 Title { Automatic recall}
 Value 0
Main
 Case message of
  SingleClic :
  Begin
  End
End


Widget 17
Property
 Position 20 130
 Flags NoReliefString
 Type CheckBox
 Title { Hide Sources}
 Value 0
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 20
Property
 Size 85 20
 Position 30 175
 Flags NoReliefString
 Type PushButton
 Title {Cancel}
Main
 Case message of
  SingleClic :
  Begin
 	Quit
  End
End

Widget 21
Property
 Size 85 25
 Position 200 175
 Flags NoReliefString
 Type PushButton
 Title {Save}
Main
 Case message of
  SingleClic :
  Begin
    #Do {Echo } $ID { } (GetValue 15) { } (GetValue 16) { } (GetValue 17) { } (GetTitle 11)
    Set $name = (GetTitle 11)
    #Do {Echo Name } $name
    If $name <> {} Then
    Begin
	Do {sma DoSaveFacade "} (GetTitle 11) {" } $ID { } (GetValue 15) { } (GetValue 16) { } (GetValue 17)
	Quit
    End

  End
End
