\ Multi-Forth Intuition calls
\ Copyright (c) 1986  Creative Solutions, Inc.

\ Follow CSI convention:  preceed all intuition function
\ names with lower case 'i'.  These should be raw intuition calls,
\ with all arguments passed via stack
\  -- David Butler  3-14-86

cr ." loading intuition calls... "

\ (  5 ) : OpenIntuition ( -- ) intuition 5 ;  already done by M-F
(  6 ) : iIntuition ( ievent ) !a0 intuition 6 ;
(  7 ) : AddGadget ( ptr\gadget\position -- position)
          !d0 !a1 !a0 intuition@ 7 ;
(  8 ) : ClearDMRequest ( window -- boolean ) !a0 intuition@ 8 ;
(  9 ) : ClearMenuStrip ( wptr -- | clear menu from window )
          !a0 intuition 9 ;
( 10 ) : ClearPointer ( window -- ) !a0 intuition 10 ;
( 11 ) : CloseScreen ( window -- )  !A0  intuition 11 ;
( 12 ) : CloseWindow ( window -- )  !A0  intuition 12 ;
( 13 ) : CloseWorkBench ( -- boolean) intuition@ 13 ;
( 14 ) : CurrentTime  ( -- seconds\Micros )
          0 0 sp@ dup 4+ !a1 !a0 intuition 14  ;
