Clim Listener demo extension

• To: carlson%lindy@cs.umass.edu
• Subject: Clim Listener demo extension
• From: Scott McKay <swm@harlequin.com>
• Date: Wed, 23 Mar 94 16:46:09 EST
• Cc: clim@BBN.COM
• In-Reply-To: Adam Carlson's message of Fri, 18 Mar 1994 16:36:46 -0500 <9403182136.AA03626@lindy.cs.umass.edu>

   Date: Fri, 18 Mar 1994 16:36:46 -0500
   From: Adam Carlson <carlson%lindy@cs.umass.edu>

   Clim 1.1
     Lucid 4.1 - Sparc
     Lispworks 3.1 - Sparc & Alpha
   Clim 2.0 beta
     Lucid 4.1 - Sparc
     Lispworks 3.2b1 - Alpha

   I have an application which has a command reader based on the listener code
   which is part of the clim demo files.  I have encountered a number of problems
   on different plaforms/lisp implementations.

   Below I include source code which duplicates these bugs.

   3) How do I get pointer-documentation to work in clim 2?

   I've tried using :pointer-documentation t in the define-application-frame.  I
   saw that in other peoples code.  I've also tried using a pane of type
   :pointer-documentation.  The problem there is that I can't get it to be just
   one line high, it's relative to the size of the window.  Even then I can get a
   pointer documentation pane to show up, but nothing ever appears in it.

   This is demonstrated in the define-application-frame and the various
   presentation translators which have pointer-documentation below.

I just fixed this in the Harlqn sources.  Try compiling this for CLIM 2.0,
and continue to use the :POINTER-DOCUMENTATION pane type.

(in-package :clim-internals)
(define-pane-type :pointer-documentation (&rest options)
  (declare (non-dynamic-extent options))
  `(make-clim-stream-pane
     :type 'pointer-documentation-pane
     ,@options
     :display-after-commands nil
     :text-style (parse-text-style '(:sans-serif :bold :normal))
     :scroll-bars nil
     :max-width +fill+
     :height '(1 :line) :max-height '(1 :line)
     :end-of-page-action :allow
     :end-of-line-action :allow))

• Prev: CLIM keeping X server busy
• Next: LABELs
• Index: CLIM Mailing list (1-Jun-94 to 30-Jun-95)
• Thread: CLIM Mailing list Index (1-Jun-94 to 30-Jun-95)