14 lines
233 B
Plaintext
14 lines
233 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))
|