- graphic-forms-cvs@common-lisp.net - mailman3.common-lisp.net

[graphic-forms-cvs] r415 - in trunk: . docs/manual docs/website
by junrue＠common-lisp.net 17 Dec '06

17 Dec '06

Author: junrue Date: Sat Dec 16 23:39:12 2006 New Revision: 415 Modified: trunk/NEWS.txt trunk/README.txt trunk/docs/manual/legal.xml trunk/docs/website/index.html Log: ACL port: doc updates Modified: trunk/NEWS.txt ============================================================================== --- trunk/NEWS.txt (original) +++ trunk/NEWS.txt Sat Dec 16 23:39:12 2006 @@ -1,3 +1,8 @@ + +. Graphic-Forms has been ported to Allegro CL 8.0. + +============================================================================== + Release 0.7.0 of Graphic-Forms, a Common Lisp library for Windows GUI programming, is now available. This is an alpha release, meaning that the feature set and API have not yet stabilized. Modified: trunk/README.txt ============================================================================== --- trunk/README.txt (original) +++ trunk/README.txt Sat Dec 16 23:39:12 2006 @@ -43,8 +43,8 @@ Supported Common Lisp Implementations ------------------------------------- -Graphic-Forms currently supports CLISP 2.40 or higher, LispWorks 4.4.6, -and SBCL 0.9.15 or higher (with a small patch). +Graphic-Forms currently supports Allegro CL 8.0, CLISP 2.40 or higher, +LispWorks 4.4.6, and SBCL 0.9.15 or higher (with a small patch). Known Problems Modified: trunk/docs/manual/legal.xml ============================================================================== --- trunk/docs/manual/legal.xml (original) +++ trunk/docs/manual/legal.xml Sat Dec 16 23:39:12 2006 @@ -41,8 +41,8 @@ <bridgehead renderas="sect2">Trademarks</bridgehead> <para role="normal"> - Windows® is a registered trademark of Microsoft Corporation. LispWorks - is a trademark of LispWorks Ltd. All other trademarks used are owned by their - respective owners. + Windows® is a registered trademark of Microsoft Corporation. Allegro CL® + is a registered trademark of Franz Inc. LispWorks® is a registered trademark of + LispWorks Ltd. All other trademarks used are owned by their respective owners. </para> </chapter> Modified: trunk/docs/website/index.html ============================================================================== --- trunk/docs/website/index.html (original) +++ trunk/docs/website/index.html Sat Dec 16 23:39:12 2006 @@ -38,7 +38,7 @@ The current version is <a href="http://sourceforge.net/project/showfiles.php?group_id=163034"> - 0.7.0</a>, released on 1 December 2006. + 0.8.0</a>, released on xx xxxxxxx 2007. Graphic-Forms is in the alpha stage of development, meaning new features are still being added and existing features require @@ -47,6 +47,7 @@ The supported Lisp implementations are: <ul> + <li><a href="http://franz.com/">Allegro CL 8.0</a> or later</li> <li><a href="http://clisp.cons.org/">CLISP 2.40</a> or later</li> <li><a href="http://www.lispworks.com/">LispWorks 4.4.6</a></li> <li><a href="http://www.sbcl.org/">SBCL 0.9.15</a> or later</li> @@ -67,7 +68,8 @@ Trademarks Windows® is a registered trademark of <a href="http://www.microsoft.com/">Microsoft</a>. - LispWorks is a trademark of <a href="http://www.lispworks.com/">LispWorks Ltd</a>. All other + Allegro CL® is a registered trademark of <a href="http://franz.com/">Franz Inc</a>. + LispWorks® is a registered trademark of <a href="http://www.lispworks.com/">LispWorks Ltd</a>. All other trademarks used are owned by their respective owners. <a href="http://sourceforge.net"><IMG src="http://sourceforge.net/sflogo.php?group_id=20959" width="88" height="31" border="0" alt="SourceForge Logo"></a>

1 0

[graphic-forms-cvs] r414 - in trunk/src/uitoolkit: system widgets
by junrue＠common-lisp.net 17 Dec '06

17 Dec '06

