WindowTitle {Workstation Information}
WindowSize  486 352

Init
Begin
  Set $un   = {  } (GetOutput {id -un} 1 -1)
  Set $hn   = {  } (GetOutput {hostname} 1 -1)

  Set $isa  = {  } (GetOutput {uname -m} 1 -1)
  Set $os   = {  } (GetOutput {sed 's/^PRETTY_NAME="\(.*\)"/\1/p' /etc/os-release /etc/os-release} 1 -1)
  Set $krn  = {  } (GetOutput {uname -r} 1 -1)

  Set $ip   = {  } (GetOutput {ifconfig | sed -ne '2s/.*inet addr:\([0-9]*\.[0-9]*\.[0-9]*\.[0-9]*\) .*/\1/p'} 1 -1)
  Set $dn   = {  } (GetOutput {hostname -d} 1 -1)

  Set $ram  = {  } (GetOutput {free -m | sed -e 's/  */ /g' -e '2!d' | cut -d ' ' -f2} 1 -1) { MB}
  Set $ru   = {  } (GetOutput {free -m | sed -e 's/  */ /g' -e '2!d' | cut -d ' ' -f3} 1 -1) { MB}
  Set $rpct = {  } (GetOutput {echo "$((100-$((100*$(free -m | sed -e 's/  */ /g' -e '2!d' | cut -d ' ' -f3)))/$(free -m | sed -e 's/  */ /g' -e '2!d' | cut -d ' ' -f2)))"} 1 -1)

  Set $swp  = {  } (GetOutput {free -m | sed -e 's/  */ /g' -e '3!d' | cut -d ' ' -f2} 1 -1) { MB}
  Set $su   = {  } (GetOutput {free -m | sed -e 's/  */ /g' -e '3!d' | cut -d ' ' -f3} 1 -1) { MB}
  Set $spct = {  } (GetOutput {echo "$((100-$((100*$(free -m | sed -e 's/  */ /g' -e '3!d' | cut -d ' ' -f3)))/$(free -m | sed -e 's/  */ /g' -e '3!d' | cut -d ' ' -f2)))"} 1 -1)

  ChangeTitle 14 $un
  ChangeTitle 15 $hn

  ChangeTitle 16 $isa
  ChangeTitle 17 $os
  ChangeTitle 18 $krn

  ChangeTitle 19 $ip
  ChangeTitle 20 $dn

  ChangeTitle 21 $ram
  ChangeTitle 22 $ru
  ChangeValue 23 $rpct

  ChangeTitle 24 $swp
  ChangeTitle 25 $su
  ChangeValue 26 $spct
End

Widget 1
Property
  Title    {User Name:}
  Size     150 0
  Position 10 15
  Type     ItemDraw
  Flags    NoReliefString NoFocus Right
  Colorset 9
End

Widget 2
Property
  Title    {Workstation Name:}
  Size     150 0
  Position 10 32
  Type     ItemDraw
  Flags    NoReliefString NoFocus Right
  Colorset 9
End

Widget 3
Property
  Title    {ISA:}
  Size     150 0
  Position 10 62
  Type     ItemDraw
  Flags    NoReliefString NoFocus Right
  Colorset 9
End

Widget 4
Property
  Title    {OS:}
  Size     150 0
  Position 10 77
  Type     ItemDraw
  Flags    NoReliefString NoFocus Right
  Colorset 9
End

Widget 5
Property
  Title    {Kernel:}
  Size     150 0
  Position 10 92
  Type     ItemDraw
  Flags    NoReliefString NoFocus Right
  Colorset 9
End

Widget 6
Property
  Title    {Local IP:}
  Size     150 0
  Position 10 122
  Type     ItemDraw
  Flags    NoReliefString NoFocus Right
  Colorset 9
End

Widget 7
Property
  Title    {Domain:}
  Size     150 0
  Position 10 137
  Type     ItemDraw
  Flags    NoReliefString NoFocus Right
  Colorset 9
