<?xml version="1.0"?>

<st-source>
<!-- 
Name: CADSM-Doc
HideSource: false
PackageName: CADSM-Doc
Parcel: #('cadsmdoc')
PrerequisiteParcels: #(#('BOSS' '') #('CADSM-Namespace' ''))
SaveSource: true
Version: 2
Date: 9:15:32 am June 5, 2007
 -->
<time-stamp>From VisualWorks®, 7.5 of April 16, 2007 on June 5, 2007 at 9:15:32 am</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>

<methods>
<class-id>UI.ParagraphEditor class</class-id> <category>private</category>

<body package="CADSM-Doc" selector="addPreviousSelection:">addPreviousSelection: aText 
	"Push aText onto the selection stack.  
	Don't do it if it's already on top of the stack.
	If aText is a duplicate of another entry, remove the other.
	Keep the stack short."

	(PreviousSelections first =  aText)
		ifTrue: [^self].
	(PreviousSelections includes: aText)
		ifTrue: [PreviousSelections remove: aText].
	PreviousSelections size &gt;= 16 ifTrue: [PreviousSelections removeLast].
	PreviousSelections addFirst: aText</body>
</methods>

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

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

</st-source>
