MCRemovalPostscriptDefinition.st
author Claus Gittinger <cg@exept.de>
Wed, 22 Nov 2006 14:10:01 +0100
changeset 57 652dbf708369
child 241 6fd0957ef48c
permissions -rw-r--r--
initial checkin
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
57
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/monticello' }"
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
MCScriptDefinition subclass:#MCRemovalPostscriptDefinition
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:''
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'Monticello-Modeling'
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
!MCRemovalPostscriptDefinition class methodsFor:'as yet unclassified'!
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
scriptSelector
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
	^ #postscriptOfRemoval 
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
! !
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
!MCRemovalPostscriptDefinition methodsFor:'as yet unclassified'!
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
unload
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	super unload.
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
	self evaluate
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
! !
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
!MCRemovalPostscriptDefinition class methodsFor:'documentation'!
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
version
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRemovalPostscriptDefinition.st,v 1.1 2006-11-22 13:10:01 cg Exp $'
652dbf708369 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
! !