Don't worry about Factor-defined struct returning Objective C methods for now

slava 2006-07-06 20:54:05 +00:00
parent 7a591325dc
commit 910d6de129
3 changed files with 10 additions and 18 deletions

View File

@ -3,5 +3,3 @@
IN: objc
: (post-stret) ; inline
: (pre-stret) ; inline

View File

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

View File

@ -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" } [