Author: junrue Date: Sat Dec 16 23:12:03 2006 New Revision: 414 Modified: trunk/src/uitoolkit/system/user32.lisp trunk/src/uitoolkit/widgets/display.lisp trunk/src/uitoolkit/widgets/window.lisp Log: ACL port: fix mistakes in callback definitions Modified: trunk/src/uitoolkit/system/user32.lisp ============================================================================== --- trunk/src/uitoolkit/system/user32.lisp (original) +++ trunk/src/uitoolkit/system/user32.lisp Sat Dec 16 23:12:03 2006 @@ -220,14 +220,6 @@ |# #+allegro -(eval-when (:compile-toplevel :load-toplevel :execute) - (ff:defun-foreign-callable enum-child-windows-callback ((hwnd :foreign-address) - (lparam :long)) - (declare (:convention :stdcall))) - - (ff:register-foreign-callable 'enum-child-windows-callback :reuse t)) - -#+allegro (ff:def-foreign-call (enum-child-windows "EnumChildWindows") ((hwnd :foreign-address) (func :foreign-address) @@ -277,16 +269,6 @@ |# #+allegro -(eval-when (:compile-toplevel :load-toplevel :execute) - (ff:defun-foreign-callable enum-display-monitors-callback ((hmonitor :foreign-address) - (hdc :foreign-address) - (monitorrect :foreign-address) - (data :long)) - (declare (:convention :stdcall))) - - (ff:register-foreign-callable 'enum-display-monitors-callback :reuse t)) - -#+allegro (ff:def-foreign-call (enum-display-monitors "EnumDisplayMonitors") ((hdc :foreign-address) (cliprect :foreign-address) @@ -341,14 +323,6 @@ |# #+allegro -(eval-when (:compile-toplevel :load-toplevel :execute) - (ff:defun-foreign-callable enum-thread-windows-callback ((hwnd :foreign-address) - (lparam :long)) - (declare (:convention :stdcall))) - - (ff:register-foreign-callable 'enum-thread-windows-callback :reuse t)) - -#+allegro (ff:def-foreign-call (enum-thread-windows "EnumThreadWindows") ((thread-id :unsigned-long) (func :foreign-address) Modified: trunk/src/uitoolkit/widgets/display.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/display.lisp (original) +++ trunk/src/uitoolkit/widgets/display.lisp Sat Dec 16 23:12:03 2006 @@ -37,6 +37,23 @@ ;;; helper functions ;;; +(defun display-visitor (hmonitor hdc monitorrect data) + (declare (ignore hdc monitorrect)) + (call-display-visitor-func (thread-context) hmonitor data) + 1) + +#+allegro +(eval-when (:compile-toplevel :load-toplevel :execute) + (ff:defun-foreign-callable enum-display-monitors-callback ((hmonitor :foreign-address) + (hdc :foreign-address) + (monitorrect :foreign-address) + (data :long)) + (declare (:convention :stdcall)) + (call-display-visitor-func (thread-context) hmonitor data)) + + (defvar *monitors-enum-proc* + (ff:register-foreign-callable 'enum-display-monitors-callback :reuse t))) + #+lispworks (fli:define-foreign-callable ("display_visitor" :result-type :integer :calling-convention :stdcall) @@ -48,11 +65,6 @@ (call-display-visitor-func (thread-context) hmonitor data) 1) -(defun display-visitor (hmonitor hdc monitorrect data) - (declare (ignore hdc monitorrect)) - (call-display-visitor-func (thread-context) hmonitor data) - 1) - #+sbcl (defvar *monitors-enum-proc* (sb-alien::alien-callback @@ -97,7 +109,10 @@ (let ((tc (thread-context))) (setf (display-visitor-func tc) func) (unwind-protect -#+(or allegro clisp) +#+allegro + (let ((ptr (cffi:null-pointer))) + (gfs::enum-display-monitors ptr ptr (cffi:pointer-address *monitors-enum-proc*) 0)) +#+clisp (gfs::enum-display-monitors nil nil #'display-visitor nil) #+lispworks (let ((ptr (fli:make-pointer :address 0))) @@ -127,6 +142,16 @@ (call-top-level-visitor-func tc win))) 1) +#+allegro +(eval-when (:compile-toplevel :load-toplevel :execute) + (ff:defun-foreign-callable enum-thread-windows-callback ((hwnd :foreign-address) + (lparam :long)) + (declare (:convention :stdcall)) + (top-level-window-visitor hwnd lparam)) + + (defvar *enum-thread-wnd-proc* + (ff:register-foreign-callable 'enum-thread-windows-callback :reuse t))) + #+lispworks (fli:define-foreign-callable ("top_level_window_visitor" :result-type :integer :calling-convention :stdcall) @@ -152,7 +177,11 @@ (let ((tc (thread-context))) (setf (top-level-visitor-func tc) func) (unwind-protect -#+(or allegro clisp) +#+allegro + (gfs::enum-child-windows (gfs::get-window-thread-process-id (utility-hwnd tc) (cffi:null-pointer)) + (cffi:pointer-address *enum-thread-wnd-proc*) + 0) +#+clisp (gfs::enum-child-windows (gfs::get-window-thread-process-id (utility-hwnd tc) (cffi:null-pointer)) #'top-level-window-visitor 0) Modified: trunk/src/uitoolkit/widgets/window.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/window.lisp (original) +++ trunk/src/uitoolkit/widgets/window.lisp Sat Dec 16 23:12:03 2006 @@ -79,6 +79,16 @@ (setf (child-visitor-results tc) (push (call-child-visitor-func tc parent child) tmp-list)))))) 1) +#+allegro +(eval-when (:compile-toplevel :load-toplevel :execute) + (ff:defun-foreign-callable enum-child-windows-callback ((hwnd :foreign-address) + (lparam :long)) + (declare (:convention :stdcall)) + (child-window-visitor hwnd lparam)) + + (defvar *enum-child-proc* + (ff:register-foreign-callable 'enum-child-windows-callback :reuse t))) + #+lispworks (fli:define-foreign-callable ("child_window_visitor" :result-type :integer :calling-convention :stdcall) @@ -329,7 +339,11 @@ (hwnd (gfs:handle self))) (setf (child-visitor-func tc) func) (unwind-protect -#+(or allegro clisp) +#+allegro + (gfs::enum-child-windows hwnd + (cffi:pointer-address *enum-child-proc*) + (cffi:pointer-address hwnd)) +#+clisp (gfs::enum-child-windows hwnd #'child-window-visitor (cffi:pointer-address hwnd))

