WindowTitle	{TimeStyleAndDateNormal}
WindowSize	81 20

PeriodicTasks
Begin 
	If (RemainderOfDiv (GetTime) 60)==0 Then
	Begin
		Set $hour = (GetOutput {date "+%l"} 1 -1)
		Set $dayhour = (GetOutput {date "+%H"} 1 -1)
		If $dayhour>=12 Then
			Set $ampm = PM
		Else
			Set $ampm = AM
		Set $min  = (GetOutput {date "+%M"} 1 -1)
		ChangeTitle 1 $hour
		ChangeTitle 2 $min
		
	End
End

Widget			1
Property
	Type		ItemDraw
	Size		43 34
	Position	0 -10
	Title		{??}
	MaxValue	0
	MinValue	0
	Font		"Shadow=1 C:xft:Blippo:Bold:pixelsize=16"
	Colorset	55 
	Flags		NoFocus NoReliefString Right
End

Widget			2
Property
	Type		ItemDraw
	Size		43 34
	Position	50 -10
	Title		{??}
	MaxValue	0
	MinValue	0
	Font		"Shadow=1 C:xft:Blippo:Regular:pixelsize=14"
	Colorset	56 
	Flags		NoFocus NoReliefString Left
End