{curl 3.0 applet}
{curl-file-attributes character-encoding = "shift-jis"}

{title Mouse Over}


|| MouseOver
{define-class MouseOver {inherits Frame}
    field private over-image:Graphic
    field private out-image:Graphic

    {constructor {default over-image:Url, out-image:Url}
        set self.over-image = {image source = over-image}
        set self.out-image  = {image source = out-image}
        {construct-super self.out-image}
    }

    {method public {on-pointer-enter e:PointerEnter}:void
        {self.add replace? = true, self.over-image}
    }

    {method public {on-pointer-leave e:PointerLeave}:void
        {self.add replace? = true, self.out-image}
    }
}

|| ここから描画
{MouseOver {url "eyebox1.gif"}, {url "eyebox2.gif"}}