Custom Query (1030 matches)

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))

if you start the IDE by doubleclicking on a .lisp file the IDE starts showing tha file. There is no Listener window at this point. if you evaluate something the Listener window appear invoking (not until now) immediately the ccl-init.lisp file...

normal behavior should be that the IDE execute a full start with cc-init and a listener window.

ticket:419 requested a means of doing regular-expression based searches in the "search files" dialog; since "search files" uses grep, that means already exists, but it'd be good to have a way of treating the search string as a literal string and not as a search pattern, e.g., to interpret "*foo*" as "the name of a special variable", not "whatever matches the regexp "*foo*".