[#3]
Re: [DO5] komenda "lister new"
@peceha,
post #2
Ja tam nie wiem... ale u mnie takie cóś działa ok:
lister set numerek toolbar pasek
gdzie:
numerek - adres aktywnego listerka,
pasek - pełna ścieżka dostępu do konkretnego toolbar uzyskana przez użycie polecenia ResquestFile.
Jest to fragment większej całości, dodającej kilka funkcji do listera... ostatnia wersja z 2005 roku :)
if function='ChangeToolbar' then do
lister query active
numerek=result
address command 'Requestfile >ENV:zmienna NOICONS Dopus5:Buttons/ title="Pick a toolbar right now..."'
address command 'rxset pasek '$zmienna
address command 'UnSetEnv zmienna'
pasek=getclip('pasek')
dopus getfiletype pasek id
identyfikator=result
if identyfikator ~= BUTTONS then do
lister request numerek '"The file You selected is not a valid lister toolbar!" You looser...'
pasek=toolbar
end
lister set numerek toolbar pasek
lister refresh numerek full
exit
end