Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp:/tmp/cvs-serv14720/root/cells-gtk
Modified Files: menus.lisp Log Message: use pod-utils
--- /project/cells-gtk/cvsroot/root/cells-gtk/menus.lisp 2006/02/16 18:16:28 1.12 +++ /project/cells-gtk/cvsroot/root/cells-gtk/menus.lisp 2006/02/19 20:12:16 1.13 @@ -78,12 +78,12 @@ '(:string :string) pfunc (children-fn self))) ;; Spec says iter must correspond to a path of depth one. But then there would be no point ;; in set-active-iter. Well, the spec seems to be wrong (or poorly worded). - (bwhen (path (init self)) + (when-bind (path (init self)) (cgtk-set-active-item-by-path self path)))))
(defmethod cgtk-set-active-item-by-path ((self combo-box) path) "Sets the value of the tree-model type combo-box to the item at the path. Path is a list of integers." - (bwhen (tree (tree-model self)) + (when-bind (tree (tree-model self)) (with-tree-iters (it) (when (gtk-tree-model-get-iter-from-string (id tree) it (format nil "~{~A~^:~}" path)) (gtk-combo-box-set-active-iter (id self) it) @@ -97,7 +97,7 @@ (when new-value (dolist (item (items self)) (gtk-combo-box-append-text (id self) (funcall (print-fn self) item))) - (bif (index (position (init self) (items self))) + (if-bind (index (position (init self) (items self))) (progn (gtk-combo-box-set-active (id self) index) (setf (md-value self) (init self))) (progn (gtk-combo-box-set-active (id self) 0)