[Squeak-fr] test...
Jean-marie Zajac
squeak-fr@lists.squeakfoundation.org
Tue, 23 Apr 2002 14:30:43 +0200
--Apple-Mail-2-455654405
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
charset=US-ASCII;
format=flowed
Could someone help me to test this small program (FontMover.st) and
comments the problems?
Maybe it's not the good list for that ?
jean-marie.zajac@laposte.net
--Apple-Mail-2-455654405
Content-Disposition: attachment;
filename=FontMover.st
Content-Transfer-Encoding: quoted-printable
Content-Type: application/text;
x-mac-creator=522A6368;
x-unix-mode=0644;
x-mac-type=54455854;
name="FontMover.st"
'=46rom=20Squeak3.2gamma=20of=2015=20January=202002=20[latest=20update:=20=
#4827]=20on=2023=20April=202002=20at=201:50:49=20pm'!=0DObject=20=
subclass:=20#FontMover=0D=09instanceVariableNames:=20'liste=20index=20=
listemorph=20taille=20affiche=20diraffiche=20fenetre=20knownfont=20=
directorypolice=20dirlistmorph=20dirlist=20dirindex=20plusdir=20=
plusimage=20toutplusdir=20toutplusimage=20xbutton=20imageaffiche=20'=0D=09=
classVariableNames:=20''=0D=09poolDictionaries:=20''=0D=09category:=20=
'collectionessai-JMZ'!=0D!FontMover=20commentStamp:=20'<JMZ=204/23/2002=20=
13:49'=20prior:=200!=0DFont=20Mover=0Dcall=20with=20"FontMover=20open"=0D=
Font=20'NewYork'=20is=20used=20by=20default.=20Did'nt=20delete=20NewYork=20=
fonts=20from=20your=20image.=0DI=20am=20a=20window=20with=20two=20=
panels;=20on=20the=20left=20the=20different=20fonts=20used=20in=20the=20=
image=20and=20in=20the=20right=20panel,=20the=20fonts=20available=20in=20=
a=20directory=20"Police"=20used=20by=20default=20(in=20the=20directory=20=
Squeak).=20A=20directory=20"Police"=20is=20created=20by=20default.=0D=0D=
I=20can=20remove=20a=20font=20from=20the=20image=20(X),=20move=20a=20=
font=20from=20image=20into=20files=20in=20the=20directory=20"Police"=20=
(->)=20or=20all=20fonts=20(-->).=20Symetrically,=20I=20move=20a=20font=20=
(<-)=20or=20all=20fonts=20(<--)=20from=20a=20directory=20to=20the=20=
image.=0DOthers=20functions=20(as=20selection=20of=20a=20directory=20=
conatining=20some=20fonts=20(sf2=20format)=20or=20creation=20of=20a=20=
new=20directory)=20are=20obtained=20by=20menu=20in=20each=20list.=0D=0D=
Something=20like=20a=20reminiscence=20of=20FontMover=20in=20old=20Mac.=0D=
=0DSuggestions:=0DJean-Marie.Zajac@laposte.net=0D13:20:31=20=2023=20=
April=202002!=0D=0D=0D!FontMover=20methodsFor:=20'as=20yet=20=
unclassified'=20stamp:=20'JMZ=204/15/2002=2011:23'!=0Daffichelapolice=0D=09=
"affiche=20la=20police=20index"=0D=09|=20zz=20f1=20|=0D=09zz=20_=20=
TextConstants=20at:=20(liste=20at:=20index)=20asSymbol.=0D=09f1=20_=20zz=20=
fontAt:=201.=0D=09f1=20fontDisplay!=20!=0D=0D!FontMover=20methodsFor:=20=
'as=20yet=20unclassified'=20stamp:=20'JMZ=204/15/2002=2010:58'!=0D=
affichelapolice:=20no=20=0D=09"affiche=20la=20police=20de=20num=8Ero=20=
no"=0D=09|=20zz=20f1=20|=0D=09zz=20_=20TextConstants=20at:=20(liste=20=
at:=20index)=20asSymbol.=0D=09f1=20_=20zz=20fontAt:=20no.=0D=09f1=20=
fontDisplay!=20!=0D=0D!FontMover=20methodsFor:=20'as=20yet=20=
unclassified'=20stamp:=20'<JMZ=204/18/2002=2022:15'!=0Dcreatedir=0D|=20=
prov=20|=0D=0Dprov=20_FillInTheBlankMorph=20request:=20'Name=20of=20the=20=
new=20directory?'.=0Dprov=3D''=20ifTrue:[=20^=20false].=0D=0D"test=20=
exists=20"=0DFileDirectory=20setDefaultDirectoryFrom:=20Smalltalk=20=
imageName.=0D=09(FileDirectory=20default=20directoryExists:=20prov)=0D=09=
=09ifTrue:=20[directorypolice_=20prov.=20self=20updatedir.=20^=20true]=0D=
=09=09ifFalse:=20[(PopUpMenu=20confirm:=20'Sure=20to=20create=20?=20',=20=
prov)=20=20ifFalse:=20[^=20false]=20ifTrue:[=20directorypolice_=20prov.=20=
=20self=20=20newdirectorypolice.=20self=20updatedirliste.=20self=20=
updatedir.].=20=0D^false=20].=0D=0D=0D=0D=0D!=20!=0D=0D!FontMover=20=
methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=204/22/2002=20=
13:45'!=0Ddeletedirectorypolice=0D=09=0D=09|=20fichier=20|=0D=09=
FileDirectory=20setDefaultDirectoryFrom:=20Smalltalk=20imageName.=0D=09=
(FileDirectory=20default=20directoryExists:=20directorypolice)=0D=09=09=
ifTrue:=20[=20fichier=20_=20(FileDirectory=20default=20directoryNamed:=20=
=20directorypolice)=20fullNamesOfAllFilesInSubtree.=0D=091=20to:=20=
fichier=20size=20do:=20[:i=20|=20=20(FileDirectory=20default=20=
isAFileNamed:=20(fichier=20at:=20i))=0D=09=09=09=09ifTrue:=20=
[FileDirectory=20default=20deleteFileNamed:=20(fichier=20at:=20i)]].=0D=09=
=09=09FileDirectory=20default=20deleteDirectory:=20directorypolice.=0D=09=
=09=09self=20display:=20'Directory=20deleted=20']=0D=09=09ifFalse:=20=
[self=20display:=20'No=20directory=20'=20,=20directorypolice=20,=20'=20=
...=20=20'].=0D=0Dknownfont_OrderedCollection=20new.=0D=
directorypolice_'Police'.=09=0Dself=20newdirectorypolice.=0Dself=20=
updateknownfontliste.=0Dself=20updatedirliste.=0Dself=20updatedir.=0D=0D=
dirindex=20_=201.=0D!=20!=0D=0D!FontMover=20methodsFor:=20'as=20yet=20=
unclassified'=20stamp:=20'<JMZ=204/23/2002=2013:34'!=0Ddirmenu:=20unmenu=20=
=0D=09"=20"=0D=09|=20differentMenu=20=20|=0D=09=0D=09differentMenu=20_=20=
DumberMenuMorph=20new.=0D=09differentMenu=20addTitle:=20'Directory'=20.=0D=
differentMenu=20add:=20'Delete=20directory=20',=20directorypolice=20=
asString=0D=09=09target:=20self=0D=09=09selector:=20=
#deletedirectorypolice;=0D=0Dadd:=20'Create=20new=20drectory'=0D=09=09=
target:=20self=0D=09=09selector:=20#createdir;=0D=0D=09=0D=09=09add:=20=
'-------'=0D=09=09target:=20nil=0D=09=09selector:=20nil.=0D1=20to:=20=
dirlist=20size=0D=09=09do:=20[:i=20|=20differentMenu=0D=09=09=09=09add:=20=
(dirlist=20at:=20i)=20asString=0D=09=09=09=09target:=20self=0D=09=09=09=09=
selector:=20#selectdirectory2:=0Dargument:=20(dirlist=20at:=20i)=20=
asString=20].=0D=0D=09=0D=09^=20differentMenu!=20!=0D=0D!FontMover=20=
methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=204/16/2002=20=
23:28'!=0Ddirsel:=20ainteger=0D=0D=0D=0D=09self=20changed:=20#dirsel.=09=09=
"signal=20my=20acceptance=20of=20the=20change"!=20!=0D=0D!FontMover=20=
methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=204/16/2002=20=
22:21'!=0Ddisplay:=20chaine=20=0D=09=0D|=20point|=0D=09=0Dpoint_Sensor=20=
cursorPoint.=0Dpoint=20setX:=20point=20x=20+20=20setY:=20=20point=20y=20=
-15.=0D(MVCMenuMorph=20from:=20(SelectionMenu=20labels:=20'')=20title:=20=
chaine)=0D=09=09=09=09displayAt:point=20=20during:=20=20[(Delay=20=
forSeconds:=200.5)=20wait].=0D=09=09=09^=20self=0D=0D=09!=20!=0D=0D=
!FontMover=20methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=20=
4/16/2002=2013:47'!=0Ddisplayallpolice=0D=09"display=20all=20police=20in=20=
the=20directory=20Police"=0D=09|=20=20|=0D=09=0D=09FileDirectory=20=
setDefaultDirectoryFrom:=20Smalltalk=20imageName.=0D=09FileDirectory=20=
default=20directoryNamed:=20directorypolice.=0D=09!=20!=0D=0D!FontMover=20=
methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=204/22/2002=20=
13:45'!=0Dinitialize=0D=0Dknownfont_OrderedCollection=20new.=0D=
directorypolice_'Police'.=09=0Dself=20newdirectorypolice.=0Dself=20=
updateknownfontliste.=0Dself=20updatedirliste.=0D=0D=09liste=20_=20=
(Utilities=20knownTextStyles)=20asSortedCollection:=20[:a=20:b=20|=20=
a<b].=0D=09=09=09=0D=09index=20_=201.=0Ddirindex=20_=201.=0D=0D!=20!=0D=0D=
!FontMover=20methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=20=
4/16/2002=2010:04'!=0Disknownfont:=20aname=0D=09""=0D=09|=20=20flag=20=20=
|=20=0Dflag_false.=0D1=20to:=20knownfont=20size=20do:[:each=20|=20=20=
aname=20=20=3D=20(knownfont=20at:=20each)=20ifTrue:=20[flag_true.=20^=20=
true.=20]=20ifFalse:=20[=20flag_false.].].=0D=0Dflag=20ifFalse:=20=
[knownfont=20add:=20=20aname.].=20=0D=09^aname=20!=20!=0D=0D!FontMover=20=
methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=204/16/2002=20=
09:50'!=0Dknownfont=0D=09=0D=09^knownfont!=20!=0D=0D!FontMover=20=
methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=204/16/2002=20=
22:25'!=0DlireStrikeFont2Family:=20familyName=20=0D=0D=09|=20fileNames=20=
strikeFonts=20fontArray=20|=0D=09fileNames=20_=20(FileDirectory=20=
default=20directoryNamed:=20directorypolice)=0D=09=09=09=09=
fileNamesMatching:=20familyName=20,=20'##.sf2'.=0D=09strikeFonts=20_=20=
fileNames=0D=09=09=09=09collect:=20[:fname=20|=20StrikeFont=20new=0D=09=09=
=09=09=09=09readFromStrike2:=20fname=0D=09=09=09=09=09=09directory:=20=
(FileDirectory=20default=20directoryNamed:=20directorypolice)].=0D=09=
strikeFonts=0D=09=09do:=20[:font=20|=20font=20reset].=0D=09strikeFonts=20=
_=20strikeFonts=0D=09=09=09=09asSortedCollection:=20[:a=20:b=20|=20a=20=
height=20<=20b=20height].=0D=09fontArray=20_=20strikeFonts=20asArray.=0D=09=
^=20fontArray!=20!=0D=0D!FontMover=20methodsFor:=20'as=20yet=20=
unclassified'=20stamp:=20'JMZ=204/15/2002=2010:01'!=0Dlist=0D=09^liste!=20=
!=0D=0D!FontMover=20methodsFor:=20'as=20yet=20unclassified'=20stamp:=20=
'<JMZ=204/22/2002=2009:52'!=0DlistDirIndex=0D=0D=0D=0D=09^dirindex!=20!=0D=
=0D!FontMover=20methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=20=
4/22/2002=2011:36'!=0DlistDirIndex:=20anInteger=0D=0D|=20|=0D=090=20=3D=20=
anInteger=0D=09=09ifFalse:=20[dirindex=20_=20anInteger.]=20ifTrue:[=20=
dirindex=20_1.].=0D=0D=0D=09self=20changed:=20#listDirIndex.=09=09=
"signal=20my=20acceptance=20of=20the=20change"!=20!=0D=0D!FontMover=20=
methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'JMZ=204/15/2002=20=
09:40'!=0DlistIndex=0D=0D=0D=0D=09^index!=20!=0D=0D!FontMover=20=
methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=204/22/2002=20=
09:52'!=0DlistIndex:=20anInteger=0D=0D|=20zz=20t1=20|=0D=090=20=3D=20=
anInteger=0D=09=09ifFalse:=20[index=20_=20anInteger.=0Daffiche=20=
fontName:(liste=20at:=20index)=20size:=2014.=0Daffiche=20contents:=20=
(liste=20at:=20index)=20asString=20,=20'=20'.=0D=09=09=09zz=20_=20=
Utilities=20fontPointSizesFor:=20(liste=20at:=20index).=0D=09=09=09t1=20=
_=20''.=0D=09=09=091=20to:=20zz=20size=0D=09=09=09=09do:=20[:i=20|=20t1=20=
_=20t1=20,=20'=20'=20,=20(zz=20at:=20i)=20asString].=0D=09=09taille=20=
string:=20t1=0D=09=09=09=09fontName:=20'NewYork'=0D=09=09=09=09size:=20=
12].=0D=0D=0D=09self=20changed:=20#listIndex.=09=09"signal=20my=20=
acceptance=20of=20the=20change"!=20!=0D=0D!FontMover=20methodsFor:=20'as=20=
yet=20unclassified'=20stamp:=20'<JMZ=204/23/2002=2013:35'!=0DlistMenu:=20=
unmenu=20=0D=09"comment=20stating=20purpose=20of=20message"=0D=09|=20=
differentMenu=20zz=20zz1=20subMen=20subMenpolice=20|=0D=09zz=20_=20=20=
liste=20at:=20index.=0D=09zz1=20_=20Utilities=20fontPointSizesFor:=20zz.=0D=
=09subMen=20_=20DumberMenuMorph=20new.=0D=091=0D=09=09to:=20zz1=20size=0D=
=09=09do:=20[:i=20|=20subMen=0D=09=09=09=09add:=20(zz1=20at:=20i)=20=
asString=0D=09=09=09=09target:=20self=0D=09=09=09=09selector:=20=
#affichelapolice:=0D=09=09=09=09argument:=20i].=0D=0DsubMenpolice=20_=20=
DumberMenuMorph=20new.=0Dself=20updateknownfontliste.=0D=0D=09=091=20to:=20=
knownfont=20size=0D=09=09do:=20[:i=20|=20subMenpolice=0D=09=09=09=09add:=20=
(knownfont=20at:=20i)=20asString=0D=09=09=09=09target:=20self=0D=09=09=09=
=09selector:=20#uploadonepolice:=20=0D=09=09=09=09argument:=20(knownfont=20=
at:=20i)=20asString].=0D=0D=0D=0D=09differentMenu=20_=20DumberMenuMorph=20=
new.=0DdifferentMenu=20addTitle:=20'Image';=0D=0D=0D=09=09=20add:=20=
'Display=20this=20font...'=20subMenu:=20subMen;=0D=09=09=0D=09=09add:=20=
'Delete=20this=20font'=0D=09=09target:=20self=0D=09=09selector:=20=
#removefont;=0D=0Dadd:=20'Delete=20all=20fonts=20but=20NewYork'=0D=09=09=
target:=20self=0D=09=09selector:=20#removeall;=0D=0D=09=09=0D=09=09add:=20=
'Save=20this=20font=20in=20',=20directorypolice=20asString=0D=09=09=
target:=20self=0D=09=09selector:=20#savepolice;=0D=09=09=0D=09=09add:=20=
'Save=20all=20fonts=20',=20directorypolice=20asString=0D=09=09target:=20=
self=0D=09=09selector:=20#saveall.=0D=09=09=0D=09"=09add:=20'Upload=20',=20=
directorypolice=20asString=0D=09=09target:=20self=0D=09=09selector:=20=
#uploadpolice;=0D=0Dadd:=20'Upload=20sub=20'=0D=09=09subMenu:=20=
subMenpolice;=0D=0D=0D=0Dadd:=20'Upload=20all=20from=20',directorypolice=20=
asString=0D=09=09target:=20self=0D=09=09selector:=20#loadallpolice;=0D=0D=
"=0D=09=09=0D=09=09=0D=0D=09^=20differentMenu!=20!=0D=0D!FontMover=20=
methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=204/22/2002=20=
09:51'!=0Dlistdir=0D=09^dirlist!=20!=0D=0D!FontMover=20methodsFor:=20'as=20=
yet=20unclassified'=20stamp:=20'<JMZ=204/16/2002=2022:37'!=0D=
loadallpolice=0D=09"charge=20toutes=20les=20police=20et=20tous=20les=20=
tailles=20depuis=20le=20dossier=20directorypolice"=0D=09|=20=20|=0D=0D=
Cursor=20read=20showWhile:=20[=0D=0D"test=20knownfont=20at:1=20=3D=20=
nothing=20"=0D=0DFileDirectory=20default=20directoryNamed:=20=
directorypolice.=0Dself=20updateknownfontliste.=0D=0D1=20to:=20knownfont=20=
size=20do:=20[:each=20|=0D((knownfont=20at:=20each)=20=3D'Nothing')=20=
ifFalse:=20[=0D=09TextConstants=20at:=20(knownfont=20at:=20each)=20=
asSymbol=0D=09=09=09=09put:=20(TextStyle=0D=09=09=09=09=09=09fontArray:=20=
(self=20lireStrikeFont2Family:=20(knownfont=20at:=20each)=20asString)).=20=
].=0D].=0D=09=09=09self=20update.].=0D=09=09=0D!=20!=0D=0D!FontMover=20=
methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=204/16/2002=20=
23:15'!=0Dnewdirectorypolice=0D=09"cr=8Ee=20un=20nouveau=20dossier=20=
police=20vide=20dans=20le=20directory=20de=20l'image=20renvoie=20true=20=0D=
=09ou=20false=20si=20fait=20ou=20pas"=0D=09|=20|=0D=09FileDirectory=20=
setDefaultDirectoryFrom:=20Smalltalk=20imageName.=0D=09(FileDirectory=20=
default=20directoryExists:=20directorypolice)=0D=09=09ifTrue:=20[^=20=
false]=0D=09=09ifFalse:=20[=20FileDirectory=20default=20createDirectory:=20=
directorypolice.=0D=0D=0D=09=09=09^=20true]!=20!=0D=0D!FontMover=20=
methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=204/23/2002=20=
13:47'!=0DopenAViewOnMe=0D=09|=20zz=20t1=20|=0D=09dirlistmorph=20_=20=
PluggableListMorph=0D=09=09=09=09on:=20self=0D=09=09=09=09list:=20=
#knownfont=0D=09=09=09=09selected:=20#listDirIndex=0D=09=09=09=09=
changeSelected:=20#listDirIndex:=0D=09=09=09=09menu:=20#dirmenu:.=0D=09=
"dirlistmorph=20color:=20Color=20lightRed."=0D=09listemorph=20_=20=
PluggableListMorph=0D=09=09=09=09on:=20self=0D=09=09=09=09list:=20#list=0D=
=09=09=09=09selected:=20#listIndex=0D=09=09=09=09changeSelected:=20=
#listIndex:=0D=09=09=09=09menu:=20#listMenu:.=0D=09=0D=09=0D=09=
listemorph=20selectionIndex:=201.=0D=09listemorph=20doubleClickSelector:=20=
#affichelapolice.=0D=0D=09=09fenetre=20_=20SystemWindow=20labelled:=20=
'Font=20Mover'=20.=0D=0D=09fenetre=20=09=09=0D=09=09addMorph:=20=
listemorph=0D=09=09frame:=20(Rectangle=20origin:=200=20@=200.2=20corner:=20=
0.5=20@=201).=0D=09fenetre=0D=09=09addMorph:=20dirlistmorph=0D=09=09=
frame:=20(Rectangle=20origin:=200.5=20@=200.2=20corner:=201=20@=201).=0D=0D=
=09plusdir_SimpleButtonMorph=20new=20=0Dtarget:=20self;=0D=20=
borderColor:=20#raised;=20=0DactWhen:=20#buttonUp;actionSelector:=20=
#savepolice;=0D=20color:=20=20(Color=20r:=200.901=20g:=200.901=20b:=20=
0.901);=0Dlabel:'->';=0Dposition:=20120=20@=2050.=0D=0D=09=0D=0D=
plusimage_SimpleButtonMorph=20new=20target:=20self;=0D=20borderColor:=20=
#raised;=20=0DactWhen:=20#buttonUp;=0DactionSelector:=20=
#uploadselectedpolice;=0D=20color:=20=20=20=20(Color=20r:=200.901=20g:=20=
0.901=20b:=200.901);=0Dlabel:'<-';=0Dposition:=20140=20@=2050.=0D=0D=0D=0D=
=0Dtoutplusdir_SimpleButtonMorph=20new=20=0Dtarget:=20self;=0D=20=
borderColor:=20#raised;=20=0DactWhen:=20#buttonUp;actionSelector:=20=
#saveall;=0D=20color:=20=20(Color=20r:=200.85=20g:=200.85=20b:=200.85);=0D=
label:'-->'=20;=20"font:=20Preferences=20standardButtonFont;"=0D=
position:=2090=20@=2050.=0D=0D=09=0D=0Dtoutplusimage_SimpleButtonMorph=20=
new=20target:=20self;=0D=20borderColor:=20#raised;=20=0DactWhen:=20=
#buttonUp;=0DactionSelector:=20#loadallpolice;=0D=20color:=20(Color=20=
r:0.85=20g:=200.85=20b:0.85);=0Dlabel:'<--';=0Dposition:=20165=20@=2050.=0D=
=0D=0Dxbutton_SimpleButtonMorph=20new=20target:=20self;=0D=20=
borderColor:=20#raised;=20=0DactWhen:=20#buttonUp;=0DactionSelector:=20=
#removefont;=0D=20color:=20(Color=20r:0.85=20g:=200.85=20b:0.85);=0D=
label:'=20X=20';=0Dposition:=2060=20@=2050.=0D=0Dimageaffiche_=20=
TextMorph=20new=20extent:=2060=20@=200;=0D=09=09=09=09=20color:=20Color=20=
blue;=0D=09=09=09=09=20position:=2010=20@=2050.=0D=0Daffiche=20_=20=
TextMorph=20new=20extent:=2060=20@=200;=0D=09=09=09=09=20color:=20Color=20=
black;=0D=09=09=09=09=20position:=20150=20@=2020.=0D=09taille=20_=20=
TextMorph=20new=20extent:=20150=20@=200;=0D=09=09=09=09=20color:=20Color=20=
darkGray;=0D=09=09=09=09=20position:=2010=20@=2020.=0D=09diraffiche=20_=20=
TextMorph=20new=20extent:=20170=20=20@=200=20;=0D=09=09=09=09=20color:=20=
Color=20blue;=0D=09=09=09=09=20position:=20215=20@=2050.=0D=09=
"diraffiche=20borderWidth:1."=0D=0Dimageaffiche=20string:=20=20'Image'=20=
fontName:=20'NewYork'=0D=09=09size:=2014.=0D=09affiche=0D=09=09fontName:=20=
(liste=20at:=20index)=0D=09=09size:=2014.=0D=09affiche=20contents:=20=
(liste=20at:=20index)=20asString=20,=20'=20'.=0D=09zz=20_=20Utilities=0D=09=
=09=09=09fontPointSizesFor:=20(liste=20at:=20index).=0D=09t1=20_=20''.=0D=
=091=0D=09=09to:=20zz=20size=0D=09=09do:=20[:i=20|=20t1=20_=20t1=20,=20'=20=
'=20,=20(zz=20at:=20i)=20asString].=0D=09taille=0D=09=09string:=20t1=0D=09=
=09fontName:=20'NewYork'=0D=09=09size:=2012.=0D=0Ddiraffiche=20=0D=
string:directorypolice=20asString=0DfontName:=20'NewYork'=20=0Dsize:=20=
12.=0D=09=0Dfenetre=20addMorph:=20imageaffiche.=0D=09fenetre=20addMorph:=20=
diraffiche.=0Dfenetre=20addMorph:=20plusdir.=0Dfenetre=20addMorph:=20=
plusimage.=0Dfenetre=20addMorph:=20toutplusdir.=0Dfenetre=20addMorph:=20=
toutplusimage.=0D=09fenetre=20addMorph:=20affiche.=0D=09fenetre=20=
addMorph:=20taille.=0Dfenetre=20addMorph:=20xbutton.=0D=0D=09fenetre=0D=09=
=09setWindowColor:=20(Color=0D=09=09=09=09r:=200.55=0D=09=09=09=09g:=20=
0.75=0D=09=09=09=09b:=200.80).=0D=09fenetre=20allowReframeHandles:=20=
false.=0Dfenetre=20clipSubmorphs:=20true.=0Dfenetre=20openInWorldExtent:=20=
300@300.=0D=09^=20fenetre!=20!=0D=0D!FontMover=20methodsFor:=20'as=20yet=20=
unclassified'=20stamp:=20'<JMZ=204/23/2002=2011:46'!=0Dremoveall=0D=09=
"remove=20all=20but=20NewYork=20"=0D=0D1=20to:=20liste=20size=20do:=20=
[:i|=20(liste=20at:=20i)=20=20=3D#NewYork=20ifFalse:[=0D=09TextConstants=0D=
=09=09removeKey:=20(liste=20at:=20i).]=20].=0D=09self=20update.=0D=
index_1.=0D=09!=20!=0D=0D!FontMover=20methodsFor:=20'as=20yet=20=
unclassified'=20stamp:=20'<JMZ=204/23/2002=2011:56'!=0Dremovefont=0D=09=
"remove=20the=20police=20"=0D|=20last=20|=0Dlast_index.=0D=09=
TextConstants=0D=09=09removeKey:=20(liste=20at:=20index).=0D=09=0D=
"index_last-1."=0Dself=20update.=0Dself=20listIndex:=20index.!=20!=0D=0D=
!FontMover=20methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=20=
4/16/2002=2023:47'!=0Dsaveall=0D=09"v=8Erifie=20dossier=20polices=20=
existe=20est=20l=88=20sauve=20toutes=20les=20police=20et=20tous=20les=20=20=
=0D=09tailles"=0D=09|=20zzp=20tt=20astyle=20|=0D=09Cursor=20write=0D=09=09=
showWhile:=20[FileDirectory=20setDefaultDirectoryFrom:=20Smalltalk=20=
imageName.=0D=09=09=09(FileDirectory=20default=20=
directoryExists:directorypolice)=0D=09=09=09=09ifFalse:=20["on=20le=20=
cr=8Ee"=0D=09=09=09=09=09(self=20newdirectorypolice)=0D=09=09=09=09=09=09=
ifFalse:=20[^self=20display:=20'Ne=20peut=20pas=20trouver=20le=20dossier=20=
Police']].=0D=09=091=20to:=20(liste=20size)=20do:=20[:pol=20|=0D=0D=09=09=
=09zzp=20_=20Utilities=0D=09=09=09=09=09=09fontPointSizesFor:=20(liste=20=
at:=20pol).=0D=09=09=091=0D=09=09=09=09to:=20zzp=20size=0D=09=09=09=09=
do:=20[:i=20|=20=0D=09=09=09=09=09"test=209=20et=20pas=2009"=0D=09=09=09=09=
=09(zzp=20at:=20i)=20asString=20size=20=3D=3D=201=0D=09=09=09=09=09=09=
ifTrue:=20[tt=20_=20'0'=20,=20(zzp=20at:=20i)=20asString]=0D=09=09=09=09=09=
=09ifFalse:=20[tt=20_=20(zzp=20at:=20i)=20asString].=0D=09=09=09=09=09=
astyle=20_=20TextStyle=20named:=20(liste=20at:=20pol)=20asString.=0D=09=09=
=09=09=09=0D=09=09=09=09=09(astyle=20fontArray=20at:=20i)=0D=09=09=09=09=09=
=09writeAsStrike2On:=20((FileDirectory=20default=20directoryNamed:=20=
directorypolice)=0D=09=09=09=09=09=09=09=09fileNamed:=20(liste=20at:=20=
pol)=20asString=20,=20tt=20,=20'.sf2')]].=0Dself=20updatedir.=0D]!=20!=0D=
=0D!FontMover=20methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=20=
4/16/2002=2023:46'!=0Dsavepolice=0D=09"v=8Erifie=20dossier=20polices=20=
existe=20est=20l=88=20sauve=20la=20police=20et=20tous=20ses=20tailles"=0D=
=09|=20zzp=20tt=20astyle=20|=0D=09Cursor=20wait=20showWhile:=20[=0D=09=
FileDirectory=20setDefaultDirectoryFrom:=20Smalltalk=20imageName.=0D=09=
(FileDirectory=20default=20directoryExists:=20directorypolice)=0D=09=09=
ifFalse:=20["on=20le=20cr=8Ee"=0D=09=09=09(self=20newdirectorypolice)=0D=09=
=09=09=09ifFalse:=20[^=20self=20display:=20'Ne=20peut=20pas=20trouver=20=
le=20dossier=20Polices']].=0D=09zzp=20_=20Utilities=0D=09=09=09=09=
fontPointSizesFor:=20(liste=20at:=20index).=0D=091=0D=09=09to:=20zzp=20=
size=0D=09=09do:=20[:i=20|=20=0D=09=09=09"test=209=20et=20pas=2009"=0D=09=
=09=09(zzp=20at:=20i)=20asString=20size=20=3D=3D=201=0D=09=09=09=09=
ifTrue:=20[tt=20_=20'0'=20,=20(zzp=20at:=20i)=20asString]=0D=09=09=09=09=
ifFalse:=20[tt=20_=20(zzp=20at:=20i)=20asString].=0D=09=09=09astyle=20_=20=
TextStyle=20named:=20(liste=20at:=20index)=20asString.=0D=09=09=09=0D=09=09=
=09(astyle=20fontArray=20at:=20i)=0D=09=09=09=09writeAsStrike2On:=20=
((FileDirectory=20default=20directoryNamed:=20directorypolice)=0D=09=09=09=
=09=09=09fileNamed:=20(liste=20at:=20index)=20asString=20,=20tt=20,=20=
'.sf2')].=0Dself=20updatedir.=0D].!=20!=0D=0D!FontMover=20methodsFor:=20=
'as=20yet=20unclassified'=20stamp:=20'<JMZ=204/16/2002=2023:20'!=0D=
selectdirectory=0D|=20prov=20|=0D=0Dprov=20_FillInTheBlankMorph=20=
request:=20'What=20is=20the=20directory=20to=20select=20?'.=0Dprov=3D''=20=
ifTrue:[=20^=20false].=0D=0D"test=20exists=20"=0DFileDirectory=20=
setDefaultDirectoryFrom:=20Smalltalk=20imageName.=0D=09(FileDirectory=20=
default=20directoryExists:=20prov)=0D=09=09ifTrue:=20[directorypolice_=20=
prov.=20self=20updatedir.=20^=20true]=0D=09=09ifFalse:=20[(PopUpMenu=20=
confirm:=20'Create=20New=20Directory=20',=20prov)=20=20ifFalse:=20[^=20=
false]=20ifTrue:[=20directorypolice_=20prov.=20=20self=20=20=
newdirectorypolice.=20self=20updatedir.].=20=0D^false=20].=0D=0D=0D=0D=0D=
!=20!=0D=0D!FontMover=20methodsFor:=20'as=20yet=20unclassified'=20stamp:=20=
'<JMZ=204/22/2002=2022:49'!=0Dselectdirectory2:=20aname=0D|=20=20|=0D=0D=20=
directorypolice_=20aname.=20=0D=20self=20=20newdirectorypolice.=0D=20=
self=20updatedir.=20=0Ddiraffiche=20=0Dstring:directorypolice=20asString=0D=
fontName:=20'NewYork'=20=0Dsize:=2012.=0D^true=20=0D=0D=0D=0D=0D!=20!=0D=0D=
!FontMover=20methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=20=
4/23/2002=2011:47'!=0Dupdate=0D=09"update=20listmorph"=0D=09"delete=20=
l'ancienne=20listemorph"=0D=09listemorph=20delete.=0D=09liste=20_=20=
Utilities=20knownTextStyles=0D=09=09=09=09asSortedCollection:=20[:a=20:b=20=
|=20a=20<=20b].=0D=09listemorph=20_=20PluggableListMorph=0D=09=09=09=09=
on:=20self=0D=09=09=09=09list:=20#list=0D=09=09=09=09selected:=20=
#listIndex=0D=09=09=09=09changeSelected:=20#listIndex:=0D=09=09=09=09=
menu:=20#listMenu:.=0D=09listemorph=20doubleClickSelector:=20=
#affichelapolice.=0D=09listemorph=20color:=20Color=20lightBlue.=0D=09=
index=20_=20index=20-=201.=0D=09index=20<=201=0D=09=09ifTrue:=20[index=20=
_=201].=0D=09listemorph=20selectionIndex:=20index.=0D=09fenetre=0D=09=09=
addMorph:=20listemorph=0D=09=09frame:=20(Rectangle=20origin:=200=20@=20=
0.2=20corner:=200.5=20@=201)!=20!=0D=0D!FontMover=20methodsFor:=20'as=20=
yet=20unclassified'=20stamp:=20'<JMZ=204/23/2002=2011:45'!=0Dupdatedir=0D=
=09knownfont_OrderedCollection=20new.=0D=09self=20updateknownfontliste.=0D=
=09dirlistmorph=20delete.=09=09=0Ddirlistmorph_=20PluggableListMorph=20=0D=
=09=09on:=20self=20=09=09=0D=09=09=09=09list:=20#knownfont=0D=09=09=09=09=
selected:=20#listDirIndex=0D=09=09=09=09changeSelected:=20#listDirIndex:=0D=
=09=09menu:=20#dirmenu:.=09=0D=0D=09=0Dfenetre=0D=09=09addMorph:=20=
dirlistmorph=0D=09=09frame:=20(Rectangle=20origin:=200.5=20@=200.2=20=
corner:=201=20@=201).=0D=0Ddiraffiche=20contents:=20=20directorypolice=20=
asString=20.!=20!=0D=0D!FontMover=20methodsFor:=20'as=20yet=20=
unclassified'=20stamp:=20'<JMZ=204/17/2002=2022:43'!=0Dupdatedirliste=0D=0D=
|=20|=0DFileDirectory=20setDefaultDirectoryFrom:=20Smalltalk=20=
imageName.=09=0D=0Ddirlist_FileDirectory=20default=20directoryNames.=0D!=20=
!=0D=0D!FontMover=20methodsFor:=20'as=20yet=20unclassified'=20stamp:=20=
'<JMZ=204/16/2002=2022:53'!=0Dupdateknownfontliste=0D=0D=0D|=20laliste=20=
listedisplay=20|=0DFileDirectory=20setDefaultDirectoryFrom:=20Smalltalk=20=
imageName.=0D=09FileDirectory=20default=20directoryNamed:=20=
directorypolice.=0D=09=0Dlaliste_(FileDirectory=20default=20=
directoryNamed:=20directorypolice)=20=20fileNamesMatching:=20'*.sf2'.=0D=
laliste=3D#()=20ifFalse:[=20=0Dlistedisplay_OrderedCollection=20new.=0D=20=
1=20to:=20laliste=20size=20do:[:each=20|=20=20listedisplay=20add:=20=
(laliste=20at:=20each)=20withoutTrailingDigits.].=0D=0D=091=20to:=20=
listedisplay=20size=20do:[:each=20|=20self=20isknownfont:=20=
(listedisplay=20at:each=20)].=0D]=0DifTrue:[=20=
knownfont_OrderedCollection=20new.=20knownfont=20add:=20'Nothing'].!=20!=0D=
=0D!FontMover=20methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=20=
4/23/2002=2011:29'!=0Duploadonepolice:=20aname=0D=09=09|=20=20inDex=20|=0D=
=09TextConstants=0D=09=09=09=09at:=20aname=20asSymbol=0D=09=09=09=09put:=20=
(TextStyle=0D=09=09=09=09=09=09fontArray:=20(self=20=
lireStrikeFont2Family:=20aname)).=0D=09=09self=20update.=0D1=20to:=20=20=
liste=20size=20do:=20[:ind=20|=20(=20(=20liste=20at:=20ind)=3Daname=20=
asSymbol)=20ifTrue:[inDex_ind.]].=0D=0Dself=20listIndex:=20inDex.=0D=09!=20=
!=0D=0D!FontMover=20methodsFor:=20'as=20yet=20unclassified'=20stamp:=20=
'<JMZ=204/23/2002=2011:29'!=0Duploadpolice=0D=09"charge=20une=20police=20=
et=20tous=20ses=20tailles=20depuis=20le=20dossier=20Police"=0D=09|=20zz=20=
inDex=20|=0D=09=0D=09FileDirectory=20setDefaultDirectoryFrom:=20=
Smalltalk=20imageName.=0D=09FileDirectory=20default=20directoryNamed:=20=
directorypolice.=0D=09zz=20_=20StandardFileMenu=0D=09=09=09=09=
oldFileFrom:=20(FileDirectory=20default=20directoryNamed:=20=
directorypolice).=0D=09zz=0D=09=09ifNotNil:=20[zz=20_=20zz=20name=20=
withoutTrailingDigits.=0D=0D=09=09=09TextConstants=0D=09=09=09=09at:=20=
zz=20asSymbol=0D=09=09=09=09put:=20(TextStyle=0D=09=09=09=09=09=09=
fontArray:=20(self=20lireStrikeFont2Family:=20zz)).=0D=0Dself=20update.=0D=
=09=091=20to:=20=20liste=20size=20do:=20[:ind=20|=20(=20(=20liste=20at:=20=
ind)=3Dzz=20asSymbol)=20ifTrue:[inDex_ind.=20=20]].=0D=0Dself=20=
listIndex:=20inDex.=0D=0D=09=0D=09=09=09]!=20!=0D=0D!FontMover=20=
methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'<JMZ=204/23/2002=20=
11:29'!=0Duploadselectedpolice=0D=09=09|=20inDex=20|=0D=09TextConstants=0D=
=09=09=09=09at:=20(knownfont=20at:=20dirindex)=20asSymbol=0D=09=09=09=09=
put:=20(TextStyle=0D=09=09=09=09=09=09fontArray:=20(self=20=
lireStrikeFont2Family:=20(knownfont=20at:=20dirindex))).=0D=0Dself=20=
update.=0D=0D=09=09=091=20to:=20=20liste=20size=20do:=20[:ind=20|=20(=20=
(=20liste=20at:=20ind)=3D(knownfont=20at:=20dirindex)=20asSymbol)=20=
ifTrue:[inDex_ind=20.=20=20]].=0D=0D=20=20self=20listIndex:=20inDex=20.=0D=
=0D!=20!=0D=0D"--=20--=20--=20--=20--=20--=20--=20--=20--=20--=20--=20--=20=
--=20--=20--=20--=20--=20--=20"!=0D=0DFontMover=20class=0D=09=
instanceVariableNames:=20''!=0D=0D!FontMover=20class=20methodsFor:=20'as=20=
yet=20unclassified'=20stamp:=20'<JMZ=204/23/2002=2013:15'!=0Dopen=0D=09=
"for=20call:=20FontMover=20open"=0D=09|=20apolice=20|=0D=09apolice=20_=20=
FontMover=20new.=0D=09apolice=20initialize=20openAViewOnMe.=0D=09^=20=
apolice!=20!=0D=
--Apple-Mail-2-455654405--