# Pastebin YvxcqYZm
    on disclosureTriangle_(sender)
        if showBox is false then
            set my showBox to true
            if firstLaunch is true then
                set {origin:{x:n, y:m}, |size|:{|width|:n2, height:m2}} to (theWindow's frame()) as record
                theWindow's setFrame_display_animate_({{n, m - m2 + 560}, {480, 560}}, false, true)
                set firstLaunch to false
            else
                set {origin:{x:n, y:m}, |size|:{|width|:n2, height:m2}} to (theWindow's frame()) as record
                theWindow's setFrame_display_animate_({{n, m - 200 }, {480, 560}}, false, true)
            end if
        else
            set my showBox to false
            set {origin:{x:n, y:m}, |size|:{|width|:n2, height:m2}} to (theWindow's frame()) as record
            theWindow's setFrame_display_animate_({{n, m + 200}, {480, 360}}, false, true)
        end if