*
*  Source generated with GadToolsBox V1.3
*  which is (c) Copyright 1991,92 Jaba Development
*

    XREF    _GadToolsBase
    XREF    _IntuitionBase
    XREF    _GfxBase

    XREF    _LVOOpenScreenTagList
    XREF    _LVOOpenWindowTagList
    XREF    _LVOCloseScreen
    XREF    _LVOCloseWindow
    XREF    _LVOPrintIText
    XREF    _LVOLockPubScreen
    XREF    _LVOUnlockPubScreen
    XREF    _LVOSetMenuStrip
    XREF    _LVOClearMenuStrip
    XREF    _LVOGetVisualInfoA
    XREF    _LVOFreeVisualInfo
    XREF    _LVOCreateContext
    XREF    _LVOCreateGadgetA
    XREF    _LVOGT_RefreshWindow
    XREF    _LVOFreeGadgets
    XREF    _LVOCreateMenusA
    XREF    _LVOLayoutMenusA
    XREF    _LVOFreeMenus
    XREF    _LVOOpenDiskFont
    XREF    _LVOCloseFont
    XREF    _LVODrawBevelBoxA
    XREF    _LVOFreeClass
    XREF    _LVONewObjectA
    XREF    _LVODisposeObject
    XREF    _LVOTextLength
    XREF    _LVOUMult32
    XREF    _LVOUDivMod32

GD_Gadget00                            EQU    0

Scr:
    DC.L    0
VisualInfo:
    DC.L    0
Project0Wnd:
    DC.L    0
Project0GList:
    DC.L    0
Project0Gadgets:
    DCB.L    1,0
BufNewGad:
    DC.W    0,0,0,0
    DC.L    0,0
    DC.W    0
    DC.L    0,0,0
TD:
    DC.L    $00000000
US:
    DC.L    $80080040,'_'
Project0Left:
    DC.W    126
Project0Top:
    DC.W    29
Project0Width:
    DC.W    388
Project0Height:
    DC.W    27

Gadget00Tags:
    DC.L    $8008002D,Gadget00String
    DC.L    $8008002E,256
    DC.L    $00000000

Gadget00String:
    DC.B    '#?'
    ds.b	254
    CNOP     0,2

Gadget00Text:
    DC.B    'Filter',0
    CNOP    0,2

topaz8:
    DC.L    topazFName8
    DC.W    8
    DC.B    $00,$00

topazFName8:
    DC.B    'topaz.font',0
    CNOP    0,2

Project0WindowTags:
Project0L:
    DC.L    $80000064,126
Project0T:
    DC.L    $80000065,29
Project0W:
    DC.L    $80000066,388
Project0H:
    DC.L    $80000067,38
    DC.L    $8000006A,$00000244
    DC.L    $8000006B,$0000100A
Project0WG:
    DC.L    $8000006C,0
    DC.L    $8000006E,Project0WTitle
Project0SC:
    DC.L    $80000079,0
    DC.L    $00000000

Project0WTitle:
    DC.B    'DW Filter v0.1ß',0
    CNOP    0,2
DWScreen:
    DC.B	"DW Screen0",0
    CNOP    0,2

SetupScreen
    movem.l d1-d3/a0-a2/a6,-(sp)
    move.l  _IntuitionBase,a6
    lea	DWScreen,a0
    jsr     _LVOLockPubScreen(a6)
    tst.l	d0
    bne	.ok
    suba.l  a0,a0
    jsr     _LVOLockPubScreen(a6)
    tst.l	d0
    beq     SError
.ok move.l  d0,Scr
    move.l  _GadToolsBase,a6
    move.l  Scr,a0
    lea.l   TD,a1
    jsr     _LVOGetVisualInfoA(a6)
    move.l  d0,VisualInfo
    beq     VError
    moveq   #0,d0
SDone:
    movem.l (sp)+,d1-d3/a0-a2/a6
    rts
SError:
    moveq   #1,d0
    bra.s   SDone
