CLIM mail archive
[Prev][Next][Index][Thread]

Bug-report

 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

 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):
Follow-Ups:
Main Index | Thread Index