[Factor muck for initializing window into method
clinton@unknownlamer.org**20080213224014] {
hunk ./src/entry-points.lisp 23
-      (call 'full-show-viewer
-	    :show (car (get-shows-by 'show-date
-				     (encode-universal-time 0 0 0 day month year)
-				     nil
-				     :limit 1))))))
+      (let ((window (golf-util::initialize-window
+		     (make-instance 'golf-frontend-window))))
+	(setf (container.current-component-key (body-of window))
+	      'archive)
+	(let ((self (container.current-component (body-of window))))
+	  (call 'frontend-show-viewer
+		:show (car (get-shows-by 'show-date
+					 (encode-universal-time 0 0 0 day month year)
+					 nil
+					 :limit 1))))))))
hunk ./src/util.lisp 29
+(defun initialize-window (window)
+  "Initialize window component for calling from a dispatcher"
+  (setf (ucw::component.calling-component window) nil
+	(ucw::component.place window) (ucw:make-place
+				       (ucw:context.window-component
+					ucw:*context*))
+	(ucw::parent window) nil
+	(ucw::context.window-component ucw:*context*) window))
}