1 0

[graphic-forms-cvs] r413 - in trunk/src/uitoolkit: system widgets
by junrue＠common-lisp.net 17 Dec '06

17 Dec '06

Author: junrue Date: Sat Dec 16 22:47:24 2006 New Revision: 413 Modified: trunk/src/uitoolkit/system/user32.lisp trunk/src/uitoolkit/widgets/display.lisp trunk/src/uitoolkit/widgets/thread-context.lisp trunk/src/uitoolkit/widgets/widget-utils.lisp trunk/src/uitoolkit/widgets/widget.lisp trunk/src/uitoolkit/widgets/window.lisp Log: AllegroCL 8.0 port Modified: trunk/src/uitoolkit/system/user32.lisp ============================================================================== --- trunk/src/uitoolkit/system/user32.lisp (original) +++ trunk/src/uitoolkit/system/user32.lisp Sat Dec 16 22:47:24 2006 @@ -219,13 +219,19 @@ (lparam LPARAM)) |# -#+lispworks -(fli:define-foreign-function - (enum-child-windows "EnumChildWindows") - ((hwnd :pointer) - (func :pointer) - (lparam :long)) - :result-type :int) +#+allegro +(eval-when (:compile-toplevel :load-toplevel :execute) + (ff:defun-foreign-callable enum-child-windows-callback ((hwnd :foreign-address) + (lparam :long)) + (declare (:convention :stdcall))) + + (ff:register-foreign-callable 'enum-child-windows-callback :reuse t)) + +#+allegro +(ff:def-foreign-call (enum-child-windows "EnumChildWindows") + ((hwnd :foreign-address) + (func :foreign-address) + (lparam :long))) #+clisp (ffi:def-call-out enum-child-windows @@ -242,6 +248,14 @@ (lparam ffi:long)) (:return-type ffi:int)) +#+lispworks +(fli:define-foreign-function + (enum-child-windows "EnumChildWindows") + ((hwnd :pointer) + (func :pointer) + (lparam :long)) + :result-type :int) + #+sbcl (sb-alien:define-alien-routine ("EnumChildWindows" enum-child-windows) sb-alien:int (hwnd sb-alien:system-area-pointer) @@ -262,14 +276,22 @@ (data LPARAM)) |# -#+lispworks -(fli:define-foreign-function - (enum-display-monitors "EnumDisplayMonitors") - ((hdc :pointer) - (cliprect :pointer) - (enumproc :pointer) - (data :long)) - :result-type :int) +#+allegro +(eval-when (:compile-toplevel :load-toplevel :execute) + (ff:defun-foreign-callable enum-display-monitors-callback ((hmonitor :foreign-address) + (hdc :foreign-address) + (monitorrect :foreign-address) + (data :long)) + (declare (:convention :stdcall))) + + (ff:register-foreign-callable 'enum-display-monitors-callback :reuse t)) + +#+allegro +(ff:def-foreign-call (enum-display-monitors "EnumDisplayMonitors") + ((hdc :foreign-address) + (cliprect :foreign-address) + (func :foreign-address) + (data :foreign-address))) #+clisp (ffi:def-call-out enum-display-monitors @@ -289,6 +311,15 @@ (data ffi:c-pointer)) (:return-type ffi:int)) +#+lispworks +(fli:define-foreign-function + (enum-display-monitors "EnumDisplayMonitors") + ((hdc :pointer) + (cliprect :pointer) + (enumproc :pointer) + (data :long)) + :result-type :int) + #+sbcl (sb-alien:define-alien-routine ("EnumDisplayMonitors" enum-display-monitors) sb-alien:int (hdc sb-alien:system-area-pointer) @@ -309,13 +340,19 @@ (lparam LPARAM)) |# -#+lispworks -(fli:define-foreign-function - (enum-thread-windows "EnumThreadWindows") - ((threadid (:unsigned :long)) - (func :pointer) - (lparam :long)) - :result-type :int) +#+allegro +(eval-when (:compile-toplevel :load-toplevel :execute) + (ff:defun-foreign-callable enum-thread-windows-callback ((hwnd :foreign-address) + (lparam :long)) + (declare (:convention :stdcall))) + + (ff:register-foreign-callable 'enum-thread-windows-callback :reuse t)) + +#+allegro +(ff:def-foreign-call (enum-thread-windows "EnumThreadWindows") + ((thread-id :unsigned-long) + (func :foreign-address) + (lparam :long))) #+clisp (ffi:def-call-out enum-thread-windows @@ -332,6 +369,14 @@ (lparam ffi:long)) (:return-type ffi:int)) +#+lispworks +(fli:define-foreign-function + (enum-thread-windows "EnumThreadWindows") + ((threadid (:unsigned :long)) + (func :pointer) + (lparam :long)) + :result-type :int) + #+sbcl (sb-alien:define-alien-routine ("EnumThreadWindows" enum-thread-windows) sb-alien:int (id sb-alien:unsigned-long) Modified: trunk/src/uitoolkit/widgets/display.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/display.lisp (original) +++ trunk/src/uitoolkit/widgets/display.lisp Sat Dec 16 22:47:24 2006 @@ -97,14 +97,14 @@ (let ((tc (thread-context))) (setf (display-visitor-func tc) func) (unwind-protect -#+sbcl - (let ((ptr (cffi:null-pointer))) - (gfs::enum-display-monitors ptr ptr (sb-alien:alien-sap *monitors-enum-proc*) 0)) +#+(or allegro clisp) + (gfs::enum-display-monitors nil nil #'display-visitor nil) #+lispworks (let ((ptr (fli:make-pointer :address 0))) (gfs::enum-display-monitors ptr ptr (fli:make-pointer :symbol-name "display_visitor") 0)) -#+clisp - (gfs::enum-display-monitors nil nil #'display-visitor nil) +#+sbcl + (let ((ptr (cffi:null-pointer))) + (gfs::enum-display-monitors ptr ptr (sb-alien:alien-sap *monitors-enum-proc*) 0)) (setf (display-visitor-func tc) nil)) (let ((tmp (reverse (display-visitor-results tc)))) (setf (display-visitor-results tc) nil) @@ -152,17 +152,17 @@ (let ((tc (thread-context))) (setf (top-level-visitor-func tc) func) (unwind-protect -#+sbcl +#+(or allegro clisp) (gfs::enum-child-windows (gfs::get-window-thread-process-id (utility-hwnd tc) (cffi:null-pointer)) - (sb-alien:alien-sap *enum-thread-wnd-proc*) + #'top-level-window-visitor 0) #+lispworks (gfs::enum-thread-windows (gfs::get-window-thread-process-id (utility-hwnd tc) (cffi:null-pointer)) (fli:make-pointer :symbol-name "top_level_window_visitor") 0) -#+clisp +#+sbcl (gfs::enum-child-windows (gfs::get-window-thread-process-id (utility-hwnd tc) (cffi:null-pointer)) - #'top-level-window-visitor + (sb-alien:alien-sap *enum-thread-wnd-proc*) 0) (setf (top-level-visitor-func tc) nil)) (let ((tmp (reverse (top-level-visitor-results tc)))) Modified: trunk/src/uitoolkit/widgets/thread-context.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/thread-context.lisp (original) +++ trunk/src/uitoolkit/widgets/thread-context.lisp Sat Dec 16 22:47:24 2006 @@ -62,10 +62,12 @@ ;; ;; TODO: change this once we understand SBCL MT support ;; -#+(or clisp sbcl) +;; TODO: support Allegro MT +;; +#+(or allegro clisp sbcl) (defvar *the-thread-context* nil) -#+(or clisp sbcl) +#+(or allegro clisp sbcl) (defun thread-context () (when (null *the-thread-context*) (setf *the-thread-context* (make-instance 'thread-context)) @@ -76,7 +78,7 @@ (format *error-output* "~a~%" e)))) *the-thread-context*) -#+(or clisp sbcl) +#+(or allegro clisp sbcl) (defun dispose-thread-context () (let ((hwnd (utility-hwnd *the-thread-context*))) (unless (gfs:null-handle-p hwnd) Modified: trunk/src/uitoolkit/widgets/widget-utils.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/widget-utils.lisp (original) +++ trunk/src/uitoolkit/widgets/widget-utils.lisp Sat Dec 16 22:47:24 2006 @@ -87,7 +87,7 @@ (translate-and-dispatch msg-ptr) nil))) -#+(or clisp sbcl) +#+(or allegro clisp sbcl) (defun startup (thread-name start-fn) (declare (ignore thread-name)) (funcall start-fn) Modified: trunk/src/uitoolkit/widgets/widget.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/widget.lisp (original) +++ trunk/src/uitoolkit/widgets/widget.lisp Sat Dec 16 22:47:24 2006 @@ -306,7 +306,6 @@ (gfs:make-point :x gfs::x :y gfs::y)))))) (defmethod (setf location) :before ((pnt gfs:point) (self widget)) - (declare (ignore pnt)) (if (gfs:disposed-p self) (error 'gfs:disposed-error))) @@ -433,7 +432,6 @@ (client-size self)) (defmethod (setf size) :before ((size gfs:size) (self widget)) - (declare (ignore size)) (if (gfs:disposed-p self) (error 'gfs:disposed-error))) Modified: trunk/src/uitoolkit/widgets/window.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/window.lisp (original) +++ trunk/src/uitoolkit/widgets/window.lisp Sat Dec 16 22:47:24 2006 @@ -329,17 +329,17 @@ (hwnd (gfs:handle self))) (setf (child-visitor-func tc) func) (unwind-protect -#+sbcl +#+(or allegro clisp) (gfs::enum-child-windows hwnd - (sb-alien:alien-sap *enum-child-proc*) + #'child-window-visitor (cffi:pointer-address hwnd)) #+lispworks (gfs::enum-child-windows hwnd (fli:make-pointer :symbol-name "child_window_visitor") (cffi:pointer-address hwnd)) -#+clisp +#+sbcl (gfs::enum-child-windows hwnd - #'child-window-visitor + (sb-alien:alien-sap *enum-child-proc*) (cffi:pointer-address hwnd)) (setf (child-visitor-func tc) nil)) (let ((tmp (reverse (child-visitor-results tc))))

