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
Main
 Case message of
  SingleClic :
  Begin
  End
End



Widget 2
Property
  Title {}
  Size 0 0
  Position 115 55
  Flags NoReliefString
  Colorset 10
  Type RadioButton
  Value 1
  Main
    Case message of
      SingleClic :
       Begin
         ChangeValue 2 1
         ChangeValue 3 0
         ChangeValue 4 0
         ChangeValue 5 0
       End
     End

Widget 3
Property
  Title {}
  Size 0 0
  Position 115 75
  Flags NoReliefString
  Colorset 10
  Type RadioButton
  Value 0
  Main
    Case message of
      SingleClic :
        Begin
         ChangeValue 2 0
         ChangeValue 3 1
         ChangeValue 4 0
         ChangeValue 5 0
        End
      End

Widget 4
Property
  Title {}
  Size 0 0
  Position 115 95
  Flags NoReliefString
  Colorset 10
  Type RadioButton
  Value 0
  Main
    Case message of
      SingleClic :
        Begin
         ChangeValue 2 0
         ChangeValue 3 0
         ChangeValue 4 1
         ChangeValue 5 0
        End
      End


Widget 5
Property
  Title {}
  Size 0 0
  Position 115 115
  Flags NoReliefString
  Colorset 10
  Type RadioButton
  Value 0
  Main
    Case message of
      SingleClic :
        Begin
         ChangeValue 2 0
         ChangeValue 3 0
         ChangeValue 4 0
         ChangeValue 5 1
        End
      End

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

Widget 20
Property
  Title {Restart FXDE Session}
  Size 100 15
  Position 130 54
  Flags NoReliefString
  Colorset 9
  Type ItemDraw
  End

Widget 30
Property
  Title {Halt FXDE Session}
  Size 100 15
  Position 130 74
  Flags NoReliefString
  Colorset 9
  Type ItemDraw
  End

Widget 40
Property
  Title {Restart System}
  Size 100 15
  Position 130 94
  Flags NoReliefString
  Colorset 9
  Type ItemDraw
  End

Widget 50
Property
  Title {Halt System}
  Size 80 15
  Position 130 114
  Flags NoReliefString
  Colorset 9
  Type ItemDraw
  End



Widget 7
Property
  Title {Ok}
  Size 71 28
  Colorset 13
  Position 215 140
  Flags NoReliefString
  Type PushButton
  Main
    Case message of
    SingleClic :
      Begin
        If (GetValue 2) == 1 Then
          Begin
            Do {Restart}
            Quit
          End
        Else
        Begin
          If (GetValue 3) == 1 Then
            Begin
              Do {Quit}
              Quit
            End
        Else
        Begin
          If (GetValue 4) == 1 Then
            Begin
              Do {Exec exec /bin/sls /bin/reboot}
              Quit
            End
          Else
          Begin
            If (GetValue 5) == 1 Then
              Begin
                Do {Exec exec /bin/sls /bin/shutdown}
                Quit
              End
            End
          End
        End
      End