geekounet

DestroyModuleConfig Panel: *
*Panel: ButtonGeometry 1x1+0-0
*Panel: Rows 20
*Panel: Columns $[vp.width]
*Panel: Frame 0
*Panel: Padding 0 0
*Panel: Colorset 50
*Panel: BoxSize Fixed
*Panel: Font "StringEncoding=UTF-8:xft:DejaVu Sans:size=8:style=Book:rgba=rgb:minspace=true:antialias=True"
PipeRead 'echo "*Panel: ($$(($[vp.width]-200))x20, Swallow FvwmIconMan \\"Module FvwmIconMan PanelIconMan\\")"'
*Panel: (200x20, Swallow "FvwmScript" 'FvwmScript $[fvwm_scripts]/PanelTimeScript')

DestroyModuleConfig PanelIconMan: *
*PanelIconMan: ButtonGeometry 200x20
*PanelIconMan: ManagerGeometry 1x1
*PanelIconMan: Font "xft:DejaVu Sans:size=8:style=Book:rgba=rgb:minspace=true:antialias=True"
*PanelIconMan: Colorset 50
*PanelIconMan: FocusAndSelectColorset 50
*PanelIconMan: FocusColorset 50
*PanelIconMan: IconColorset 51
*PanelIconMan: SelectColorset 50
*PanelIconMan: PlainColorset 51
*PanelIconMan: FollowFocus True
*PanelIconMan: DrawIcons Always
*PanelIconMan: ReliefThickness 0
*PanelIconMan: Resolution page
*PanelIconMan: Sort id
*PanelIconMan: Format "%t"
*PanelIconMan: Title ""
*PanelIconMan: UseWinList True
*PanelIconMan: ShowTransient True
*PanelIconMan: NoIconAction "SendToModule FvwmAnimate animate"
*PanelIconMan: Action Mouse 1 N SendCommand "Iconify off", \
                 SendCommand Raise, SendCommand Focus
*PanelIconMan: Action Mouse 2 N SendCommand Thumbnail
*PanelIconMan: Action Mouse 3 N SendCommand "Menu WindowMenu Rectangle +$left+$top 0 -100m"
*PanelIconMan: Action Mouse 4 N SendCommand "WindowShade true"
*PanelIconMan: Action Mouse 5 N SendCommand "WindowShade false"

Colorset 50 fg black, bg white, Pixmap White/main.png
Colorset 51 fg #888888, bg white, Pixmap White/main.png

Style Panel Sticky, NoTitle, WindowListSkip, StaysOnTop, \
      FixedSize, NeverFocus, !Handles, !Borders, FixedPosition, \
      !RoundedCorners

AddToFunc StartFunction
+ I Module FvwmButtons Panel




#################################
# $[fvwm_scripts]/PanelTimeScript
#################################

WindowTitle     {TimeScript}
WindowSize      200 20
Colorset        50

Init
Begin
  Set $time = (GetOutput {date "+%a %e %b %Y - %H:%M"} 1 -1)
  ChangeTitle 1 $time
End

PeriodicTasks
Begin
  If (RemainderOfDiv (GetTime) 60)==0 Then
  Begin
    Set $time = (GetOutput {date "+%a %e %b %Y - %H:%M"} 1 -1)
    ChangeTitle 1 $time
  End
End

Widget 1
Property
  Type ItemDraw
  Size 200 20
  Position 0 -1
  Font "StringEncoding=UTF-8:xft:DejaVu Sans:size=8:style=Book:rgba=rgb:minspace=true:antialias=True"
  Flags NoFocus Center NoReliefString
End