'From Squeak3.4 of 1 March 2003 [latest update: #5170] on 1 May 2003 at 9:26:38 pm'! "Change Set: ProgressBarMorph-dgd Date: 1 May 2003 Author: Diego Gomez Deck - rename of FlashProgressMorph to ProgressBarMorph - change of ProgressBarMorph (former FlashProgressMorph) class category to Morphic-Widgets - update of references of FlashProgressMorph "! Smalltalk renameClassNamed: #FlashProgressMorph as: #ProgressBarMorph! BorderedMorph subclass: #ProgressBarMorph instanceVariableNames: 'value progressColor lastValue ' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Widgets'! !FlashPlayerWindow methodsFor: 'as yet unclassified' stamp: 'dgd 5/1/2003 21:05'! addProgressIndicator progress := ProgressBarMorph new. progress borderWidth: 1. progress color: Color transparent. progress progressColor: Color gray. progress extent: 100 @ (startButton extent y - 6). self addMorph: progress! ! !FlashPlayerWindow methodsFor: 'as yet unclassified' stamp: 'dgd 5/1/2003 21:05'! addProgressIndicator: aValueHolder progress := ProgressBarMorph new. progress borderWidth: 1. progress color: Color transparent. progress progressColor: Color gray. progress value: aValueHolder. progress extent: 100 @ (startButton extent y - 6). self addMorph: progress! ! !ProgressMorph methodsFor: 'initialization' stamp: 'dgd 5/1/2003 21:05'! initProgressMorph progress := ProgressBarMorph new. progress borderWidth: 1. progress color: Color transparent. progress progressColor: Color gray. progress extent: 200 @ 15! !