1 0

[graphic-forms-cvs] r412 - trunk/docs/website
by junrue＠common-lisp.net 16 Dec '06

16 Dec '06

Author: junrue Date: Sat Dec 16 01:52:06 2006 New Revision: 412 Modified: trunk/docs/website/index.html Log: Modified: trunk/docs/website/index.html ============================================================================== --- trunk/docs/website/index.html (original) +++ trunk/docs/website/index.html Sat Dec 16 01:52:06 2006 @@ -30,13 +30,20 @@ terms of the <a href="http://home.earthlink.net/~jdunrue/license.html">BSD License</a>. + Long-term goals for this project may include implementing an application + framework on top of the toolkit, a rapid UI development language, a + UI design tool, or some combination thereof. + <h3>Status</h3> The current version is <a href="http://sourceforge.net/project/showfiles.php?group_id=163034"> 0.7.0</a>, released on 1 December 2006. - (12/14/2006) NOTE: I have decided not to spend further time or - energy on this project. + + Graphic-Forms is in the alpha stage of development, + meaning new features are still being added and existing features require + considerable testing. Be advised that significant API and behavior changes + are likely for at least several more releases. The supported Lisp implementations are: <ul>

1 0

[graphic-forms-cvs] r411 - in trunk: docs/website src/uitoolkit/graphics
by junrue＠common-lisp.net 15 Dec '06

