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