NextPrevUpTopContentsIndex

titled-pinboard-object

Class
Summary

A pinboard object with a title.

Package

capi

Superclasses

pinboard-object
titled-object

Subclasses

image-pinboard-object

Description

The class titled-pinboard-object provides a pinboard object with a title. The title is regarded as part of the object in geometry calculations.

Note: titled-pinboard-object does not allow the value :frame for the titled-object initarg title-position . The values :top , :bottom , :left and :right are allowed.

Examples

This example creates three instances of titled-pinboard-object and one of item-pinboard-object, all with with a yellow background. Note that:

  1. The title does not have the yellow background in the titled-pinboard-object , as opposed to the item-pinboard-object. To specify the title background, we pass it in the title-args .
  2. The width of the title area is determined by the title, but passing :visible-min-width (and other geometric hints) can be used to override this.
  3. Setting the titled-object-title of the titled-pinboard-object does not reset its width.
(setq tpo1 (make-instance 'capi:titled-pinboard-object
                           :graphics-args 
                           '(:background :yellow)
                           :x 10 :y 10 
                           :width 150 :height 20
                           :title "Short"
                           :title-position :left
                           :title-args 
                           '(:background :red ))
      tpo2  (make-instance 'capi:titled-pinboard-object
                           :graphics-args 
                           '(:background :yellow)
                           :x 10 :y 40 
                           :width 150 :height 20
                           :title "Long title" 
                           :title-position :left)
      tpo3  (make-instance 'capi:titled-pinboard-object
                           :graphics-args 
                           '(:background :yellow)
                           :x 10 :y 70 
                           :width 150 :height 20
                           :title "Short" 
                           :title-position :left
                           :title-args 
                           '(:visible-min-width 100))
      ipo  (make-instance 'capi:item-pinboard-object
                          :graphics-args 
                          '(:background :yellow)
                          :x 10 :y 100 
                          :width 150 :height 20
                          :text "Item Pinboard" ))
(setq pl (capi:contain
          (make-instance 'capi:pinboard-layout
                         :visible-min-width  200
                         :visible-min-height 200
                         :description
                         (list tpo1 tpo2 tpo3 ipo))))
 
(capi:apply-in-pane-process 
 pl 
 #'(lambda()
     (setf (capi:titled-object-title tpo1) 
           "Longer...")))
See also

item-pinboard-object


LispWorks CAPI Reference Manual - 17 Mar 2008

NextPrevUpTopContentsIndex