15 Dec '06

Author: junrue Date: Fri Dec 15 02:16:47 2006 New Revision: 411 Modified: trunk/docs/website/index.html trunk/src/uitoolkit/graphics/font.lisp Log: Modified: trunk/docs/website/index.html ============================================================================== --- trunk/docs/website/index.html (original) +++ trunk/docs/website/index.html Fri Dec 15 02:16:47 2006 @@ -30,24 +30,13 @@ terms of the <a href="http://home.earthlink.net/~jdunrue/license.html">BSD License</a>. - The goal is to provide a <a href="http://www.lisp.org">Common Lisp</a>-based - toolkit for developing GUI applications on Windows. GUI features - are encapsulated by a thin abstraction layer offering a Lisp-friendly - interface. The library can be extended via - <a href="http://www.lisp.org">Common Lisp</a> bindings for system APIs. - Long-term goals for this project may include implementing an application - framework on top of the toolkit, a rapid UI development language, a - UI design tool, or some combination thereof. - <h3>Status</h3> The current version is <a href="http://sourceforge.net/project/showfiles.php?group_id=163034"> 0.7.0</a>, released on 1 December 2006. - Graphic-Forms is in the alpha stage of development, - meaning new features are still being added and existing features require - considerable testing. Brave souls who experiment with the code should expect - significant API and behavior changes for at least several more releases. + (12/14/2006) NOTE: I have decided not to spend further time or + energy on this project. The supported Lisp implementations are: <ul> @@ -56,12 +45,6 @@ <li><a href="http://www.sbcl.org/">SBCL 0.9.15</a> or later</li> </ul> - The supported Windows versions are: - <ul> - <li>XP SP2</li> - <li>Vista (testing on RC 1 currently underway)</li> - </ul> - <h3 id="mailinglists">Mailing Lists</h3> <ul> <li> Modified: trunk/src/uitoolkit/graphics/font.lisp ============================================================================== --- trunk/src/uitoolkit/graphics/font.lisp (original) +++ trunk/src/uitoolkit/graphics/font.lisp Fri Dec 15 02:16:47 2006 @@ -38,6 +38,8 @@ ;;; (defmethod data-object ((self font) &optional gc) + (if (null gc) + (error 'gfs:toolkit-error :detail "gc argument required when calling data-object for font")) (if (or (gfs:disposed-p self) (gfs:disposed-p gc)) (error 'gfs:disposed-error)) (font->data (gfs:handle gc) (gfs:handle self)))