VError:
    moveq   #2,d0
    bra.s   SDone

CloseDownScreen:
    movem.l d0-d1/a0-a1/a6,-(sp)
    move.l  _GadToolsBase,a6
    move.l  VisualInfo,a0
    cmpa.l  #0,a0
    beq.s   NoVis
    jsr     _LVOFreeVisualInfo(a6)
    move.l  #0,VisualInfo
NoVis:
    move.l  _IntuitionBase,a6
    suba.l  a0,a0
    move.l  Scr,a1
    cmpa.l  #0,a1
    beq.s   NoScr
    jsr     _LVOUnlockPubScreen(a6)
    move.l  #0,Scr
NoScr:
    movem.l (sp)+,d0-d1/a0-a1/a6
    rts

OpenProject0Window:
    movem.l d1-d4/a0-a2/a6,-(sp)
    move.l  Scr,a0
    moveq   #0,d3
    moveq   #0,d2
    move.l  40(a0),a1
    move.w  4(a1),d3
    addq.w  #1,d3
    add.b   35(a0),d3
    move.b  36(a0),d2
    move.l  _GadToolsBase,a6
    lea.l   Project0GList,a0
    jsr     _LVOCreateContext(a6)
    move.l  d0,a0
    beq     Project0CError
    lea.l   BufNewGad,a1
    move.l  VisualInfo,22(a1)
    move.l  #topaz8,12(a1)
    move.w  #61,(a1)
    add.w   d2,(a1)
    move.w  #6,2(a1)
    add.w   d3,2(a1)
    move.w  #306,4(a1)
    move.w  #13,6(a1)
    move.l  #Gadget00Text,8(a1)
    move.w  #GD_Gadget00,16(a1)
    move.l  #$00000001,18(a1)
    move.l  #12,d0
    lea.l   Gadget00Tags,a2
    jsr     _LVOCreateGadgetA(a6)
    move.l  d0,Project0Gadgets+0*4
    tst.l   d0
    beq     Project0GError
    move.l  Project0GList,Project0WG+4
    move.l  Scr,Project0SC+4
    moveq   #0,d0
    move.w  Project0Left,d0
    move.l  d0,Project0L+4
    move.w  Project0Top,d0
    move.l  d0,Project0T+4
    move.w  Project0Width,d0
    move.l  d0,Project0W+4
    move.w  Project0Height,d0
    add.w   d3,d0
    move.l  d0,Project0H+4
    move.l  _IntuitionBase,a6
    suba.l  a0,a0
    lea.l   Project0WindowTags,a1
    jsr     _LVOOpenWindowTagList(a6)
    move.l  d0,Project0Wnd
    beq     Project0WError
    move.l  _GadToolsBase,a6
    move.l  Project0Wnd,a0
    suba.l  a1,a1
    jsr     _LVOGT_RefreshWindow(a6)    
        
    move.l  Scr,a0
    CALLINT	ScreenToFront

    moveq   #0,d0
Project0Done:
    movem.l (sp)+,d1-d4/a0-a2/a6
    rts
Project0CError:
    moveq   #1,d0
    bra.s   Project0Done
Project0GError:
    moveq   #2,d0
    bra.s   Project0Done
Project0WError:
    moveq   #4,d0
    bra.s   Project0Done

CloseProject0Window:
    movem.l d0-d1/a0-a2/a6,-(sp)
    move.l  _IntuitionBase,a6
    move.l  Project0Wnd,a0
    cmpa.l  #0,a0
    beq     Project0NWnd
    jsr     _LVOCloseWindow(a6)
    move.l  #0,Project0Wnd
Project0NWnd:
    move.l  _GadToolsBase,a6
    move.l  Project0GList,a0
    cmpa.l  #0,a0
    beq     Project0NGad
    jsr     _LVOFreeGadgets(a6)
    move.l  #0,Project0GList
Project0NGad:
    movem.l (sp)+,d0-d1/a0-a2/a6
    rts