! *viewer/paperbin.pvc - Paper Bin Object
! By Gord Davey
! (c) Copyright 2004-2005 Sage Software Canada Ltd.
! Version:
! Source Code File: $RCSfile: paperbin.pvs,v $   Version: $Revision: 1.4 $
!      Last Edited: $Date: 2005/10/14 15:31:18 $   Author: $Author: gordd $
!
! This object is used to store track info relating to a Paper Bin (Paper Source)
!
def class "*viewer/paperbin" create OnCreate required delete OnDelete required

    property Version$ = mid(mid("$Revision: 1.4 $",12), 1, len(mid("$Revision: 1.4 $",12)) - 2)

    property PaperBin                              set SetPaperBin
    property PaperBinName$                         set err

    local PaperBins

fnend
!
!
OnCreate:
    PaperBins = new("*viewer/paperbins")
    PaperBin = PaperBins'DMBIN_AUTO
    PaperBins'GetPaperBinProperties(PaperBin, PaperBinName$)
    return 1
!
!
OnDelete:
    drop object PaperBins
    return 1
!
!
SetPaperBin:
    enter (Value%)

    if PaperBins'GetPaperBinProperties(Value%, Name$) \
        then PaperBin = Value%, \
             PaperBinName$ = Name$
    return 1
