[cello-cvs] CVS cello

[fgoenninger]

Update of /project/cello/cvsroot/cello
In directory clnet:/tmp/cvs-serv20980

Modified Files:
	application.lisp 
Log Message:
Changed: Code formatting only. No (!) functional differences.

--- /project/cello/cvsroot/cello/application.lisp	2006/10/02 02:59:18	1.7
+++ /project/cello/cvsroot/cello/application.lisp	2006/10/13 08:04:45	1.8
@@ -21,26 +21,42 @@
 (defparameter *first-kill-all-the-windows* nil)
 
 (defun cello-reset (&optional (system-type 'mg-system))
+
+  ;; Reset CFFI, CFFI Extender
   (ffx-reset)
+
+  ;; Reset CELLS
   (cells-reset 'tk-user-queue-handler :debug t)
+
+  ;; Reset OpenGL special vars
   (makunbound 'ogl::*gl-stop*)
-  ;(xftgl)
-  (cl-ftgl-reset) ;; 2006-09-27 back in temporarily ... new 2006-08-28 in face of weird OGL 1282 when new chars hit in ratios
+  
+  (cl-ftgl-reset) ;; 2006-09-27 back in temporarily ...
+                  ;; new 2006-08-28: in face of weird OGL 1282 when
+                  ;; new chars hit in ratios
+
+  ;; Init global *sys* ... needed for Cello context ops
   (when system-type
     (setf *sys* (make-instance system-type :md-name 'mgsys)))
-  (values))
 
+  (values))
 
 (defmodel mg-system (family)
-   (
-    (main-window :initarg :main-window :initform (c-in nil) :accessor main-window)
-    (mouse :cell nil :initarg :mouse :initform nil :accessor mouse)
-    (sys-time :initarg :sys-time :initform (c-in (now)) :accessor sys-time)
-    (user-preferences :initarg :user-preferences :initform (c-in nil) :accessor user-preferences)
-    )
+   ((main-window       :initarg :main-window
+		       :initform (c-in nil)
+		       :accessor main-window)
+    (mouse             :cell nil
+		       :initarg :mouse
+		       :initform nil
+		       :accessor mouse)
+    (sys-time          :initarg :sys-time
+		       :initform (c-in (now))
+		       :accessor sys-time)
+    (user-preferences  :initarg :user-preferences
+		       :initform (c-in nil)
+		       :accessor user-preferences))
    (:default-initargs
-     :kids (c-in nil)
-    ))
+     :kids (c-in nil)))
 
 (defun sys-now ()
   (sys-time *sys*))
@@ -81,6 +97,3 @@
 
 (defun fm-find-system (md)
    (upper md mg-system))
-
-
-