Lisp HUG Maillist Archive

item-pinboard-objects of different height in graph-pane

Hello folks,

Please take a look at simple-graph-pane.lisp from the examples directory.

I would like to display
- leaves of one-character height but
- nodes of two-character height.

In my case, the graph looks ugly - the leaves are not placed in a  
symmetric manner vertically. Is there any chance to amend?

The only code difference from simple-graph-pane.lisp is as follows.

(defun make-node-pane (pane string)
   (declare (ignore pane))
   (make-instance 'capi:item-pinboard-object
                  :text string
                  :visible-min-height    ; THE ONLY DIFFERENCE
                  (list :character (if (= (length string) 1) 1 2))
                  :graphics-args
                  (list :background
                        (svref #(:yellow :pink :cyan :green :white)
                               (mod (length string) 5)))))

-- 
Dmitry Ivanov
lisp.ystok.ru

_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html

Updated at: 2020-12-10 08:28 UTC