[Openmcl-devel] Scribble demo - handling missing definitions

Thu Jun 4 01:35:05 PDT 2009

{context: 1.3-r12190M  (DarwinPPC32) under 10.4.11 from Clozure CL-ppc32 boot}
{and as no one else has commented, I'm beginning to wonder if I'm the 
only person leapfrogging from 10.4 to 10.6}

(make-scribble-window)
>  Error: Objective-C runtime exception:
>         *** -[ScribbleView setAlphaValue:]: selector not recognized 
>[self = 0x3cc540]

AppKiDo shows: "Applies windowAlpha to the entire window."

<http://developer.apple.com/documentation/Cocoa/Reference/ApplicationKit/Classes/NSView_Class/Reference/NSView.html#//apple_ref/occ/instm/NSView/setAlphaValue:>
"[...] Sending this message to a view that is not managing a Core 
Animation layer causes an exception.
Available in Mac OS X v10.5 and later."

So I imagine that perhaps setAlphaValue was applicable to the whole 
window pre-10.5, and from 10.5 on views (maybe Apple's developer 
documentation is a tad ambiguous).

(defun make-scribble-window ()
   (let ((w (make-ns-window 300 300 "Scribble"))
         (v (make-instance 'scribble-view)))
     (#/setAlphaValue: w 0.5)	;<= w
     (#/setContentView: w v)
     w))

works (as in no errors making window) though drawing (click/drag) in 
window only produces in AltConsole:
>  Error: #<PARSE-UNKNOWN-TYPE unknown type (@METACLASS ScribbleView)>
>  While executing: CCL::CHECK-NS-EXCEPTION, in process Initial(0).

But my point here is that the function seems to be known but also 
unknown (a Donald Rumsfeld moment):

(describe (symbol-function 'nextstep-functions:|setAlphaValue:|))
#<OBJC-DISPATCH-FUNCTION NEXTSTEP-FUNCTIONS:|setAlphaValue:| #x8973496>
Class: #<FUNCALLABLE-STANDARD-CLASS CCL::OBJC-DISPATCH-FUNCTION>
Wrapper: #<CCL::CLASS-WRAPPER CCL::OBJC-DISPATCH-FUNCTION #x84DDF0E>
Instance slots
CCL::NAME: NEXTSTEP-FUNCTIONS:|setAlphaValue:|

(arglist 'nextstep-functions:|setAlphaValue:|)
(CCL::ARG-0 CCL::ARG-1)
:ANALYSIS

But
[Tools] [Apropos...] setAlphaValue
double-click the function:
beachball hang
or

*** Error in event process: Failed assertion: (AND HI::*CURRENT-VIEW* 
(FIND-RESTART 'HI::EXIT-EVENT-HANDLER))

  (BFFFDF80) : 0 (FUNCALL #'#<(:INTERNAL 
GUI::|-[AproposWindowController definitionForSelectedSymbol:]|)> 
#<SIMPLE-ERROR #x897640E>) 112
   (#:G8268)
    #:G8268: #<SIMPLE-ERROR #x897640E>

   #:COMPILER-VAR: (NIL)
   #:G8265: #<A Foreign Pointer [stack-allocated] #xBFFFE148>

  (BFFFDF90) : 1 (SIGNAL #<SIMPLE-ERROR #x897640E>) 528
   (CONDITION &REST CCL::ARGS)
    CONDITION: #<SIMPLE-ERROR #x897640E>
    CCL::ARGS: NIL

   CCL::%HANDLERS%: ((ERROR) (CONDITION #) (ERROR))
   CCL::TAG: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #xED64E>)
   CCL::HANDLERS: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #xED64E>)

  (BFFFDFA0) : 2 (%ERROR #<SIMPLE-ERROR #x897640E> NIL -268437512) 84
   (CONDITION CCL::ARGS CCL::ERROR-POINTER)
    CONDITION: #<SIMPLE-ERROR #x897640E>
    CCL::ARGS: NIL
    CCL::ERROR-POINTER: -268437512

  (BFFFDFC0) : 4 (CERROR "test the assertion again." #<SIMPLE-ERROR 
#x897640E>) 496
   (CCL::CONT-STRING CONDITION &REST CCL::ARGS)
    CCL::CONT-STRING: "test the assertion again."
    CONDITION: #<SIMPLE-ERROR #x897640E>
    CCL::ARGS: NIL

   CCL::FP: -268437512
   #:G34821: #<RESTART CONTINUE #xED5FE>
   #:G34818: (#<RESTART CONTINUE #xED5FE>)
   CCL::%RESTARTS%: ((#<# # #xED5FE>))
   #:G34819: #<SIMPLE-ERROR #x897640E>
   CCL::*CONDITION-RESTARTS*: ((#<# # #xED5FE> . #))

  (BFFFDFE0) : 5 (%ASSERTION-FAILURE NIL (AND HI::*CURRENT-VIEW* 
(FIND-RESTART #)) NIL) 424
   (CCL::SETF-PLACES-P CCL::TEST-FORM STRING &REST CCL::CONDITION-ARGS)
    CCL::SETF-PLACES-P: NIL
    CCL::TEST-FORM: (AND HI::*CURRENT-VIEW* (FIND-RESTART #))
    STRING: NIL
    CCL::CONDITION-ARGS: NIL

  (BFFFDFF0) : 6 (ABORT-CURRENT-COMMAND "No known definitions for 
NEXTSTEP-FUNCTIONS:|setAlphaValue:|") 144
   (&OPTIONAL HEMLOCK-INTERFACE:MESSAGE)
    HEMLOCK-INTERFACE:MESSAGE: "No known definitions for 
NEXTSTEP-FUNCTIONS:|setAlphaValue:|"

  (BFFFE000) : 7 (FUNCALL #'#<GUI::|-[AproposWindowController 
definitionForSelectedSymbol:]|> -268437422) 732
   (#:G8264)
    #:G8264: -268437422

   #:G8271: #<A Foreign Pointer [stack-allocated] #xBFFFE148>
   #:G8265: #<A Foreign Pointer [stack-allocated] #xBFFFE148>
   #:COMPILER-VAR: (NIL)
   #:G8270: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL 
GUI::|-[AproposWindowController definitionForSelectedSymbol:]|) 
#xED64E>
   #:G8272: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #xED64E>)
   CCL::%HANDLERS%: ((CONDITION #) (CONDITION #) (ERROR))
   GUI::SELF: #<APROPOS-WINDOW-CONTROLLER <AproposWindowController: 
0x189a200> (#x189A200)>
   GUI::_CMD: #<A Foreign Pointer #x32A630>
   GUI::SENDER: #<NS-TABLE-VIEW <NSTableView: 0x3edcd0> (#x3EDCD0)>
   GUI::ROW: 0
   NUMBER: #<NS-NUMBER 0 (#x315270)>
   GUI::I: 0
   GUI::SYM: NEXTSTEP-FUNCTIONS:|setAlphaValue:|

  (BFFFE030) : 9 (%PASCAL-FUNCTIONS% 205 -268437422) 228
   (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
    CCL::INDEX: 205
    CCL::ARGS-PTR-FIXNUM: -268437422

   CCL::LISP-FUNCTION: #<Compiled-function 
GUI::|-[AproposWindowController definitionForSelectedSymbol:]| 
(Non-Global)  #x87E1E7E>
   WITHOUT-INTERRUPTS: NIL
   CCL::*CALLBACK-TRACE-P*: NIL

  (BFFFF2F0) : 11 (FUNCALL #'#<Anonymous Function #x863F1CE> #<A 
Foreign Pointer [stack-allocated] (:* #) #xEDAA8> #<A Foreign Pointer 
#x90AAEDB8> #<NS-EVENT NSEvent: type=LMouseDown loc=(48,936) 
time=94696.4 flags=0x100 win=0 winNum=193348 ctxt=0xbf03 evNum=5201 
click=2 buttonNumber=0 pressure=1 (#x3F4D00)>) 288
   (#:G1971 #:G1972 CCL::ARG0)
    #:G1971: #<A Foreign Pointer [stack-allocated] (:* #) #xEDAA8>
    #:G1972: #<A Foreign Pointer #x90AAEDB8>
    CCL::ARG0: #<NS-EVENT NSEvent: type=LMouseDown loc=(48,936) 
time=94696.4 flags=0x100 win=0 winNum=193348 ctxt=0xbf03 evNum=5201 
click=2 buttonNumber=0 pressure=1 (#x3F4D00)>

  (BFFFF310) : 13 (%CALL-NEXT-OBJC-METHOD #<LISP-APPLICATION 
<LispApplication: 0x1815600> (#x1815600)> #<OBJC:OBJC-CLASS 
GUI::LISP-APPLICATION (#x322A00)> #<A Foreign Pointer #x90AAEDB8> 
(:VOID :ID) #<NS-EVENT NSEvent: type=LMouseDown loc=(48,936) 
time=94696.4 flags=0x100 win=0 winNum=193348 ctxt=0xbf03 evNum=5201 
click=2 buttonNumber=0 pressure=1 (#x3F4D00)>) 696
   (CCL::SELF CLASS CCL::SELECTOR CCL::SIG &REST CCL::ARGS)
    CCL::SELF: #<LISP-APPLICATION <LispApplication: 0x1815600> (#x1815600)>
    CLASS: #<OBJC:OBJC-CLASS GUI::LISP-APPLICATION (#x322A00)>
    CCL::SELECTOR: #<A Foreign Pointer #x90AAEDB8>
    CCL::SIG: (:VOID :ID)
    CCL::ARGS: (#<NS-EVENT NSEvent: type=LMouseDown loc=(48,936) 
time=94696.4 flags=0x100 win=0 winNum=193348 ctxt=0xbf03 evNum=5201 
click=2 buttonNumber=0 pressure=1 (#x3F4D00)>)

   CCL::S: #<A Foreign Pointer [stack-allocated] (:* #) #xEDAA8>
   CCL::SIGINFO: #S(CCL::OBJC-METHOD-SIGNATURE-INFO :TYPE-SIGNATURE 
(:VOID :ID) :FUNCTION #<Anonymous Function #x863F2AE> ...)
   FUNCTION: #<Anonymous Function #x863F1CE>
   #:G1052: #<A Foreign Pointer [stack-allocated] (:* #) #xED780>
   #:G1053: -268436280

  (BFFFF390) : 14 (FUNCALL #'#<GUI::|-[LispApplication sendEvent:]|> 
-268436170) 648
   (#:G2182)
    #:G2182: -268436170

   #:G2189: #<A Foreign Pointer [stack-allocated] #xBFFFF4D8>
   #:G2183: #<A Foreign Pointer [stack-allocated] #xBFFFF4D8>
   #:COMPILER-VAR: (NIL)
   #:G2188: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL 
GUI::|-[LispApplication sendEvent:]|) #xEDB06>
   #:G2190: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #xEDB06>)
   CCL::%HANDLERS%: ((CONDITION #) (ERROR))
   GUI::SELF: #<LISP-APPLICATION <LispApplication: 0x1815600> (#x1815600)>
   GUI::_CMD: #<A Foreign Pointer #x90AAEDB8>
   GUI::E: #<NS-EVENT NSEvent: type=LMouseDown loc=(48,936) 
time=94696.4 flags=0x100 win=0 winNum=193348 ctxt=0xbf03 evNum=5201 
click=2 buttonNumber=0 pressure=1 (#x3F4D00)>
   CCL::ARGS: (#<NS-EVENT NSEvent: type=LMouseDown loc=(48,936) 
time=94696.4 flags=0x100 win=0 winNum=193348 ctxt=0xbf03 evNum=5201 
click=2 buttonNumber=0 pressure=1 (#x3F4D00)>)

  (BFFFF3C0) : 16 (%PASCAL-FUNCTIONS% 15 -268436170) 228
   (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
    CCL::INDEX: 15
    CCL::ARGS-PTR-FIXNUM: -268436170

   CCL::LISP-FUNCTION: #<Compiled-function GUI::|-[LispApplication 
sendEvent:]| (Non-Global)  #x8651A7E>
   WITHOUT-INTERRUPTS: NIL
   CCL::*CALLBACK-TRACE-P*: NIL

  (BFFFFA10) : 18 (FUNCALL #'#<Anonymous Function #x860FB7E> 
#<LISP-APPLICATION <LispApplication: 0x1815600> (#x1815600)> 
#S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer 
#x90AAD18C>)) 132
   (#:G1254 #:G1255)
    #:G1254: #<LISP-APPLICATION <LispApplication: 0x1815600> (#x1815600)>
    #:G1255: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign 
Pointer #x90AAD18C>)