WindowTitle {FvwmApplet-Sensors}
WindowSize  100 36
Font "xft:UnBom:style=Bold:size=10" 

Init
 Begin
  Set $MainColorset=(GetScriptArgument 1)
  If $MainColorset <> {} Then
  Begin
   ChangeColorset 0 $MainColorset
   ChangeColorset 1 $MainColorset
   ChangeColorset 2 $MainColorset
  End
  Set $CPUtemp = (GetOutput {exec sensors} 14 3)
  Set $MBtemp = (GetOutput {exec sensors} 13 3)
   Set $tmp1 = {CPU: } (StrCopy $CPUtemp 2 3) {°C}
   Set $tmp2 = {Mobo: } (StrCopy $MBtemp 2 3) {°C}
   ChangeTitle 1 $tmp1
   ChangeTitle 2 $tmp2
End

PeriodicTasks
 Begin 
  If (RemainderOfDiv (GetTime) 30)==0 Then
  Begin
     Set $CPUtemp = (GetOutput {exec sensors} 14 3)
     Set $MBtemp = (GetOutput {exec sensors} 13 3)
     Set $tmp1 = {CPU: } (StrCopy $CPUtemp 2 3) {°C}
     Set $tmp2 = {Mobo: } (StrCopy $MBtemp 2 3) {°C}
     ChangeTitle 1 $tmp1
     ChangeTitle 2 $tmp2
  End
End

Widget 1
Property
 Position 0 0
 Size 100 18
 Type ItemDraw
 Flags NoReliefString
 Title {}
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 2
Property
 Position 0 18
 Size 100 18
 Type ItemDraw
 Flags NoReliefString
 Title {}
Main
 Case message of
  SingleClic :
  Begin
  End
End