( 15 ) : DisplayAlert ( alert#\$addr\height -- boolean )
         !d1 !a0 !d0 intuition@ 15 ;
( 16 ) : DisplayBeep  ( screen -- |  flash supplied screen all if 0)
          !a0  intuition 16  ;
( 17 ) : DoubleClick ( sseconds\smicros\csecond\cmicros -- boolean )
          !d3 !d2 !d1 !d0 intuition@ 17 ;
( 18 ) : DrawBorder ( Rport\Border\LeftOffet\RightOffset -- )
          !d1 !d0 !a1 !a0 intuition 18 ;
( 19 ) : DrawImage ( Rport\Image\LeftOffset\RightOffset -- )
         !d1 !d0 !a1 !a0 intuition 19 ;
( 20 ) : EndRequest ( requester\window -- ) !A1 !A0 intuition 20 ;
( 21 ) : GetDefPrefs ( preferences\size -- prefptr ) !d0 !a0 intuition@ 21 ;
( 22 ) : GetPrefs ( preferences\size -- prefptr ) !d0 !a0 intuition@ 22 ;
( 23 ) : InitRequester ( requester -- ) !a0 intuition 23 ;
( 24 ) : ItemAddress ( menustrip\menunumber -- itemNumber)
          !d0  !a0 intuition@ 24 ;
( 25 ) : ModifyIDCMP ( wptr flags -- )  !d0 !a0 intuition 25 ;
( 26 ) : ModifyProp ( gadget\ptr\Req\Flags\Hpos\VPos\HBody\Vbody -- )
         !d4 !d3 !d2 !d1 !d0 !a2 !a1 !a0 intuition 26 ;
( 27 ) : MoveScreen ( screen\dx\dy -- ) !d1 !d0 !a0 intuition 27 ;
( 28 ) : MoveWindow ( window\dx\dy -- ) !d1 !d0 !a0 intuition 28 ;
( 29 ) : OffGadget ( gadget\ptr\req -- ) !a2 !a1 !a0 intuition 29  ;
( 30 ) : OffMenu ( window\MenuNumber -- ) !d0 !a0 intuition 30 ;
( 31 ) : OnGadget ( gadget\ptr\req ) !a2 !a1 !a0 intuition 31 ;
( 32 ) : OnMenu ( window\MenuNumber ) !d0 !a0 intuition 32 ;
( 33 ) : iOpenScreen  ( NewScreen -- sptr )  !A0 intuition@ 33 ;
       : OpenScreen   ( NewScreen --|  store sptr in CurrentWindow )
              iOpenScreen CurrentScreen ! ;
( 34 ) : iOpenWindow  ( NewWindow -- wptr )  !A0 intuition@ 34 ;
       : OpenWindow   ( NewWindow --|  store wptr in CurrenTwindow )
              iOpenWindow CurrentWindow ! ;
( 35 ) : OpenWorkBench ( -- )  intuition 35 ;
( 36 ) : PrintIText ( rport\itext\left\top)
            !d1 !d0 !a1 !a0 intuition 36 ;
( 37 ) : RefreshGadgets ( Gadgets\Ptr\Req -- ) !a2 !a1 !a0  intuition 37 ;
( 38 ) : RemoveGadget ( RemPtr\gadget -- position ) !a1 !a0 intuition@ 38 ;

( 39 ) : iReportMouse ( window\boolean -- ) !d0 !a0 intuition 39 ;
 \ I renamed this function so it did not conflict with the IDCMP flag
 \ of the same name (which is used more often than this) -- dab

( 40 ) : Request ( requester\window -- boolean ) !a1 !a0 intuition@ 40 ;
( 41 ) : ScreenToBack  ( screen -- ) !A0 intuition 41 ;
( 42 ) : ScreenToFront ( screen -- ) !A0 intuition 42 ;
( 43 ) : SetDMRequest  ( window\req -- boolean ) !a1 !a0 intuition@ 43 ;
( 44 ) : SetMenuStrip  ( window menu --- attach menu to window )
            !a1  !a0 intuition 44 ;
( 45 ) : SetPointer ( Window\Pointer\Height\Width\Xoffset\Yoffset -- )
            !d3 !d2 !d1 !d0 !a1 !a0 intuition 45 ;
( 46 ) : SetWindowTitles ( wptr wtitle$ stitle$ -- )
            !a2 !a1 !a0 intuition 46 ;

( 47 ) : iShowTitle ( screen showit -- ) !d0 !a0 intuition 47 ;
 \ I renamed this function so it did not conflict with the IDCMP flag
 \ of the same name (which is used more often than this) -- dab

( 48 ) : SizeWindow ( window\dx\dy -- ) !d1 !d0 !a0 intuition 48 ;
( 49 ) : ViewAddress ( -- viewstructaddr ) intuition@ 49 ;
( 50 ) : ViewPortAddress ( window -- viewstructaddr ) !a0 intuition@ 50 ;
( 51 ) : WindowToBack  ( wptr -- ) !A0 intuition 51 ;
( 52 ) : WindowToFront ( wptr -- ) !A0 intuition 52 ;
( 53 ) : WindowLimits ( window\minw\minh\maxw\maxht -- boolean )
            !d3 !d2 !d1 !d0 !a0  intuition@ 53 ;
( 54 ) : SetPrefs ( preferences size flag -- ) !d1 !d0 !a0 intuition 54 ;
( 55 ) : IntuiTextLength ( itext -- PixelWidth ) !A0 intuition@ 55 ;
( 56 ) : WBenchToBack ( -- ) intuition 56 ;
( 57 ) : WBenchToFront ( -- ) intuition 57 ;
( 58 ) : AutoRequest ( Window\Body\Ptext\Next\W\H -- boolean )
            !d3 !d2 !d1 !d0 !a3 !a2 !a1 !a0 intuition@ 58 ;
( 59 ) : BeginRefresh ( window -- ) !a0 intuition 59 ;
( 60 ) : BuildSystemRequest ( window\body\PosText\NegText\Flags\W\H
                                  --  result )
            !d2 !d1 !d0 !a3 !a2 !a1 !a0 intuition@ 60 ;
( 61 ) : EndRefresh ( window\complete -- ) !d0 !a0 intuition 61 ;
( 62 ) : FreeSysRequest ( window -- ) !a0 intuition 62 ;
( 63 ) : MakeScreen ( screen -- ) !a0 intuition 63 ;
( 64 ) : RemakeDisplay ( -- ) intuition 64 ;
( 65 ) : RethinkDisplay ( -- ) intuition 65 ;
( 66 ) : AllocRemember ( RememberKey\Size\Flags -- addr )
            !d1 !d0 !a0 intuition@ 66 ;
( 67 ) : AlohaWorkBench ( wbport -- ) !a0 intuition 67 ;
( 68 ) : FreeRemember ( rememberkey\reallyforget)
            !d0 !a0 intuition 68 ;
( 69 ) : PointerColors ( Screen\Red\Green\Blue )
            !d2 !d1 !d0 !a0 intuition 69 ;
( 70 ) : LockIBase ( dontknow -- ) !d0 intuition 70 ;
( 71 ) : UnLockIBase ( IBlock -- ) !a0 intuition 71 ;