WindowTitle {Session}
WindowSize  375 185

Init
 Begin
 End

Widget 1
Property
  Title {Please select an option.}
  Size 200 30
  Position 75 10
  Type ItemDraw
  Flags NoReliefString NoFocus
  Colorset 9
End

Widget 2
Property
  Title {Restart FXDE}
  Size 100 15
  Position 125 54
  Type ItemDraw
  Flags NoReliefString NoFocus
  Colorset 9
End

Widget 3
Property
  Title {Halt FXDE}
  Size 100 15
  Position 113 74
  Type ItemDraw
  Flags NoReliefString NoFocus
  Colorset 9
End

Widget 4
Property
  Title {Restart Machine}
  Size 100 15
  Position 125 94
  Type ItemDraw
  Flags NoReliefString NoFocus
  Colorset 9
End

Widget 5
Property
  Title {Halt Machine}
  Size 80 15
  Position 125 114
  Type ItemDraw
  Flags NoReliefString NoFocus
  Colorset 9
End

Widget 6
Property
  Title {}
  Size 0 0
  Position 105 55
  Type RadioButton
  Flags
  Colorset 9
  Value 1
Main
  Case message of
  SingleClic :
  Begin
    ChangeValue 6 1
    ChangeValue 7 0
    ChangeValue 8 0
    ChangeValue 9 0
  End
End

Widget 7
Property
  Title {}
  Size 0 0
  Position 105 75
  Type RadioButton
  Flags
  Colorset 9
  Value 0
Main
  Case message of
  SingleClic :
  Begin
    ChangeValue 6 0
    ChangeValue 7 1
    ChangeValue 8 0
    ChangeValue 9 0
  End
End


Widget 8
Property
  Title {}
  Size 0 0
  Position 105 95
  Type RadioButton
  Flags
  Colorset 9
  Value 0
Main
  Case message of
  SingleClic :
  Begin
    ChangeValue 6 0
    ChangeValue 7 0
    ChangeValue 8 1
    ChangeValue 9 0
  End
End


Widget 9
Property
  Title {}
  Size 0 0
  Position 105 115
  Type RadioButton
  Flags
  Colorset 9
  Value 0
Main
  Case message of
  SingleClic :
  Begin
    ChangeValue 6 0
    ChangeValue 7 0
    ChangeValue 8 0
    ChangeValue 9 1
  End
End

# Dear Lord, who art our father in heaven, please forgive me for this sin.
Widget 10
Property
  Title {Ok}
  Size 71 28
  Colorset 9
  Position 215 140
  Flags NoReliefString
  Type PushButton
Main
  Case message of
  SingleClic :
  Begin
  If (GetValue 6) == 1 Then
    Begin
      Do {Restart}
      Quit
    End
  Else
    Begin
       If (GetValue 7) == 1 Then
         Begin
           Do {Quit}
           Quit
         End
       Else
         Begin
           If (GetValue 8) == 1 Then
             Begin
               Do {Exec exec /bin/sls /bin/reboot}
               Quit
             End
          Else
          Begin
            If (GetValue 9) == 1 Then
            Begin
              Do {Exec exec /bin/sls /bin/shutdown}
            Quit
          End
        End
      End
    End
  End
End

Widget 11
Property
  Title {Cancel}
  Size 71 28
  Colorset 9
  Position 286 140
  Flags NoReliefString
  Type PushButton
Main
  Case message of
  SingleClic :
  Begin
    Quit
  End
End