1 0

[graphic-forms-cvs] r410 - tags/release-0.7.0
by junrue＠common-lisp.net 02 Dec '06

02 Dec '06

Author: junrue Date: Fri Dec 1 19:38:25 2006 New Revision: 410 Added: tags/release-0.7.0/ - copied from r409, trunk/ Log: tagging the 0.7.0 release

1 0

[graphic-forms-cvs] r409 - in trunk: . docs/website
by junrue＠common-lisp.net 02 Dec '06

02 Dec '06

Author: junrue Date: Fri Dec 1 19:36:48 2006 New Revision: 409 Modified: trunk/NEWS.txt trunk/README.txt trunk/docs/website/index.html Log: last doc updates for 0.7.0 Modified: trunk/NEWS.txt ============================================================================== --- trunk/NEWS.txt (original) +++ trunk/NEWS.txt Fri Dec 1 19:36:48 2006 @@ -1,3 +1,8 @@ +Release 0.7.0 of Graphic-Forms, a Common Lisp library for Windows GUI +programming, is now available. This is an alpha release, meaning that +the feature set and API have not yet stabilized. + +Here is what's new in this release: . Implemented cursor support. Applications can choose from the system-defined cursors or load them from external files. Also provided are convenience @@ -8,8 +13,8 @@ window or the center. . Implemented GFS:OBTAIN-SYSTEM-METRICS as a higher-level interface to the - Win32 GetSystemMetrics() API. It returns a hash table that applications - may cache if desired. + Win32 GetSystemMetrics() API. It returns a hash table containing slightly + post-processed system metrics values. . Implemented the function GFW:PROCESS-EVENTS to help applications flush the event queue of pending events. @@ -20,7 +25,20 @@ . Implemented a new macro GFW:WITH-ROOT-WINDOW which manages the lifetime of an instance of GFW:ROOT-WINDOW for use within the macro body. -. Fixed problems in loading the ASD files. +. Fixed ASDF loading problems. + +The README.txt file in the release zip file also has additional important +information about this release. + +Download the release zip file here: +http://prdownloads.sourceforge.net/graphic-forms/graphic-forms-0.7.0.zip?download + +The project website is: +http://common-lisp.net/project/graphic-forms/ + +Jack Unrue +jdunrue (at) gmail (dot) com +1 December 2006 ============================================================================== Modified: trunk/README.txt ============================================================================== --- trunk/README.txt (original) +++ trunk/README.txt Fri Dec 1 19:36:48 2006 @@ -1,5 +1,5 @@ -Graphic-Forms README for version 0.7.0 (2 December 2006) +Graphic-Forms README for version 0.7.0 (1 December 2006) Copyright (c) 2006, Jack D. Unrue Graphic-Forms is a user interface library implemented in Common Lisp focusing Modified: trunk/docs/website/index.html ============================================================================== --- trunk/docs/website/index.html (original) +++ trunk/docs/website/index.html Fri Dec 1 19:36:48 2006 @@ -43,7 +43,7 @@ The current version is <a href="http://sourceforge.net/project/showfiles.php?group_id=163034"> - 0.7.0</a>, released on 2 December 2006. + 0.7.0</a>, released on 1 December 2006. Graphic-Forms is in the alpha stage of development, meaning new features are still being added and existing features require considerable testing. Brave souls who experiment with the code should expect

