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))
|