14 lines
240 B
Plaintext
14 lines
240 B
Plaintext
|
(defwidget calendar-win []
|
||
|
|
(box
|
||
|
|
:class "calendar-window"
|
||
|
|
(calendar)))
|
||
|
|
(defwindow calendar_win
|
||
|
|
:monitor 0
|
||
|
|
:geometry (geometry
|
||
|
|
:x "0%"
|
||
|
|
:y "0%"
|
||
|
|
:anchor "top right"
|
||
|
|
:width "0px"
|
||
|
|
:height "0px")
|
||
|
|
(calendar-win))
|