2 files changed, 38 insertions(+), 1 deletions(-)

M src/apps.tal
M src/manifest.tal

@@ 57,6 57,36 @@ JMP2r
 		=size-apps-end =size-apps-start =dict/applications =icons/application
 		=size-system-end =size-system-start =dict/system =icons/potato
 	&full "65536 $1
+
+(
+@|calendar )
+
+@calendar-manifest
+	03 "Calendar $1
+		12 00 =expand-win "Expand $1
+		22 00 =tab-win "Tab $1
+		42 00 =close-win "Close $1
+	$1
+
+@app-calendar
+	=calendar-manifest
+	=void-init
+	=&on-draw
+	=&on-mouse
+	=void-button
+
+&on-mouse ( x* y* win* -> )
+
+	POP2 POP2 POP2
+
+BRK
+
+&on-draw ( win* -- )
+
+	POP2
+
+JMP2r
+
 (
 @|color )
 

@@ 55,9 55,16 @@ BRK
 
 @on-touch-clock ( -> )
 
-	#1234 ;phex JSR2 #0a18 DEO
+	( unique )
+	;app-calendar ;find-win JSR2
+		DUP #ff NEQ ,&reselect JCN POP
+	;no-name ;app-calendar #120f
+	( y ) #0030
+	( x ) #0030
+		;add-win JSR2
 
 BRK
+	&reselect ;sel-win JSR2 BRK
 
 (
 @|controls )