Custom Query (1030 matches)

If a saved file has been edited then execute-all appears to execute the saved version, not the version in the buffer, e.g:

Put (print 123) into a buffer.

Save it.

Change it to (print 456) but don't save.

Execute all.

Result will be 123, not 456.

Not sure if this is by design, but it's not the behavior I intuitively expect.

Trying to get an ns-window to accept mouse events by defining an accepts-first-responder method that returns T works in 64-bit CCL but not 32-bit. In 32-bit, clicking on the window produces the following error (in the altconsole):

Error: value T is not of the expected type (UNSIGNED-BYTE 32).

While executing: (:INTERNAL[Nsview acceptsFirstResponder]|), in process Initial(0).

Type :POP to abort, :R for a list of available restarts. Type :? for other options.

1 >

Code to reproduce follows. Run the code, then click on the resulting window.

(defun nsstr (s) (make-instance 'gui::ns-lisp-string :string s))

(defun make-ns-window (x y &optional (title "Untitled"))

(let ((nsw (make-instance 'ns:ns-window

:with-content-rect (ns:make-ns-rect 0 0 x y) :style-mask 15 :backing #$NSBackingStoreBuffered :defer t)))

(#/setTitle: nsw (nsstr title)) (#/setReleasedWhenClosed: nsw nil) (#/center nsw) (#/orderFront: nsw nil) nsw))

(defclass nsview (ns:ns-view)

(container) (:metaclass ns:+ns-object))

(ccl::define-objc-method ((:boolean accepts-first-responder) nsview) t)

(setf w (make-ns-window 300 300)) (#/setContentView w (make-instance 'nsview))

I do this:

(defclass scribble-view (ns:ns-view)
  ((path :initform (#/bezierPath ns:ns-bezier-path)))
  (:metaclass ns:+ns-object))

(defun make-scribble-window ()
  (ccl::with-autorelease-pool
   (let* ((rect (ns:make-ns-rect 0 0 300 300))
	  (w (make-instance 'ns:ns-window
			    :with-content-rect rect
			    :style-mask (logior #$NSTitledWindowMask
					       #$NSClosableWindowMask
					       #$NSMiniaturizableWindowMask
					       #$NSResizableWindowMask)
			    :backing #$NSBackingStoreBuffered
			    :defer t))
          (v (make-instance 'scribble-view)))
     (#/setTitle: w #@"Scribble")
     (#/setContentView: w v)
     (#/center w)
     (#/orderFront: w nil)
     (print (slot-value v 'path))
     v)))

(slot-value (make-scribble-window) 'path)

In 32-bit CCL this does what I would expect, namely, return an NS-BEZIER-PATH object. In 64-bit CCL it returns a bogus ObjC object. But the PRINTed value of (slot-value v 'path) is an NS-BEZIER-PATH object, so somehow the PATH slot is being corrupted between the PRINT and returning V from MAKE-SCRIBBLE-WINDOW.