1 0

[graphic-forms-cvs] r408 - in trunk: . docs/manual docs/website
by junrue＠common-lisp.net 02 Dec '06

02 Dec '06

Author: junrue Date: Fri Dec 1 19:16:23 2006 New Revision: 408 Modified: trunk/NEWS.txt trunk/README.txt trunk/docs/manual/gfw-symbols.xml trunk/docs/website/index.html Log: doc updates for 0.7.0 release Modified: trunk/NEWS.txt ============================================================================== --- trunk/NEWS.txt (original) +++ trunk/NEWS.txt Fri Dec 1 19:16:23 2006 @@ -9,8 +9,7 @@ . Implemented GFS:OBTAIN-SYSTEM-METRICS as a higher-level interface to the Win32 GetSystemMetrics() API. It returns a hash table that applications - may cache if desired, and collapses certain related metrics values for - easier access. + may cache if desired. . Implemented the function GFW:PROCESS-EVENTS to help applications flush the event queue of pending events. @@ -21,6 +20,8 @@ . Implemented a new macro GFW:WITH-ROOT-WINDOW which manages the lifetime of an instance of GFW:ROOT-WINDOW for use within the macro body. +. Fixed problems in loading the ASD files. + ============================================================================== Release 0.6.0 of Graphic-Forms, a Common Lisp library for Windows GUI Modified: trunk/README.txt ============================================================================== --- trunk/README.txt (original) +++ trunk/README.txt Fri Dec 1 19:16:23 2006 @@ -1,5 +1,5 @@ -Graphic-Forms README for version 0.7.0 (xx xxxxx 2006) +Graphic-Forms README for version 0.7.0 (2 December 2006) Copyright (c) 2006, Jack D. Unrue Graphic-Forms is a user interface library implemented in Common Lisp focusing @@ -44,7 +44,7 @@ ------------------------------------- Graphic-Forms currently supports CLISP 2.40 or higher, LispWorks 4.4.6, -and SBCL 0.9.15 (the latter with a small patch). +and SBCL 0.9.15 or higher (with a small patch). Known Problems @@ -73,9 +73,16 @@ compute height from that. The gfg:text-extent function does return the correct width. -5. If a Graphic-Forms application is launched from within SLIME on a - single-threaded Common Lisp implementation, further SLIME commands - will be 'pipelined' until the Graphic-Forms main message loop exits. +5. The implementation of GFW:COMPUTE-SIZE for GFW:FLOW-LAYOUT does not + account for non-negative values for width or height hints when the + :WRAP style is specified. Several of the flow-layout unit tests + are currently failing because of this problem. + +6. If a Graphic-Forms application is launched from within SLIME with + SBCL as the backend (which is currently single-threaded on Win32), + further SLIME commands will be 'pipelined' until the Graphic-Forms + main message loop exits. The best workaround is to use the REPL + from a command prompt window. How To Configure and Build Modified: trunk/docs/manual/gfw-symbols.xml ============================================================================== --- trunk/docs/manual/gfw-symbols.xml (original) +++ trunk/docs/manual/gfw-symbols.xml Fri Dec 1 19:16:23 2006 @@ -62,6 +62,7 @@ </enum> Note that only one child may be assigned to each region at a time. </para> + <para role="normal"> The :top and :bottom components may be stretched horizontally, while the :left and :right components may be stretched vertically. The :center component @@ -142,7 +144,14 @@ </description> </argument> </initargs> - <para role="normal"/> + <seealso> + <reftopic>gfw:heap-layout</reftopic> + <reftopic>gfw:flow-layout</reftopic> + <reftopic>gfw:preferred-size</reftopic> + <reftopic>gfw:perform</reftopic> + <reftopic>gfw:compute-layout</reftopic> + <reftopic>gfw:compute-size</reftopic> + </seealso> </class> <class name="flow-layout"> @@ -228,7 +237,12 @@ </argument> </initargs> <seealso> + <reftopic>gfw:border-layout</reftopic> + <reftopic>gfw:heap-layout</reftopic> <reftopic>gfw:preferred-size</reftopic> + <reftopic>gfw:compute-layout</reftopic> + <reftopic>gfw:compute-size</reftopic> + <reftopic>gfw:perform</reftopic> </seealso> </class> @@ -291,7 +305,12 @@ </argument> </initargs> <seealso> + <reftopic>gfw:border-layout</reftopic> + <reftopic>gfw:flow-layout</reftopic> + <reftopic>gfw:perform</reftopic> <reftopic>gfw:preferred-size</reftopic> + <reftopic>gfw:compute-layout</reftopic> + <reftopic>gfw:compute-size</reftopic> </seealso> </class> @@ -368,6 +387,9 @@ </initargs> <seealso> <reftopic>gfw:preferred-size</reftopic> + <reftopic>gfw:perform</reftopic> + <reftopic>gfw:compute-layout</reftopic> + <reftopic>gfw:compute-size</reftopic> </seealso> </class> @@ -2767,6 +2789,7 @@ <seealso> <reftopic>gfw:compute-size</reftopic> <reftopic>gfw:perform</reftopic> + <reftopic>gfw:preferred-size</reftopic> </seealso> </generic-function> @@ -2811,6 +2834,7 @@ </description> <seealso> <reftopic>gfw:compute-layout</reftopic> + <reftopic>gfw:preferred-size</reftopic> <reftopic>gfw:perform</reftopic> </seealso> </generic-function> @@ -2856,6 +2880,7 @@ <seealso> <reftopic>gfw:compute-layout</reftopic> <reftopic>gfw:compute-size</reftopic> + <reftopic>gfw:preferred-size</reftopic> </seealso> </generic-function> Modified: trunk/docs/website/index.html ============================================================================== --- trunk/docs/website/index.html (original) +++ trunk/docs/website/index.html Fri Dec 1 19:16:23 2006 @@ -43,7 +43,7 @@ The current version is <a href="http://sourceforge.net/project/showfiles.php?group_id=163034"> - 0.7.0</a>, released on xx xxxxxx 2006. + 0.7.0</a>, released on 2 December 2006. Graphic-Forms is in the alpha stage of development, meaning new features are still being added and existing features require considerable testing. Brave souls who experiment with the code should expect

