Don't worry about Factor-defined struct returning Objective C methods for now
parent
7a591325dc
commit
910d6de129
|
@ -3,5 +3,3 @@
|
|||
IN: objc
|
||||
|
||||
: (post-stret) ; inline
|
||||
|
||||
: (pre-stret) ; inline
|
||||
|
|
|
@ -13,9 +13,3 @@ USING: assembler compiler ;
|
|||
: (post-stret) ;
|
||||
|
||||
\ (post-stret) [ EAX PUSH ] H{ } define-intrinsic
|
||||
|
||||
! when an _stret is being called, we must pop the struct off
|
||||
! the stack before returning
|
||||
: (pre-stret) ;
|
||||
|
||||
\ (pre-stret) [ EAX POP ECX POP EAX PUSH ] H{ } define-intrinsic
|
||||
|
|
|
@ -43,16 +43,16 @@ USING: arrays gadgets kernel math objc sequences ;
|
|||
-> contentRectForFrameRect:styleMask: ;
|
||||
|
||||
"NSObject" "FactorWindowDelegate" {
|
||||
{
|
||||
"windowWillUseStandardFrame:defaultFrame:" "NSRect"
|
||||
{ "id" "SEL" "id" "NSRect" }
|
||||
[
|
||||
drop 2nip
|
||||
dup window-content-rect NSRect-x-far-y
|
||||
pick window-pref-dim first2 <far-y-NSRect>
|
||||
frame-content-rect
|
||||
]
|
||||
}
|
||||
! {
|
||||
! "windowWillUseStandardFrame:defaultFrame:" "NSRect"
|
||||
! { "id" "SEL" "id" "NSRect" }
|
||||
! [
|
||||
! drop 2nip
|
||||
! dup window-content-rect NSRect-x-far-y
|
||||
! pick window-pref-dim first2 <far-y-NSRect>
|
||||
! frame-content-rect
|
||||
! ]
|
||||
! }
|
||||
|
||||
{
|
||||
"windowDidMove:" "void" { "id" "SEL" "id" } [
|
||||
|
|
Loading…
Reference in New Issue