non mais ct pas la programmation qui était à chier, c le résultat. ça oblige à avoir pour chaque pic un raccourci, c de la merde...
je v peut-être integrer ça à l'explorer plutot... enfin si je le fait...
lbl def_init
gettype(#(#s_var[4]&""&#s_var[5]))»l_hlp
if l_hlp="NONE" then
itr_dlog("Erreur",{"Texte",6,"Le fichier est introuvable.",1},9,34,149,64)
goto def_quit
endif
setfold(#s_var[4])
itr_vrtl("drw_save","x_scrlin",0,0,159,99)
lbl def_view
if l_hlp="PRGM" or l_hlp="ASM" then
""»l_arg
For l_tmp,6,dim(#s_var)
#s_var[l_tmp]»l_hlp
If l_hlp="?i" Then
delvar x_xtern1
itr_dlog("Interum",{"Texte",6,"Entrez l'argument n¬"&string(l_tmp-5)&" (nombre)",0,"Input",16,"x_xtern1",0},9,29,149,69)
if ok=0:goto def_quit
l_arg&x_xtern1[1]&","»l_arg
ElseIf l_hlp="?s" Then
delvar x_xtern1
itr_dlog("Interum",{"Texte",6,"Entrez l'argument n¬"&string(l_tmp-5)&" (chaine)",0,"Input",16,"x_xtern1",0},9,29,149,69)
if ok=0:""»x_xtern1[1]
l_arg&string(x_xtern1[1])&","»l_arg
else
l_arg&string(l_hlp)&","»l_arg
endif
EndFor
left(l_arg,abs(dim(l_arg)-1))»l_arg
expr(#s_var[5]&"("&l_arg&")")
elseif l_hlp="PIC" then
itr_dlog("Interum",{"Texte",6,"Visualisation : "&s_var[4]&""&s_var[5],1},9,34,149,64)
vertel("drw_clrs","/","drw_pict",s_var[5],0,0,1,"/","exe_paus")
endif