CLIM mail archive

[Prev][Next][Index][Thread]

Getting :initially-select-query-identifer to show default in "modify" mode.



Clim 1.1.

Is there an easy/official way to get :initially-select-query-identifer
to show the :default argument in Modify mode? :insert-default seems not
to work.

How about getting :gesture :select on the field to always go into
Modify, without having to right-click to get a menu and select "Modify"? 

this is my context ...
-------------------
(defun GET-STRING-DIALOGUE (&key (associated-window (shared-clim-root-window))
                                 (label "Get String Dialogue")
                                 (message nil)
                                 (prompt "Your response")
                                 (default "")
                                 (estimated-response-length
                                  *minimum-response-string-length*)) 
  ;;
  (let ((string-response ""))
    (clim:accepting-values 
      (associated-window 
       :own-window (list :right-margin (list estimated-response-length
                                             :character)
                         #+:LUCID :bottom-margin
                         #+:LUCID 10)
       :label label
       :initially-select-query-identifier 'active-item
       :exit-boxes *standard-exit-boxes*
       :x-position *popup-position-x*
       :y-position *popup-position-y*)
        #+:LUCID (format associated-window "~%") ; enough space on top
        #-:LUCID (terpri associated-window)
      (when message 
        (princ message associated-window) 
        (terpri associated-window))
      (setq string-response
            (clim:accept 'clim:string 
                         :stream associated-window
                         :prompt prompt
                         :default default
			 :insert-default t
			 :query-identifier 'active-item)))
        ;; To make the window close
    #+:LUCID (force-output *bogus-window*)
    string-response))

----------------------------
--------------------------------------------------
 Dan Suthers           | LRDC, room 505A
 suthers+@pitt.edu     | 3939 O'Hara Street
 (412) 624-7036 office | University of Pittsburgh
 (412) 624-9149 fax    | Pittsburgh, PA 15260
--------------------------------------------------


Follow-Ups: References:

Main Index | Thread Index