14 lines
218 B
Plaintext
14 lines
218 B
Plaintext
|
; includes:
|
||
|
|
;widgets
|
||
|
|
(include "widgets.yuck")
|
||
|
|
|
||
|
|
;; Calendar Windows ;;
|
||
|
|
|
||
|
|
(defwindow calendar
|
||
|
|
:geometry (geometry :x "-19px"
|
||
|
|
:y "50px"
|
||
|
|
:width "270px"
|
||
|
|
:height "60px"
|
||
|
|
:anchor "top right")
|
||
|
|
(cal))
|