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