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

accept-values-command-button fails to appear


When the code at the bottom is loaded, and I run

CLIM-USER(x):	(create-W)
CLIM-USER(x+1): (test)

my window displays:

	call: function-call
	return from: function-call
	<Abort> ...

But it fails to display the accept-values-command-button "Button".
Also, the only mouse-sensitive spots on the screen are the exit boxes.

My Lisp window displays:


	enter: accepting-values
	enter: function-call
	exit: function-call
	exit: accepting-values   ;; When I exit the accepting-values.


Why isn't the Button displayed?

-- Russ Abbott

P.S.  This is Clim 1.1 in Allegro Lisp on a SPARC Sun.

-----------------------------------------------------------------------

(defvar *clim-root* (open-root-window :clx))

(defvar W ())

(defvar *so* *standard-output*)

(defun create-W ()
  (setq W
	(open-window-stream :parent *clim-root*
			    :height 100 :width 500))
  (window-expose W)
  (window-stack-on-top W)
  (force-output W)
  )
  
(defun test ()
  (window-clear W)
  (window-stack-on-top W)
  (accepting-values (W)
   (format *so* "~%enter: accepting-values")
   (format W "~%call: function-call")
   (function-call W)
   (format W "~%return: function-call")
   )
  (format *so* "~%exit: accepting-values")
  (window-clear W)
  (force-output W))

(defun function-call (W)
  (format *so* "~%enter: function-call")
  (accept-values-command-button (W)
   'Button
   (format *so* "~%Click")
   )
  (format *so* "~%exit: function-call")
  )

0,,
Follow-Ups:
Main Index | Thread Index