[Openmcl-devel] something is not quite right in cocoa land

[alex crain]

Working with the bleeding edge code under Tiger ....

? (make-instance 'ns:ns-text-view)
#<NS-TEXT-VIEW <NSTextView: 0x8521a7f0>
     Frame = {{0.00, 0.00}, {0.00, 0.00}}, Bounds = {{0.00, 0.00},  
{0.00, 0.00}}
     Horizontally resizable: NO, Vertically resizable: YES
     MinSize = {0.00, 0.00}, MaxSize = {0.00, 10000000.00}
(#x8521A7F0)>
? (describe *)
#<NS-TEXT-VIEW <NSTextView: 0x8521a7f0>
     Frame = {{0.00, 0.00}, {0.00, 0.00}}, Bounds = {{0.00, 0.00},  
{0.00, 0.00}}
     Horizontally resizable: NO, Vertically resizable: YES
     MinSize = {0.00, 0.00}, MaxSize = {0.00, 10000000.00}
(#x8521A7F0)>
Class: #<OBJC:OBJC-CLASS NS:NS-TEXT-VIEW (#xA365EEEC)>
Wrapper: #<CCL::CLASS-WRAPPER NS:NS-TEXT-VIEW #x65E979E>
Instance slots
NS:ISA: #<OBJC:OBJC-CLASS NS:NS-TEXT-VIEW (#xA365EEEC)>
NS:_NEXT-RESPONDER: #<A Null Mac Pointer>
NS:_FRAME: #<A Mac Pointer #x8521A7F8>
NS:_BOUNDS: #<A Mac Pointer #x8521A808>
NS:_SUPERVIEW: #<A Null Mac Pointer>
NS:_SUBVIEWS: #<A Null Mac Pointer>
NS:_WINDOW: #<A Null Mac Pointer>
NS:_G-STATE: 0
NS:_FRAME-MATRIX: #<A Null Mac Pointer>
NS:_DRAW-MATRIX: #<A Null Mac Pointer>
NS:_DRAG-TYPES: #<A Null Mac Pointer>
NS:_VIEW-AUXILIARY: #<A Mac Pointer #x8521B100>
NS:_V-FLAGS: #<A Mac Pointer #x8521A838>
NS:_V-FLAGS-2: #<A Mac Pointer #x8521A83C>
NS:_IVARS: #<A Mac Pointer #x8521B090>

I'll need to look on a a 10.3 machine to make sire, but this looks  
wrong - there should be some NSTextView specific slots in this list.

? (send ** 'text-storage)
#<A Mac Pointer #x8521A7A0>
?

And this is definitely wrong - NSTextView creates an NSTextStorage  
when it is initialized, and even if it didn't the form should return  
#<A Null Mac Pointer>.

Any ideas before I start digging?

:alex