CLIM mail archive

Bug-report

To: sims@pdesds1.scra.org, clim@BBN.COM, bugs@franz.com, hummel@pdesds1.scra.org
Subject: Bug-report
From: Scott McKay <SWM@stony-brook.scrc.symbolics.com>
Date: Thu, 14 Oct 1993 11:50 -0400
In-Reply-To: <9310141511.AA00995@pdesds1.noname>

    Date: Thu, 14 Oct 1993 11:11 EDT
    From: Jim Sims <sims@pdesds1.scra.org>

     oops - left out the frame def - here it is again:

     Allegro 4.x, Clim 1.1, Sparc 10

     I'm trying to smash together a bunch of independent frames into one
     mondo frame. In the course of this exercise, i get them together, but
     notice a 'problem'. Some of the pane definitions seem to have
     multiple values for things like :default-text-style (some are actual
     text styles, some arent), :incremental-redisplay,
     :redisplay-function, etc

Since it's a CL property list, the first value in the plist is the one
that is supposed to be used.  If this is actually causing a problem, I
would guess that the CL implementation is handling plists wrong.

BTW, :REDISPLAY-AFTER-COMMANDS is not an option recognized by CLIM.  I
imagine you mean :DISPLAY-AFTER-COMMANDS.

     Here's a frame defintion and the associated stuff....

    jim


    (clim::define-application-frame drawing-window ()
	((instances :accessor :instances :initform nil :initarg :instances))
      (:panes
	((menu-pane :command-menu
		     :default-text-style '(:fix :roman :small)
		     :borders t)	 ;;;		 :display-function 'command-menu-display-function
	 (display-area :application
		       :default-text-style '(:fix :roman :small)
		       :scroll-bars :both
		       :borders t
		       :redisplay-after-commands t)
	 (graphic-menu :application
		       :default-text-style '(:fix :roman :small)
		       :scroll-bars :none
		       :borders nil
		       :redisplay-after-commands t)
	 (doc-pane :pointer-documentation
		   :default-text-style '(:fix :roman :small)
		   :redisplay-after-commands t)))
      (:layout
	((main
	  (:column :rest
		   (:row :rest
			    (graphic-menu 1/16)
			    (display-area :rest))
		   (menu-pane 1/16)
		   (doc-pane 1/16)))))
      (:Command-table (drawing-command-table)))


    SMASHER(274): (clim::find-frame-descriptor 'drawing::drawing-window)
    #<CLIM::FRAME-DESCRIPTOR DRAWING-WINDOW @ #x173fb5e>
    SMASHER(275): (clim::frame-descriptor-pane-descriptions *)
    ((DRAWING::MENU-PANE :COMMAND-MENU :DEFAULT-TEXT-STYLE (:FIX :ROMAN :SMALL) :BORDERS T :DEFAULT-TEXT-STYLE
      #<CLIM::TEXT-STYLE :SANS-SERIF.:ROMAN.:LARGE @ #xb444e6> :INCREMENTAL-REDISPLAY T ...)
     (DRAWING::DISPLAY-AREA :APPLICATION :DEFAULT-TEXT-STYLE (:FIX :ROMAN :SMALL) :SCROLL-BARS :BOTH :BORDERS T
      :REDISPLAY-AFTER-COMMANDS T ...)
     (DRAWING::GRAPHIC-MENU :APPLICATION :DEFAULT-TEXT-STYLE (:FIX :ROMAN :SMALL) :SCROLL-BARS :NONE :BORDERS NIL
      :REDISPLAY-AFTER-COMMANDS T ...)
     (DRAWING::DOC-PANE :POINTER-DOCUMENTATION :DEFAULT-TEXT-STYLE (:FIX :ROMAN :SMALL) :REDISPLAY-AFTER-COMMANDS T
      :DEFAULT-TEXT-STYLE #<CLIM::TEXT-STYLE :SANS-SERIF.:BOLD.:NORMAL @ #xc2a2f6> :DISPLAY-AFTER-COMMANDS NIL ...))
    SMASHER(276): (print (setq pane (first (setq panes *))))

    (DRAWING::MENU-PANE :COMMAND-MENU :DEFAULT-TEXT-STYLE (:FIX :ROMAN :SMALL) :BORDERS T :DEFAULT-TEXT-STYLE
     #<CLIM::TEXT-STYLE :SANS-SERIF.:ROMAN.:LARGE @ #xb444e6> :INCREMENTAL-REDISPLAY T :DISPLAY-FUNCTION DISPLAY-COMMAND-MENU
     :DISPLAY-AFTER-COMMANDS T :DEFAULT-SIZE :COMPUTE :SCROLL-BARS NIL) 
    (DRAWING::MENU-PANE :COMMAND-MENU :DEFAULT-TEXT-STYLE (:FIX :ROMAN :SMALL) :BORDERS T :DEFAULT-TEXT-STYLE
     #<CLIM::TEXT-STYLE :SANS-SERIF.:ROMAN.:LARGE @ #xb444e6> :INCREMENTAL-REDISPLAY T ...)
    SMASHER(277): (print panes)

    ((DRAWING::MENU-PANE :COMMAND-MENU :DEFAULT-TEXT-STYLE (:FIX :ROMAN :SMALL) :BORDERS T :DEFAULT-TEXT-STYLE
      #<CLIM::TEXT-STYLE :SANS-SERIF.:ROMAN.:LARGE @ #xb444e6> :INCREMENTAL-REDISPLAY T :DISPLAY-FUNCTION DISPLAY-COMMAND-MENU
      :DISPLAY-AFTER-COMMANDS T :DEFAULT-SIZE :COMPUTE :SCROLL-BARS NIL)
     (DRAWING::DISPLAY-AREA :APPLICATION :DEFAULT-TEXT-STYLE (:FIX :ROMAN :SMALL) :SCROLL-BARS :BOTH :BORDERS T
      :REDISPLAY-AFTER-COMMANDS T :DEFAULT-SIZE :REST)
     (DRAWING::GRAPHIC-MENU :APPLICATION :DEFAULT-TEXT-STYLE (:FIX :ROMAN :SMALL) :SCROLL-BARS :NONE :BORDERS NIL
      :REDISPLAY-AFTER-COMMANDS T :DEFAULT-SIZE :REST)
     (DRAWING::DOC-PANE :POINTER-DOCUMENTATION :DEFAULT-TEXT-STYLE (:FIX :ROMAN :SMALL) :REDISPLAY-AFTER-COMMANDS T
      :DEFAULT-TEXT-STYLE #<CLIM::TEXT-STYLE :SANS-SERIF.:BOLD.:NORMAL @ #xc2a2f6> :DISPLAY-AFTER-COMMANDS NIL :DEFAULT-SIZE :COMPUTE
      :SCROLL-BARS NIL)) 
    ((DRAWING::MENU-PANE :COMMAND-MENU :DEFAULT-TEXT-STYLE (:FIX :ROMAN :SMALL) :BORDERS T :DEFAULT-TEXT-STYLE
      #<CLIM::TEXT-STYLE :SANS-SERIF.:ROMAN.:LARGE @ #xb444e6> :INCREMENTAL-REDISPLAY T ...)
     (DRAWING::DISPLAY-AREA :APPLICATION :DEFAULT-TEXT-STYLE (:FIX :ROMAN :SMALL) :SCROLL-BARS :BOTH :BORDERS T
      :REDISPLAY-AFTER-COMMANDS T ...)
     (DRAWING::GRAPHIC-MENU :APPLICATION :DEFAULT-TEXT-STYLE (:FIX :ROMAN :SMALL) :SCROLL-BARS :NONE :BORDERS NIL
      :REDISPLAY-AFTER-COMMANDS T ...)
     (DRAWING::DOC-PANE :POINTER-DOCUMENTATION :DEFAULT-TEXT-STYLE (:FIX :ROMAN :SMALL) :REDISPLAY-AFTER-COMMANDS T
      :DEFAULT-TEXT-STYLE #<CLIM::TEXT-STYLE :SANS-SERIF.:BOLD.:NORMAL @ #xc2a2f6> :DISPLAY-AFTER-COMMANDS NIL ...))
    SMASHER(278):

References:

Bug-report

From: Jim Sims <sims@pdesds1.scra.org>

Prev: Background Color in CLIM
Next: Re: [spr9501] with-output-as-presentation
Index: CLIM Mailing list (1-Jan-93 to 31-May-94)
Thread: CLIM Mailing list Index (1-Jan-93 to 31-May-94)

Main Index | Thread Index