PPToken.st
changeset 407 a0e6299c7337
parent 405 0470a5e6e712
child 421 7e08b31e0dae
equal deleted inserted replaced
406:c05417ade8ac 407:a0e6299c7337
    24 	self error: 'Token can only be created using a dedicated constructor.'
    24 	self error: 'Token can only be created using a dedicated constructor.'
    25 !
    25 !
    26 
    26 
    27 on: aSequenceableCollection
    27 on: aSequenceableCollection
    28 	^ self on: aSequenceableCollection start: 1 stop: aSequenceableCollection size value: nil
    28 	^ self on: aSequenceableCollection start: 1 stop: aSequenceableCollection size value: nil
    29 !
       
    30 
       
    31 on: aSequenceableCollection start: aStartInteger stop: aStopInteger
       
    32 	^ self basicNew 
       
    33 		initializeOn: aSequenceableCollection
       
    34 		start: aStartInteger stop: aStopInteger
       
    35 !
    29 !
    36 
    30 
    37 on: aSequenceableCollection start: aStartInteger stop: aStopInteger value: anObject
    31 on: aSequenceableCollection start: aStartInteger stop: aStopInteger value: anObject
    38 	^ self basicNew 
    32 	^ self basicNew 
    39 		initializeOn: aSequenceableCollection
    33 		initializeOn: aSequenceableCollection
   101 copyFrom: aStartInteger to: aStopInteger
    95 copyFrom: aStartInteger to: aStopInteger
   102 	^ self class on: collection start: start + aStartInteger - 1 stop: stop + aStopInteger - 3 value: value
    96 	^ self class on: collection start: start + aStartInteger - 1 stop: stop + aStopInteger - 3 value: value
   103 ! !
    97 ! !
   104 
    98 
   105 !PPToken methodsFor:'initialization'!
    99 !PPToken methodsFor:'initialization'!
   106 
       
   107 initializeOn: aSequenceableCollection start: aStartInteger stop: aStopInteger
       
   108 	collection := aSequenceableCollection.
       
   109 	start := aStartInteger.
       
   110 	stop := aStopInteger
       
   111 !
       
   112 
   100 
   113 initializeOn: aSequenceableCollection start: aStartInteger stop: aStopInteger value: anObject
   101 initializeOn: aSequenceableCollection start: aStartInteger stop: aStopInteger value: anObject
   114 	collection := aSequenceableCollection.
   102 	collection := aSequenceableCollection.
   115 	start := aStartInteger.
   103 	start := aStartInteger.
   116 	stop := aStopInteger.
   104 	stop := aStopInteger.