Screenshot com o calendário:
Calendar:
#
# This file have some lines that must be included on your recipes-script ( that you use - TopDown for me )
# located on /usr/share/fvwm-crystal/fvwm/recipes/ so that it can load the adaptation of the Calendar-Script
# that you can download from the same place where you get this one.
# Or send a message to jarbasaraujojr at yahoo dot com dot br
#
# Calendar {{{1
All (FvwmButtons-Calendar) Close
DestroyModuleConfig FvwmButtons-Calendar: *
*FvwmButtons-Calendar: Geometry -1+1
*FvwmButtons-Calendar: BoxSize smart
*FvwmButtons-Calendar: ActiveColorset $[cs-panel-active]
*FvwmButtons-Calendar: Colorset $[cs-panel-inactive]
*FvwmButtons-Calendar: Columns 2
*FvwmButtons-Calendar: Padding 2 2
*FvwmButtons-Calendar: Frame 0
*FvwmButtons-Calendar: (2x1, Size 150 200, Swallow (Close, Respawn, FvwmModule) "Calendar-Script")
Module FvwmButtons FvwmButtons-Calendar
Script components/scripts/Calendar-Script
Calendar-Script:
#
# This file was adapted by Jarbas Araujo ( jarbasaraujojr at yahoo dot com dot br )
# to act like a nice translucent calendar to fvwm-crystal
# It was made to be ok on a 1280 x 1024 desktop. May need some adjusts on other resolutions
#
WindowTitle {Calendar}
WindowSize 150 200
Colorset 1
Font "shadow=0 se:xft:Courier:Bold:size=12"
Init
Begin
Set $PROG = "/usr/bin/cal"
Set $text1 = (GetOutput $PROG 1 -1)
ChangeTitle 1 $text1
Set $text2 = (GetOutput $PROG 2 -1)
ChangeTitle 2 $text2
Set $text3 = (GetOutput $PROG 3 -1)
ChangeTitle 3 $text3
Set $text4 = (GetOutput $PROG 4 -1)
ChangeTitle 4 $text4
Set $text5 = (GetOutput $PROG 5 -1)
ChangeTitle 5 $text5
Set $text6 = (GetOutput $PROG 6 -1)
ChangeTitle 6 $text6
Set $text7 = (GetOutput $PROG 7 -1)
ChangeTitle 7 $text7
Set $text8 = (GetOutput $PROG 8 -1)
ChangeTitle 8 $text8
End
PeriodicTasks
Begin
If (RemainderOfDiv (GetTime) 60)==0 Then
Begin
End
End
Widget 1
Property
Type ItemDraw
Size 150 35
Position 0 0
Font "shadow=0 se:xft:Sans serif:Bold:size=14:color=d5dee7"
Flags NoFocus NoReliefString Center
ForeColor {white}
Colorset 1
Main
Case message of
SingleClic:
Begin
End
End
Widget 2
Property
Type ItemDraw
Size 150 35
Position 0 25
Flags NoFocus NoReliefString Center
ForeColor {white}
Colorset 1
Main
Case message of
SingleClic:
Begin
End
End
Widget 3
Property
Type ItemDraw
Size 150 35
Position 0 50
Flags NoFocus NoReliefString Center
ForeColor {white}
Colorset 1
Main
Case message of
SingleClic:
Begin
End
End
Widget 4
Property
Type ItemDraw
Size 150 35
Position 0 75
Flags NoFocus NoReliefString Center
ForeColor {white}
Colorset 1
Main
Case message of
SingleClic:
Begin
End
End
Widget 5
Property
Type ItemDraw
Size 150 35
Position 0 100
Flags NoFocus NoReliefString Center
BackColor {#C2D2EB}
ForeColor {white}
Colorset 1
Main
Case message of
SingleClic:
Begin
End
End
Widget 6
Property
Type ItemDraw
Size 150 35
Position 0 125
Flags NoFocus NoReliefString Center
BackColor {#C2D2EB}
ForeColor {white}
Colorset 1
Main
Case message of
SingleClic:
Begin
End
End
Widget 7
Property
Type ItemDraw
Size 150 35
Position 0 150
Flags NoFocus NoReliefString Center
BackColor {#C2D2EB}
ForeColor {white}
Colorset 1
Main
Case message of
SingleClic:
Begin
End
End
Widget 8
Property
Type ItemDraw
Size 150 35
Position 4 175
Flags NoFocus NoReliefString Left
BackColor {#C2D2EB}
ForeColor {white}
Colorset 1
