home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 440.lha / NewLook / NewLook.asm < prev    next >
Encoding:
Assembly Source File  |  1990-11-13  |  16.2 KB  |  496 lines
  1.  
  2. ;    NewSysLook V1.0
  3. ;    by Preben Nielsen.
  4.  
  5. ;    This is Public Domain.
  6.  
  7. ;   This program will change the images for:
  8. ;    a: The screen/window UpFront and DownBack gadgets
  9. ;    b: The window close and sizing gadgets
  10. ;   When run, this program just replaces the old gadgets/images with
  11. ; the new, and doesn't use any extra memory. Running the program will
  12. ; give you back the old gadgets/images.
  13. ;   The program works with KickStart1.2 and 1.3, but may not work with
  14. ; future versions without modifications, because it changes fields
  15. ; in the private part of intuitionbase.
  16.  
  17. ;    OPT O+
  18. ;    OPT O1+        ;Tells when a branch could be optimised to short
  19. ;    OPT i+        ;Tells when '#' is probably missing
  20.  
  21.     incdir    "INCLUDE:"
  22.     include "exec/exec_lib.i"
  23.     include "graphics/graphics_lib.i"
  24.     include "intuition/intuition.i"
  25.     include "intuition/intuitionbase.i"
  26.     include "intuition/intuition_lib.i"
  27.     include "libraries/dos.i"
  28.     include "libraries/dos_lib.i"
  29.     include "libraries/dosextens.i"
  30.  
  31. LoadBase    MACRO
  32.         IFNC        '\1','ExecBase'
  33.         movea.l        \1(PC),A6
  34.         ENDC
  35.         IFC        '\1','ExecBase'
  36.         movea.l        4.W,A6
  37.         ENDC
  38.         ENDM
  39. CallLib        MACRO
  40.         jsr        _LVO\1(A6)
  41.         ENDM
  42. Call        MACRO
  43.         bsr        \1
  44.         ENDM
  45. Push        MACRO
  46.         movem.l        \1,-(SP)
  47.         ENDM
  48. Pop        MACRO
  49.         movem.l        (SP)+,\1
  50.         ENDM
  51.  
  52. GADGET        MACRO
  53.         dc.l        \1
  54.         dc.w        \2,\3,\4,\5,\6,\7,\8
  55.         ENDM
  56. GADGET2        MACRO
  57.         dc.l        \1,\2,\3,\4,\5
  58.         dc.w        \6
  59.         dc.l        \7
  60.         ENDM
  61. IMAGE        MACRO
  62.         dc.w        \1,\2,\3,\4,\5
  63.         dc.l        \6
  64.         dc.b        \7,\8
  65.         dc.l        \9
  66.         ENDM
  67.  
  68. Init        LoadBase    ExecBase
  69.         suba.l        A1,A1
  70.         CallLib        FindTask        ;Find us
  71.         movea.l        D0,A2
  72.         tst.l        pr_CLI(A2)
  73.         bne.S        CLIAndWBStartup
  74. WBenchStartup    lea        pr_MsgPort(A2),A0
  75.         CallLib        WaitPort        ;Wait for a message
  76.         lea        pr_MsgPort(A2),A0
  77.         CallLib        GetMsg            ;then get it
  78.         move.l        D0,WBenchMsg        ;Save it for later reply
  79. CLIAndWBStartup    lea        IntName(PC),A1
  80.         CallLib        OldOpenLibrary
  81.         move.l        D0,IntBase
  82.         bne.S        Main
  83. Exit        LoadBase    ExecBase
  84.         move.l        IntBase(PC),D0
  85.         beq.S        ReplyWB
  86.         movea.l        D0,A1
  87.         CallLib        CloseLibrary
  88. ReplyWB        move.l        WBenchMsg(PC),D0
  89.         beq.S        AllDone
  90.         CallLib        Forbid
  91.         movea.l        D0,A1
  92.         CallLib        ReplyMsg        ;Reply WBenchMessage if we are started from WB
  93. AllDone        moveq        #0,D0
  94.         rts
  95.  
  96. Main        LoadBase    ExecBase
  97.         CallLib        Forbid
  98.         move.w        #SYSGADGET+SIZING,D0
  99.         Call        FindGadget
  100.         move.l        D0,A0
  101.         move.l        gg_GadgetRender(A0),A0
  102.         move.l        ig_ImageData(A0),A0
  103.         lea        SizingData(PC),A1
  104.         moveq        #2*9-1,D0
  105. CmpLoop        cmp.b        (A0)+,(A1)+        ;Has the new image already been installed
  106.         bne.S        InstallNew
  107.         dbf        D0,CmpLoop
  108. InstallOld    lea        OWUpFrontGad(PC),A0    ;Gadget
  109.         Call        InstallGadget
  110.         lea        OWDownBackGad(PC),A0
  111.         Call        InstallGadget
  112.         lea        OSizingGad(PC),A0
  113.         Call        InstallGadget
  114.         lea        OCloseGad(PC),A0
  115.         Call        InstallGadget
  116.         lea        OWDragGad(PC),A0
  117.         Call        InstallGadget
  118.         lea        OSUpFrontGad(PC),A0
  119.         Call        InstallGadget
  120.         lea        OSDownBackGad(PC),A0
  121.         Call        InstallGadget
  122.         lea        OSDragGad(PC),A0
  123.         Call        InstallGadget
  124.         bra.S        RefreshWindows
  125. InstallNew    lea        WUpFrontGad(PC),A0    ;Gadget
  126.         Call        InstallGadget
  127.         lea        WDownBackGad(PC),A0
  128.         Call        InstallGadget
  129.         lea        SizingGad(PC),A0
  130.         Call        InstallGadget
  131.         lea        CloseGad(PC),A0
  132.         Call        InstallGadget
  133.         lea        WDragGad(PC),A0
  134.         Call        InstallGadget
  135.         lea        SUpFrontGad(PC),A0
  136.         Call        InstallGadget
  137.         lea        SDownBackGad(PC),A0
  138.         Call        InstallGadget
  139.         lea        SDragGad(PC),A0
  140.         Call        InstallGadget
  141. RefreshWindows    LoadBase    IntBase
  142.         move.l        ib_FirstScreen(A6),A4
  143. RSLoop        move.l        A4,D0
  144.         beq.S        EndRS
  145.         move.l        sc_FirstWindow(A4),A5
  146. RWLoop        move.l        A5,D0
  147.         beq.S        EndRW
  148.         move.l        D0,A0
  149.         CallLib        RefreshWindowFrame
  150.         move.l        wd_NextWindow(A5),A5
  151.         bra.S        RWLoop
  152. EndRW        move.l        sc_NextScreen(A4),A4
  153.         bra.S        RSLoop
  154. EndRS        LoadBase    ExecBase
  155.         CallLib        Forbid
  156.         bra        Exit
  157.  
  158. ;D0 = Type of Gadget to find
  159. FindGadget    Push        D1-D7/A0-A6
  160.         movea.l        IntBase(PC),A0
  161.         lea        $2C6(A0),A0
  162. SearchLoop    movea.l        (A0)+,A1
  163.         cmp.w        gg_GadgetType(A1),D0    ;GadgetType
  164.         bne.S        SearchLoop
  165.         move.l        A1,D0
  166.         Pop        D1-D7/A0-A6
  167.         rts
  168.  
  169. ;A0 = Gadget
  170. InstallGadget    Push        D0-D7/A0-A6
  171.         move.l        A0,A5
  172.         move.w        gg_GadgetType(A0),D0
  173.         Call        FindGadget
  174.         move.l        D0,A4
  175.         move.l        A5,A0
  176.         move.l        A4,A1
  177.         move.l        A4,A2
  178.         movea.l        gg_GadgetRender(A5),A5
  179.         movea.l        gg_GadgetRender(A4),A4    ;Image
  180.         moveq        #gg_SIZEOF-1,D0
  181. GadCopy        move.b        (A0)+,(A1)+
  182.         dbf        D0,GadCopy
  183.         move.l        A4,gg_GadgetRender(A2)
  184.         move.l        A5,D0
  185.         beq.S        DoneInstall
  186.         move.l        A5,A0
  187.         move.l        A4,A1
  188.         move.l        A4,A2
  189.         move.w        ig_Width(A5),D5
  190.         ext.l        D5
  191.         divu        #16,D5
  192.         move.l        D5,D0
  193.         swap        D0
  194.         tst.w        D0
  195.         beq.S        Mod16
  196.         addq.w        #1,D5
  197. Mod16        mulu        ig_Height(A5),D5
  198.         mulu        ig_Depth(A5),D5
  199.         mulu        #2,D5
  200.         movea.l        ig_ImageData(A5),A5
  201.         movea.l        ig_ImageData(A4),A4
  202.         moveq        #ig_SIZEOF-1,D0
  203. ImageCopy    move.b        (A0)+,(A1)+
  204.         dbf        D0,ImageCopy
  205.         move.l        A4,ig_ImageData(A2)
  206.         move.l        A5,A0
  207.         move.l        A4,A1
  208.         subq.w        #1,D5
  209. CopyData    move.b        (A0)+,(A1)+
  210.         dbf        D5,CopyData
  211. DoneInstall    Pop        D0-D7/A0-A6
  212.         rts
  213.  
  214. WBenchMsg    dc.l        0
  215. IntBase        dc.l        0
  216. IntName        dc.b        'intuition.library',0
  217.         EVEN
  218.  
  219. WUpFrontGad    GADGET        0,-28,0,26,10,GRELRIGHT+GADGIMAGE,RELVERIFY,SYSGADGET+WUPFRONT
  220.         GADGET2        WUpFrontImage,0,0,0,0,0,0
  221. WUpFrontImage    IMAGE        0,0,29,10,2,WUpFrontData,%00000011,%00000000,0
  222. WUpFrontData    dc.l        %00001111111111111111110000011111
  223.         dc.l        %00011011111111111111111000011111
  224.         dc.l        %00011000111111111111111000011111
  225.         dc.l        %00011000001111111111111000011111
  226.         dc.l        %00011000000011111111111000011111
  227.         dc.l        %00011000000000111111111000011111
  228.         dc.l        %00011000000000001111111000011111
  229.         dc.l        %00011000000000000011111000011111
  230.         dc.l        %00011000000000000000111000011111
  231.         dc.l        %00001111111111111111110000011111
  232.         dc.l        %00000000000000000000000000000000
  233.         dc.l        %00000111111111111111100000000000
  234.         dc.l        %00000111111111111111100000000000
  235.         dc.l        %00000111111111111111100000000000
  236.         dc.l        %00000111111111111111100000000000
  237.         dc.l        %00000111111111111111100000000000
  238.         dc.l        %00000111111111111111100000000000
  239.         dc.l        %00000111111111111111100000000000
  240.         dc.l        %00000111111111111111100000000000
  241.         dc.l        %00000000000000000000000000000000
  242.  
  243. WDownBackGad    GADGET        0,-52,0,24,10,GRELRIGHT+GADGIMAGE,RELVERIFY,SYSGADGET+WDOWNBACK
  244.         GADGET2        WDownBackImage,0,0,0,0,0,0
  245. WDownBackImage    IMAGE        0,0,24,10,2,WDownBackData,%00000011,%00000000,0
  246. WDownBackData    dc.l        %00001111111111111111110000000000
  247.         dc.l        %00011100000000000000011000000000
  248.         dc.l        %00011111000000000000011000000000
  249.         dc.l        %00011111110000000000011000000000
  250.         dc.l        %00011111111100000000011000000000
  251.         dc.l        %00011111111111000000011000000000
  252.         dc.l        %00011111111111110000011000000000
  253.         dc.l        %00011111111111111100011000000000
  254.         dc.l        %00011111111111111111011000000000
  255.         dc.l        %00001111111111111111110000000000
  256.         dc.l        %00000000000000000000000000000000
  257.         dc.l        %00000111111111111111100000000000
  258.         dc.l        %00000111111111111111100000000000
  259.         dc.l        %00000111111111111111100000000000
  260.         dc.l        %00000111111111111111100000000000
  261.         dc.l        %00000111111111111111100000000000
  262.         dc.l        %00000111111111111111100000000000
  263.         dc.l        %00000111111111111111100000000000
  264.         dc.l        %00000111111111111111100000000000
  265.         dc.l        %00000000000000000000000000000000
  266.  
  267. SizingGad    GADGET        0,-15,-8,16,9,GRELRIGHT+GRELBOTTOM+GADGIMAGE,0,SYSGADGET+SIZING
  268.         GADGET2        SizingImage,0,0,0,0,0,0
  269. SizingImage    IMAGE        0,0,16,9,1,SizingData,%00000001,%00000000,0
  270. SizingData    dc.w        %0000011111111111
  271.         dc.w        %0001110011001111
  272.         dc.w        %0111001100110011
  273.         dc.w        %1100110011001111
  274.         dc.w        %1111001100110011
  275.         dc.w        %1100110011001111
  276.         dc.w        %1111001100110011
  277.         dc.w        %1100110011001111
  278.         dc.w        %1111111111111111
  279.  
  280. CloseGad    GADGET        0,4,0,24,10,GADGIMAGE,RELVERIFY,SYSGADGET+CLOSE
  281.         GADGET2        CloseImage,0,0,0,0,0,0
  282. CloseImage    IMAGE        -4,0,28,10,2,CloseData,%00000011,%00000000,0
  283. CloseData    dc.l        %11000011111111111111111100000000
  284.         dc.l        %11000110000000000000001110000000
  285.         dc.l        %11000110000000000000111110000000
  286.         dc.l        %11000110000000000011111110000000
  287.         dc.l        %11000110000000001111111110000000
  288.         dc.l        %11000110000000111111111110000000
  289.         dc.l        %11000110000011111111111110000000
  290.         dc.l        %11000110001111111111111110000000
  291.         dc.l        %11000110111111111111111110000000
  292.         dc.l        %11000011111111111111111100000000
  293.         dc.l        %00000000000000000000000000000000
  294.         dc.l        %00000001111111111111111000000000
  295.         dc.l        %00000001111111111111111000000000
  296.         dc.l        %00000001111111111111111000000000
  297.         dc.l        %00000001111111111111111000000000
  298.         dc.l        %00000001111111111111111000000000
  299.         dc.l        %00000001111111111111111000000000
  300.         dc.l        %00000001111111111111111000000000
  301.         dc.l        %00000001111111111111111000000000
  302.         dc.l        %00000000000000000000000000000000
  303.  
  304. SUpFrontGad    GADGET        0,-28,0,26,10,GRELRIGHT+GADGIMAGE,RELVERIFY,SYSGADGET+SCRGADGET+SUPFRONT
  305.         GADGET2        SUpFrontImage,0,0,0,0,0,0
  306. SUpFrontImage    IMAGE        0,0,29,10,2,SUpFrontData,%00000011,%00000000,0
  307. SUpFrontData    dc.l        %00001111111111111111110000011111
  308.         dc.l        %00011000000000000000111000011111
  309.         dc.l        %00011000000000000011111000011111
  310.         dc.l        %00011000000000001111111000011111
  311.         dc.l        %00011000000000111111111000011111
  312.         dc.l        %00011000000011111111111000011111
  313.         dc.l        %00011000001111111111111000011111
  314.         dc.l        %00011000111111111111111000011111
  315.         dc.l        %00011011111111111111111000011111
  316.         dc.l        %00001111111111111111110000011111
  317.         dc.l        %00000000000000000000000000000000
  318.         dc.l        %00000111111111111111100000000000
  319.         dc.l        %00000111111111111111100000000000
  320.         dc.l        %00000111111111111111100000000000
  321.         dc.l        %00000111111111111111100000000000
  322.         dc.l        %00000111111111111111100000000000
  323.         dc.l        %00000111111111111111100000000000
  324.         dc.l        %00000111111111111111100000000000
  325.         dc.l        %00000111111111111111100000000000
  326.         dc.l        %00000000000000000000000000000000
  327.  
  328. SDownBackGad    GADGET        0,-52,0,24,10,GRELRIGHT+GADGIMAGE,RELVERIFY,SYSGADGET+SCRGADGET+SDOWNBACK
  329.         GADGET2        SDownBackImage,0,0,0,0,0,0
  330. SDownBackImage    IMAGE        0,0,24,10,2,SDownBackData,%00000011,%00000000,0
  331. SDownBackData    dc.l        %00001111111111111111110000000000
  332.         dc.l        %00011111111111111111011000000000
  333.         dc.l        %00011111111111111100011000000000
  334.         dc.l        %00011111111111110000011000000000
  335.         dc.l        %00011111111111000000011000000000
  336.         dc.l        %00011111111100000000011000000000
  337.         dc.l        %00011111110000000000011000000000
  338.         dc.l        %00011111000000000000011000000000
  339.         dc.l        %00011100000000000000011000000000
  340.         dc.l        %00001111111111111111110000000000
  341.         dc.l        %00000000000000000000000000000000
  342.         dc.l        %00000111111111111111100000000000
  343.         dc.l        %00000111111111111111100000000000
  344.         dc.l        %00000111111111111111100000000000
  345.         dc.l        %00000111111111111111100000000000
  346.         dc.l        %00000111111111111111100000000000
  347.         dc.l        %00000111111111111111100000000000
  348.         dc.l        %00000111111111111111100000000000
  349.         dc.l        %00000111111111111111100000000000
  350.         dc.l        %00000000000000000000000000000000
  351.  
  352. WDragGad    GADGET        0,0,0,0,10,GADGHNONE+GRELWIDTH,0,SYSGADGET+WDRAGGING
  353.         GADGET2        0,0,0,0,0,0,0
  354. SDragGad    GADGET        0,0,0,0,10,GADGHNONE+GRELWIDTH,0,SYSGADGET+SCRGADGET+SDRAGGING
  355.         GADGET2        0,0,0,0,0,0,0
  356.  
  357. OWUpFrontGad    GADGET        0,-28,0,26,10,GRELRIGHT+GADGIMAGE,RELVERIFY,SYSGADGET+WUPFRONT
  358.         GADGET2        OWUpFrontImage,0,0,0,0,0,0
  359. OWUpFrontImage    IMAGE        0,0,29,10,2,OWUpFrontData,%00000011,%00000000,0
  360. OWUpFrontData    dc.l        %00111111111111111111111100111100
  361.         dc.l        %00110000000000000011111100111100
  362.         dc.l        %00110000000000000000001100111100
  363.         dc.l        %00110000001111111111001100111100
  364.         dc.l        %00110000001111111111001100111100
  365.         dc.l        %00110000001111111111001100111100
  366.         dc.l        %00110000001111111111001100111100
  367.         dc.l        %00111111001111111111001100111100
  368.         dc.l        %00111111000000000000001100111100
  369.         dc.l        %00111111111111111111111100111100
  370.         dc.l        %00000000000000000000000000000000
  371.         dc.l        %00001111111111111100000000000000
  372.         dc.l        %00001111000000000000000000000000
  373.         dc.l        %00001111000000000000000000000000
  374.         dc.l        %00001111000000000000000000000000
  375.         dc.l        %00001111000000000000000000000000
  376.         dc.l        %00001111000000000000000000000000
  377.         dc.l        %00000000000000000000000000000000
  378.         dc.l        %00000000000000000000000000000000
  379.         dc.l        %00000000000000000000000000000000
  380.  
  381. OWDownBackGad    GADGET        0,-52,0,24,10,GRELRIGHT+GADGIMAGE,RELVERIFY,SYSGADGET+WDOWNBACK
  382.         GADGET2        OWDownBackImage,0,0,0,0,0,0
  383. OWDownBackImage    IMAGE        0,0,24,10,2,OWDownBackData,%00000011,%00000000,0
  384. OWDownBackData    dc.l        %00111111111111111111111100000000
  385.         dc.l        %00110000000000000011111100000000
  386.         dc.l        %00110011111111110011111100000000
  387.         dc.l        %00110011000000000000001100000000
  388.         dc.l        %00110011000000000000001100000000
  389.         dc.l        %00110011000000000000001100000000
  390.         dc.l        %00110000000000000000001100000000
  391.         dc.l        %00111111000000000000001100000000
  392.         dc.l        %00111111000000000000001100000000
  393.         dc.l        %00111111111111111111111100000000
  394.         dc.l        %00000000000000000000000000000000
  395.         dc.l        %00000000000000000000000000000000
  396.         dc.l        %00000000000000000000000000000000
  397.         dc.l        %00000000111111111111110000000000
  398.         dc.l        %00000000111111111111110000000000
  399.         dc.l        %00000000111111111111110000000000
  400.         dc.l        %00000000111111111111110000000000
  401.         dc.l        %00000000111111111111110000000000
  402.         dc.l        %00000000111111111111110000000000
  403.         dc.l        %00000000000000000000000000000000
  404.  
  405. OSizingGad    GADGET        0,-15,-8,16,9,GRELRIGHT+GRELBOTTOM+GADGIMAGE,0,SYSGADGET+SIZING
  406.         GADGET2        OSizingImage,0,0,0,0,0,0
  407. OSizingImage    IMAGE        0,0,16,9,1,OSizingData,%00000001,%00000000,0
  408. OSizingData    dc.w        %1111111111111111
  409.         dc.w        %1100000011111111
  410.         dc.w        %1100110011111111
  411.         dc.w        %1100000000000011
  412.         dc.w        %1111110011110011
  413.         dc.w        %1111110011110011
  414.         dc.w        %1111110011110011
  415.         dc.w        %1111110000000011
  416.         dc.w        %1111111111111111
  417.  
  418. OCloseGad    GADGET        0,4,0,24,10,GADGIMAGE,RELVERIFY,SYSGADGET+CLOSE
  419.         GADGET2        OCloseImage,0,0,0,0,0,0
  420. OCloseImage    IMAGE        -4,0,28,10,2,OCloseData,%00000011,%00000000,0
  421. OCloseData    dc.l        %11110011111111111111111111000000
  422.         dc.l        %11110011000000000000000011000000
  423.         dc.l        %11110011001111111111110011000000
  424.         dc.l        %11110011001111111111110011000000
  425.         dc.l        %11110011001111000011110011000000
  426.         dc.l        %11110011001111000011110011000000
  427.         dc.l        %11110011001111111111110011000000
  428.         dc.l        %11110011001111111111110011000000
  429.         dc.l        %11110011000000000000000011000000
  430.         dc.l        %11110011111111111111111111000000
  431.         dc.l        %00000000000000000000000000000000
  432.         dc.l        %00000000000000000000000000000000
  433.         dc.l        %00000000000000000000000000000000
  434.         dc.l        %00000000000000000000000000000000
  435.         dc.l        %00000000000000111100000000000000
  436.         dc.l        %00000000000000111100000000000000
  437.         dc.l        %00000000000000000000000000000000
  438.         dc.l        %00000000000000000000000000000000
  439.         dc.l        %00000000000000000000000000000000
  440.         dc.l        %00000000000000000000000000000000
  441.  
  442. OSUpFrontGad    GADGET        0,-28,0,26,10,GRELRIGHT+GADGIMAGE,RELVERIFY,SYSGADGET+SCRGADGET+SUPFRONT
  443.         GADGET2        OSUpFrontImage,0,0,0,0,0,0
  444. OSUpFrontImage    IMAGE        0,0,29,10,2,OSUpFrontData,%00000011,%00000000,0
  445. OSUpFrontData    dc.l        %00111111111111111111111100111100
  446.         dc.l        %00110000000000000011111100111100
  447.         dc.l        %00110000000000000000001100111100
  448.         dc.l        %00110000001111111111001100111100
  449.         dc.l        %00110000001111111111001100111100
  450.         dc.l        %00110000001111111111001100111100
  451.         dc.l        %00110000001111111111001100111100
  452.         dc.l        %00111111001111111111001100111100
  453.         dc.l        %00111111000000000000001100111100
  454.         dc.l        %00111111111111111111111100111100
  455.         dc.l        %00000000000000000000000000000000
  456.         dc.l        %00001111111111111100000000000000
  457.         dc.l        %00001111000000000000000000000000
  458.         dc.l        %00001111000000000000000000000000
  459.         dc.l        %00001111000000000000000000000000
  460.         dc.l        %00001111000000000000000000000000
  461.         dc.l        %00001111000000000000000000000000
  462.         dc.l        %00000000000000000000000000000000
  463.         dc.l        %00000000000000000000000000000000
  464.         dc.l        %00000000000000000000000000000000
  465.  
  466. OSDownBackGad    GADGET        0,-52,0,24,10,GRELRIGHT+GADGIMAGE,RELVERIFY,SYSGADGET+SCRGADGET+SDOWNBACK
  467.         GADGET2        OSDownBackImage,0,0,0,0,0,0
  468. OSDownBackImage    IMAGE        0,0,24,10,2,OSDownBackData,%00000011,%00000000,0
  469. OSDownBackData    dc.l        %00111111111111111111111100000000
  470.         dc.l        %00110000000000000011111100000000
  471.         dc.l        %00110011111111110011111100000000
  472.         dc.l        %00110011000000000000001100000000
  473.         dc.l        %00110011000000000000001100000000
  474.         dc.l        %00110011000000000000001100000000
  475.         dc.l        %00110000000000000000001100000000
  476.         dc.l        %00111111000000000000001100000000
  477.         dc.l        %00111111000000000000001100000000
  478.         dc.l        %00111111111111111111111100000000
  479.         dc.l        %00000000000000000000000000000000
  480.         dc.l        %00000000000000000000000000000000
  481.         dc.l        %00000000000000000000000000000000
  482.         dc.l        %00000000111111111111110000000000
  483.         dc.l        %00000000111111111111110000000000
  484.         dc.l        %00000000111111111111110000000000
  485.         dc.l        %00000000111111111111110000000000
  486.         dc.l        %00000000111111111111110000000000
  487.         dc.l        %00000000111111111111110000000000
  488.         dc.l        %00000000000000000000000000000000
  489.  
  490. OWDragGad    GADGET        0,0,0,0,10,GADGHNONE+GRELWIDTH,0,SYSGADGET+WDRAGGING
  491.         GADGET2        0,0,0,0,0,0,0
  492. OSDragGad    GADGET        0,0,0,0,10,GADGHNONE+GRELWIDTH,0,SYSGADGET+SCRGADGET+SDRAGGING
  493.         GADGET2        0,0,0,0,0,0,0
  494.     END
  495.  
  496.