From 6beb5074f6074f88e75f8a24271c5aeca7ee886a Mon Sep 17 00:00:00 2001 Message-Id: <6beb5074f6074f88e75f8a24271c5aeca7ee886a.1716631675.git.mdw@distorted.org.uk> From: Mark Wooding Date: Fri, 23 Jun 2006 12:46:26 +0000 Subject: [PATCH] Added new function ENSURE-TREE-PATH Organization: Straylight/Edgeware From: espen --- gtk/gtktree.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/gtk/gtktree.lisp b/gtk/gtktree.lisp index e6cc5b0..0d10156 100644 --- a/gtk/gtktree.lisp +++ b/gtk/gtktree.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gtktree.lisp,v 1.21 2006/06/23 12:25:37 espen Exp $ +;; $Id: gtktree.lisp,v 1.22 2006/06/23 12:46:26 espen Exp $ (in-package "GTK") @@ -308,6 +308,11 @@ (define-type-method destroy-function ((type tree-path) &key temp inlined) #'(lambda (location &optional (offset 0)) (%tree-path-free (ref-pointer location offset)))) +(defun ensure-tree-path (path) + (etypecase path + (string (coerce (clg-utils:split-string path :delimiter #\:) 'vector)) + (vector path))) + (defbinding %tree-row-reference-new () pointer (model tree-model) -- [mdw]