IsAstack ( )

[David Bovill]

These are the functions I have:

function stack_Exists someName
    -- will not add stack to memory

    set lockmessages to true
    put the mainstacks into stacksInMemory
    put empty into shortStackName
    if exists(stack someName) then
        put true into safeExistence
        put not(shortStackName is among the lines of stacksInMemory) into
needToClose
        if needToClose then
            stack_CloseMain someFile
        end if
    else
        put false into safeExistence
    end if
    set lockmessages to false
    return safeExistence
end stack_Exists

on stack_CloseMain stackName
    if there is a stack stackName is false then
        return false
    end if

    set lockmessages to true
    put the mainstack of stack stackName into mainStackName
    -- set the destroystack of stack mainStackName to true
    -- set the destroywindow of stack mainStackName to true
    close stack mainStackName
    if there is a stack mainStackName then
        delete stack mainStackName
    end if
    set lockmessages to false
    return true
end stack_CloseMain
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.runrev.com/pipermail/metacard/attachments/20070702/93a3d2a4/attachment.html