RE: Making toolbar divider fill to the right...

Hello,

I think Lispworks is using a docking-layout, at least it is this way I'm
doing it.
Try this :

(define-interface toolbar-interface ()
    ()
    (:panes
     (toolbar-panel
      toolbar
      :items
      (list
       (make-instance 'toolbar-button :image :std-file-open)
       (make-instance 'toolbar-button :image :std-file-save))))
    (:layouts
      (top-docking-layout docking-layout
         '()
         :divider-p t
         :items
         '((toolbar-panel))
         ))
    (:default-initargs
     :layout 'top-docking-layout))


Sebastien.


> -----Message d'origine-----
> De : owner-lisp-hug@xanalys.com [mailto:owner-lisp-hug@xanalys.com]De la
> part de Ng Pheng Siong
> Envoye : mardi 2 mars 2004 06:59
> A : lisp-hug@xanalys.com
> Objet : Making toolbar divider fill to the right...
>
>
> Hi,
>
> How do I make a toolbar's divider fill all the way to the right?
>
> With the following:
>
> (define-interface toolbar-interface ()
>     ()
>     (:panes
>      (toolbar-panel
>       toolbar
>       :dividerp t
>       :items
>       (list
>        (make-instance 'toolbar-button :image :std-file-open)
>        (make-instance 'toolbar-button :image :std-file-save))))
>     (:layouts
>      (toolbar-layout simple-layout '(toolbar-panel)))
>     (:default-initargs
>      :layout 'toolbar-layout))
>
> (contain (make-instance 'toolbar-interface))
>
> The divider above the toolbar is just two buttons wide. How to make it
> extend all the way, like LWW's own toolbar?
>
> Thanks! Cheers.
>
> --
> Ng Pheng Siong <ngps@netmemetic.com>
>
> http://firewall.rulemaker.net -+- Firewall Change Management &
> Version Control
> http://sandbox.rulemaker.net/ngps -+- Open Source Python Crypto & SSL
>
>