cells-gtk-cvs January 2006

cells-gtk-cvs@common-lisp.net

1 participants
24 discussions

[cells-gtk-cvs] CVS update: root/cells-gtk/packages.lisp
by pdenno＠common-lisp.net 03 Jan '06

03 Jan '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv29272/root/cells-gtk Modified Files: packages.lisp Log Message: CFFI : No need for #+clisp stuff Date: Tue Jan 3 19:59:58 2006 Author: pdenno Index: root/cells-gtk/packages.lisp diff -u root/cells-gtk/packages.lisp:1.1 root/cells-gtk/packages.lisp:1.2 --- root/cells-gtk/packages.lisp:1.1 Sun May 29 23:01:21 2005 +++ root/cells-gtk/packages.lisp Tue Jan 3 19:59:58 2006 @@ -19,7 +19,7 @@ (defpackage :cells-gtk (:nicknames :cgtk) (:use :common-lisp :utils-kt :cells :gtk-ffi - #+clisp :ffi #-clisp :uffi #-clisp #:ffx)) + :uffi #:ffx))

1 0

[cells-gtk-cvs] CVS update: root/cells-gtk/layout.lisp
by pdenno＠common-lisp.net 03 Jan '06

03 Jan '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv29248/root/cells-gtk Modified Files: layout.lisp Log Message: Stuff for divider position and checking whether page already is displayed (or something like that). Date: Tue Jan 3 19:58:55 2006 Author: pdenno Index: root/cells-gtk/layout.lisp diff -u root/cells-gtk/layout.lisp:1.5 root/cells-gtk/layout.lisp:1.6 --- root/cells-gtk/layout.lisp:1.5 Sun May 29 23:08:22 2005 +++ root/cells-gtk/layout.lisp Tue Jan 3 19:58:54 2006 @@ -76,7 +76,13 @@ (y-pad kid)))))) (def-widget hpaned () - () () ()) + ((divider-pos :accessor divider-pos :initarg :divider-pos :initform (c-in 0))) + () + ()) + +(def-c-output divider-pos ((self hpaned)) + (when new-value + (gtk-paned-set-position (id self) new-value))) (def-c-output .kids ((self hpaned)) (when new-value @@ -90,7 +96,13 @@ #+clisp (call-next-method)) (def-widget vpaned () - () () ()) + ((divider-pos :accessor divider-pos :initarg :divider-pos :initform (c-in 0))) + () + ()) + +(def-c-output divider-pos ((self vpaned)) + (when new-value + (gtk-paned-set-position (id self) new-value))) (def-c-output .kids ((self vpaned)) (when new-value @@ -184,7 +196,7 @@ #+clisp (call-next-method)) (def-widget notebook () - ((tab-labels :accessor tab-labels :initarg :tab-labels :initform nil) + ((tab-labels :accessor tab-labels :initarg :tab-labels :initform (c-in nil)) (tab-labels-widgets :accessor tab-labels-widgets :initform (c-in nil)) (show-page :accessor show-page :initarg :show-page :initform (c-in 0)) (tab-pos :accessor tab-pos :initarg :tab-pos :initform (c-in nil))) @@ -205,16 +217,22 @@ (:bottom 3) (t 2))))) +(defun notebook-contains-page-p (notebook widget &aux (wid (pointer-address (id widget)))) + (loop for i from 1 to (gtk-notebook-get-n-pages (id notebook)) + for page = (gtk-notebook-get-nth-page (id notebook) (1- i)) + when (= wid (pointer-address page)) return t)) + (def-c-output show-page ((self notebook)) (when (and new-value (>= new-value 0) (< new-value (length (kids self)))) (setf (current-page self) new-value))) (def-c-output .kids ((self notebook)) - (dolist (widget (tab-labels-widgets self)) - (not-to-be widget)) + ;(dolist (widget (tab-labels-widgets self)) ;; This was from the original code. + ; (not-to-be widget)) ;; It causes errors. (loop for kid in new-value for pos from 0 - for label = (nth pos (tab-labels self)) do + for label = (nth pos (tab-labels self)) + unless (notebook-contains-page-p self kid) do (let ((lbl (and label (make-be 'label :text label)))) (when lbl (push lbl (tab-labels-widgets self))) (gtk-notebook-append-page (id self) (id kid) (and lbl (id lbl)))))

1 0

[cells-gtk-cvs] CVS update: root/cells-gtk/gtk-app.lisp
by pdenno＠common-lisp.net 03 Jan '06

03 Jan '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv29218/root/cells-gtk Modified Files: gtk-app.lisp Log Message: Quit out of as many main loops as necessary. Date: Tue Jan 3 19:57:41 2006 Author: pdenno Index: root/cells-gtk/gtk-app.lisp diff -u root/cells-gtk/gtk-app.lisp:1.14 root/cells-gtk/gtk-app.lisp:1.15 --- root/cells-gtk/gtk-app.lisp:1.14 Sun May 29 23:06:47 2005 +++ root/cells-gtk/gtk-app.lisp Tue Jan 3 19:57:41 2006 @@ -91,13 +91,13 @@ (not-to-be splash) (gtk-window-set-auto-startup-notification t)) (setf (visible app) t) - (when *gtk-debug* (trc nil "STARTING GTK-MAIN") (force-output)) #-lispworks (gtk-main) #+lispworks - (flet ((do-gtk () (loop while (gtk-events-pending) do (gtk-main-iteration-do nil)))) + (flet ((do-gtk () (loop while (gtk-events-pending) do + (gtk-main-iteration-do nil)))) (unwind-protect (catch 'try-again (handler-case @@ -109,11 +109,11 @@ (show-message (format nil "Cells-GTK Error: ~a" err) :message-type :error :title "Cells-GTK Error") (throw 'try-again nil)) ; This doesn't really work. u-p cleanup forms invoked. - (gtk-user-signals-quit (c) - (declare (ignore c)) - (return-from start-app nil)))) + (gtk-user-signals-quit () + (loop while (> (gtk-main-level) 0) do (gtk-main-quit)) + (return-from start-app)))) (not-to-be app) - (gtk-main-quit) + (loop while (> (gtk-main-level) 0) do (gtk-main-quit)) (do-gtk)))))))

1 0

[cells-gtk-cvs] CVS update: root/cells-gtk/cells-gtk.asd
by pdenno＠common-lisp.net 03 Jan '06

03 Jan '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv29184/root/cells-gtk Modified Files: cells-gtk.asd Log Message: Don't load drawing.lisp, it is not ready. Date: Tue Jan 3 19:55:17 2006 Author: pdenno Index: root/cells-gtk/cells-gtk.asd diff -u root/cells-gtk/cells-gtk.asd:1.5 root/cells-gtk/cells-gtk.asd:1.6 --- root/cells-gtk/cells-gtk.asd:1.5 Sat Oct 8 16:29:28 2005 +++ root/cells-gtk/cells-gtk.asd Tue Jan 3 19:55:16 2006 @@ -11,7 +11,7 @@ (:file "widgets" :depends-on ("conditions")) (:file "layout" :depends-on ("widgets")) (:file "display" :depends-on ("widgets")) - (:file "drawing" :depends-on ("widgets")) +#+notyet(:file "drawing" :depends-on ("widgets")) ; not ready yet. (:file "buttons" :depends-on ("widgets")) (:file "entry" :depends-on ("widgets")) (:file "tree-view" :depends-on ("widgets"))

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

cells-gtk-cvs January 2006