<?xml version="1.0"?>

<st-source>
<!-- 
Name: Lens-Namespace
Notice: Copyright © 2008-1999 Cincom Systems, Inc.  All Rights Reserved.
Comment: Supplies the prerequisite Lens namespace for a number of different ObjectLens packages.

Further information on the ObjectLens can be found in the "Database Connect Application Developer's Guide" in the doc subdirectory of the VisualWorks installation.

DbIdentifier: bear73
DbTrace: 41426
DevelopmentPrerequisites: #(#(#any 'Database-Namespace' ''))
HideSource: false
PackageName: Lens-Namespace
PackageName:: Lens-Namespace
Parcel: #('Lens-Namespace')
PrerequisiteParcels: #(#('Database-Namespace' ''))
PrintStringCache: (5i.4  -  1.3,bobw)
SaveSource: true
Version: 7.6
Post-Load Block: 
	[:pkg| 
''Add the Lens Namespace as an import to Smalltalk''
| imp |
imp := GeneralNameSpaceImport path: #(#Lens).
Smalltalk addImport: imp ]
Post-Unload Block: 
	[

''Remove the Lens Namespace as an import to Smalltalk''
| imp |
imp := GeneralNameSpaceImport path: #(#Lens).
Smalltalk removeImport: imp 
]
Date: 9:41:34 pm March 3, 2008
 -->
<time-stamp>From VisualWorks®, 7.6 of February 8, 2008 on March 3, 2008 at 9:41:34 pm</time-stamp>


<do-it>(Dialog confirm: 'You are filing-in a Parcel source file!\\While this is possible it will not have\the same effect as loading the parcel.\None of the Parcel''s prerequisites will\be loaded and none of its load actions\will be performed.\\Are you sure you want to file-in?' withCRs) ifFalse: [self error: 'Parcel file-in abandoned.  Choose terminate or close.']</do-it>

<name-space>
<name>Lens</name>
<environment>Smalltalk</environment>
<private>false</private>
<imports>
			private Smalltalk.*
			private Smalltalk.Database.*
			</imports>
<category>Lens-NameSpace</category>
<attributes>
<package>Lens-Namespace</package>
</attributes>
</name-space>

<do-it>"Imported Classes:"</do-it>

<do-it>self error: 'Attempting to file-in parcel imports.  Choose terminate or close'</do-it>

</st-source>
