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

accepting-values problem in 1.1

We have a (simple?) problem using accepting-values panes in CLIM 1.1.
(CLIM 1.1 MCL Macintosh *AND* CLIM 1.1 Lucid Sun)
Maybe we missed something obvious? 

The problem is that after each refresh of the av-pane 
the pane gets scrambeled in some way, mostly such that only
some of the information is visible. In spite of this, the
invisible slots of the av-dialog are still mouse-sensitive
and hilighted correctly. 

It is the same behavior whether the refresh occurs automatically
by finishing the filling of an avp slot or by calling
an explicit refresh command.

(In contrast, after resizing the window (= application-frame) 
the whole contents of all panes is redrawn correctly.)

Please could someone help us with this, or point us to a
working example (we found no avp in the demos)?

Thanks in advance          D. Pree and R. Mittelmann

Stripped-down version of the problem code follows:
-----------------------------------------------------------
;; The following defines a simple frame with an accepting-values
;; pane. A global object *list* is displayed in the 
;; application pane. Its first four slots are editable
;; via the av-pane.
;; Use the statement in the comment at bottom to start the frame.

(in-package "USER")

(clim:define-application-frame avp-test
  ()
  ()
  (:panes
   ((menu :command-menu
          :default-text-style (clim:make-text-style :sans-serif :bold :small))
    
    (avp-edit-area  :accept-values
                    :display-function '(clim:accept-values-pane-displayer
                                        :displayer display-avp-pane)
                    :display-after-commands t
                    :scroll-bars :vertical
                    :end-of-line-action :allow
                    :end-of-page-action :scroll)
    (design-area :application
                 :display-function 'display-design-area
                 :display-after-commands t
                 :incremental-redisplay t
                 :scroll-bars :both
                 :end-of-line-action :scroll
                 :end-of-page-action :scroll)
    ))
  (:command-table (avp-test :inherit-from (clim:accept-values-pane)))
  (:layout
   ((main
     (:column 1
              (menu :compute)
              (design-area :rest)
              (avp-edit-area 1/2)
              )
     ))))



(defvar *list* '("test" "test2" "test3" "test4" 
                 "default1" "default2" "default3" "default4"))

(defmethod display-avp-pane ((frame avp-test) stream)
    (write-string "Test: " stream)
    (setf (first *list*)
          (clim:accept 'string
                 :stream stream
                 :query-identifier 'test
                 :default "test-default"
                 :prompt nil))
    (terpri stream)
    (write-string "test2 : " stream)
    (setf (second *list*)
          (clim:accept 'string
                 :stream stream
                 :query-identifier 'test2
                 :default (second *list*)
                 :prompt nil))
    (terpri stream)
    (write-string "test3 : " stream)
    (setf (third *list*)
          (clim:accept 'string
                 :stream stream
                 :query-identifier 'test3
                 :default (third *list*)
                 :prompt nil))
    (terpri stream)
    (write-string "test4 : " stream)
    (setf (fourth *list*)
          (clim:accept 'string
                 :stream stream
                 :query-identifier 'test4
                 :default (fourth *list*)
                 :prompt nil)))

;;; ---

(defmethod display-design-area ((frame avp-test) pane)
  (declare (ignore frame))
  (dolist (x *list*)
    (terpri pane)
    (clim:with-output-as-presentation (:object x :type 'string :stream pane)
      (clim:write-string x pane))))

;;; ---

(define-avp-test-command (com-refresh-avp :menu "Refresh avp")
                       ()  
  (clim:redisplay-frame-pane clim:*application-frame* 'avp-edit-area :force-p t)
  )

(define-avp-test-command (com-refresh-appl :menu "Refresh Appl")
                       ()
  (clim:redisplay-frame-pane clim:*application-frame* 'design-area :force-p t))

(define-avp-test-command (com-erase-avp :menu "Erase avp")
                       ()
  (clim:window-erase-viewport (clim:get-frame-pane clim:*application-frame* 
'avp-edit-area))
  )

(define-avp-test-command (com-exit :menu "Exit" :keystroke #\X)
                       ()
  (clim:frame-exit clim:*application-frame*))

;;; ---

(defvar *avp-test-window*)

(defun init-avp-test ()
  (setq *avp-test-window*
        (clim:open-root-window #+:lucid :clx #+:mcl :mcl #+:genera :sheet 
#+:allegro-v4.1 :clx
                               #-(or :lucid :mcl :allegro-v4.1 :genera)
                               (error "Unhandled CLIM-variant: 
Please edit the call to clim:open-root-window in the function init-avp-test")))
  (let ((frame 
         (clim:make-application-frame 'avp-test
                                      :frame-class 'avp-test
                                      :parent *avp-test-window*
                                      :height 350
                                      :width 600)))
    (clim:run-frame-top-level frame)
    frame))

#|  *******************************************************

eval this statement to test for the avp problem:

(init-avp-test)

|#

;; end of example code --------------------------------------
Main Index | Thread Index