1 0

[graphic-forms-cvs] r407 - trunk/src/tests/uitoolkit
by junrue＠common-lisp.net 30 Nov '06

30 Nov '06

Author: junrue Date: Wed Nov 29 22:16:44 2006 New Revision: 407 Added: trunk/src/tests/uitoolkit/custom.cur (contents, props changed) Modified: trunk/src/tests/uitoolkit/scroll-grid-panel.lisp Log: added test for loading and using cursor from file Added: trunk/src/tests/uitoolkit/custom.cur ============================================================================== Binary file. No diff available. Modified: trunk/src/tests/uitoolkit/scroll-grid-panel.lisp ============================================================================== --- trunk/src/tests/uitoolkit/scroll-grid-panel.lisp (original) +++ trunk/src/tests/uitoolkit/scroll-grid-panel.lisp Wed Nov 29 22:16:44 2006 @@ -46,6 +46,7 @@ (declare (ignore disp item))) (defun make-scroll-grid-panel (parent) + (setf *default-pathname-defaults* (parse-namestring gfsys::*gf-tests-dir*)) (let ((panel-size (gfs:make-size :width (1+ (* (gfs:size-width *grid-model-size*) +grid-cell-extent+)) :height (1+ (* (gfs:size-height *grid-model-size*) +grid-cell-extent+)))) (panel (make-instance 'gfw:panel :dispatcher (make-instance 'scroll-grid-panel-events) @@ -55,7 +56,9 @@ (assert (gfs:equal-size-p panel-size (slot-value panel 'gfw::max-size))) (setf (gfs:size-width *grid-char-size*) (floor +grid-half-extent+ 2) (gfs:size-height *grid-char-size*) (floor +grid-half-extent+ 2)) - (setf (gfw:cursor-of panel) (make-instance 'gfg:cursor :system gfg:+hand-cursor+)) + (setf (gfw:cursor-of panel) + (make-instance 'gfg:cursor + :file (merge-pathnames "custom.cur"))) panel)) (defun set-grid-scroll-params (window)

1 0

[graphic-forms-cvs] r406 - trunk/src/uitoolkit/widgets
by junrue＠common-lisp.net 29 Nov '06

29 Nov '06

Author: junrue Date: Wed Nov 29 13:51:06 2006 New Revision: 406 Modified: trunk/src/uitoolkit/widgets/widget.lisp Log: fixed a regression in (setf cursor-of) Modified: trunk/src/uitoolkit/widgets/widget.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/widget.lisp (original) +++ trunk/src/uitoolkit/widgets/widget.lisp Wed Nov 29 13:51:06 2006 @@ -81,7 +81,9 @@ (let ((capture-hwnd (gfs::get-capture))) (if (or (gfs:null-handle-p capture-hwnd) (cffi:pointer-eq capture-hwnd (gfs:handle widget))) - (gfs::set-cursor (gfs:handle cursor))))) + (if cursor + (gfs::set-cursor (gfs:handle cursor)) + (gfs::set-cursor (cffi:null-pointer)))))) (defmacro with-cursor ((widget &key file hotspot image system) &body body) (lispworks:with-unique-names (old new retval)

1 0