/* Édition du (des) texte(s) associé(s) à un objet
Version 1.00: 6 janvier 1999
Version 1.01: 13 avril 2000 (modif SAVEALL)
$VER: 1.01 (© R.Florac, 13 avril 2000) */

options results

'FIRSTSEL'; o=result
if o=0 then do
    'MESSAGE("Sélectionnez l''objet à éditer")'
    exit
end

'TYPE('o')'; t=result
select
    when t=1 then do	/* composant */
	'GETVAL('o')'; v=result
	'GETREF('o')'; r=result
	'PARTNAME('o')'; n=result
	if r>0 then do
	    'READTEXT('r')'
	    at=result
	end
	else at=left(n,1)
	'ASKTEXT("Référence 'n'?","'at'")'; t=result
	if t="" then exit
	if t~=at then do
	    'SAVEALL'
	    'SETREF('o',"'t'")'
	    sauver=0
	end
	if v>0 then do
	    'READTEXT('v')'
	    at=result
	end
	else at=""
	'ASKTEXT("Valeur/type 't'?","'at'")'; t=result
	if t="" then exit
	if t~=at then do
	    if n="RÉSISTANCE" then t=t||'8B'x       /* ajout signe ohm */
	    if sauver~=0 then 'SAVEALL'
	    'SETVAL('o',"'t'")'
	end
    end
    when t=4 then do	/* texte */
	'ASKTEXT("Texte", READTEXT('o'))'; t=result
	if t~="" then do
	    'SETTEXT('o',"'t'")'
	end
    end
    when t=5 then do
	'ASKTEXT("Référence", READTEXT('o'))'; t=result
	if t~="" then do
	    'SETTEXT('o',"'t'")'
	end
    end
    when t=6 then do
	'ASKTEXT("Valeur/Type", READTEXT('o'))'; t=result
	if t~="" then do
	    'SETTEXT('o',"'t'")'
	end
    end
    when t=11 then do
	'ASKTEXT("Connecteur d''entrée", READTEXT('o'))'; t=result
	if t~="" then do
	    'SETTEXT('o',"'t'")'
	end
    end
    when t=12 then do
	'ASKTEXT("Connecteur de sortie", READTEXT('o'))'; t=result
	if t~="" then do
	    'SETTEXT('o',"'t'")'
	end
    end
    otherwise do
	'MESSAGE("Objet incorrect")'
    end
end