End

Widget 8
Property
  Title    {RAM:}
  Size     150 0
  Position 10 167
  Type     ItemDraw
  Flags    NoReliefString NoFocus Right
  Colorset 9
End

Widget 9
Property
  Title    {In Use:}
  Size     150 0
  Position 10 182
  Type     ItemDraw
  Flags    NoReliefString NoFocus Right
  Colorset 9
End

Widget 10
Property
  Title    {Available:}
  Size     150 0
  Position 10 197
  Type     ItemDraw
  Flags    NoReliefString NoFocus Right
  Colorset 9
End

Widget 11
Property
  Title    {Swap:}
  Size     150 0
  Position 10 228
  Type     ItemDraw
  Flags    NoReliefString NoFocus Right
  Colorset 9
End

Widget 12
Property
  Title    {In Use:}
  Size     150 0
  Position 10 243
  Type     ItemDraw
  Flags    NoReliefString NoFocus Right
  Colorset 9
End

Widget 13
Property
  Title    {Available:}
  Size     150 0
  Position 10 258
  Type     ItemDraw
  Flags    NoReliefString NoFocus Right
  Colorset 9
End

Widget 14
Property
  Title    {<un>}
  Size     150 0
  Position 159 15
  Type     ItemDraw
  Flags    NoReliefString NoFocus Left
  Colorset 9
End

Widget 15
Property
  Title    {<hn>}
  Size     150 0
  Position 159 32
  Type     ItemDraw
  Flags    NoReliefString NoFocus Left
  Colorset 9
End

Widget 16
Property
  Title    {<isa>}
  Size     150 0
  Position 159 62
  Type     ItemDraw
  Flags    NoReliefString NoFocus Left
  Colorset 9
End

Widget 17
Property
  Title    {<os>}
  Size     150 0
  Position 159 77
  Type     ItemDraw
  Flags    NoReliefString NoFocus Left
  Colorset 9
End

Widget 18
Property
  Title    {<krn>}
  Size     150 0
  Position 159 92
  Type     ItemDraw
  Flags    NoReliefString NoFocus Left
  Colorset 9
End

Widget 19
Property
  Title    {<ip>}
  Size     150 0
  Position 159 122
  Type     ItemDraw
  Flags    NoReliefString NoFocus Left
  Colorset 9
End

Widget 20
Property
  Title    {<dn>}
  Size     150 0
  Position 159 137
  Type     ItemDraw
  Flags    NoReliefString NoFocus Left
  Colorset 9
End

Widget 21
Property
  Title    {<ram>}
  Size     150 0
  Position 159 167
  Type     ItemDraw
  Flags    NoReliefString NoFocus Left
  Colorset 9
End

Widget 22
Property
  Title    {<ru>}
  Size     150 0
  Position 159 182
  Type     ItemDraw
  Flags    NoReliefString NoFocus Left
  Colorset 9
End

Widget 23
Property
  Title    {}
  Value    50
  MaxValue 100
  MinValue 0
  Size     100 0
  Position 169 201
  Type     HDipstick
  Flags    NoFocus
  Colorset 9
End

Widget 24
Property
  Title    {<swp>}
  Size     150 0
  Position 159 228
  Type     ItemDraw
  Flags    NoReliefString NoFocus Left
  Colorset 9
End

Widget 25
Property
  Title    {<su>}
  Size     150 0
  Position 159 243
  Type     ItemDraw
  Flags    NoReliefString NoFocus Left
  Colorset 9
End

Widget 26
Property
  Title    {}
  Value    50
  MaxValue 100
  MinValue 0
  Size     100 0
  Position 169 262
  Type     HDipstick
  Flags    NoFocus
  Colorset 9
End

Widget 27
Property
  Title    {Dismiss}
  Size     71 28
  Position 401 312
  Type PushButton
  Flags NoReliefString
Main
  Case message of
  SingleClic :
  Begin
    Quit
  End
End