Select Utility Otomatik güncellemeli - Yazan Ümit Kabuli

Aşağıdaki kodlaro MAX Scriptten çalıştırın . utility panel´de göreceksiniz
select unselect durumunda liste kutularını otomatik yeniler.
obje silme ekleme ad değiştirme yaptı iseniz "Yenile" butonuna basınız

--code

/* Bu utility
Yazan: Ümit Kabuli
Tarih: 2007.12.13
*/
utility Selected "Seçililer Araci" silentErrors: true rolledUp: false
(
global yenile
rollout selectedrollout "Seçili Obje(ler)"
(
listbox lbSecilmemis "Seçilmemis:" height:5 width:90 pos: [0,30] align:#left
items: (for o in objects where o.IsSelected == false collect o.name )
listbox lb "Seçili:" height:5 width:90 pos:[120,30]
items: (for o in selection collect o.name)
button secilsin ">" pos: [95,55] width:12
button secilmesin "<" pos:[95,85] width:12 --tooltip: "liste kutusunda seçili objeyi seçilmemis yapar"
button yenile "Yenile" pos:[100,150] --toolTip:"viewport´dan Seçim degisiklerin liste kutusuna ekler"

on yenile pressed do
(
lb.items=(for o in selection collect o.name)
lbSecilmemis.items =(for o in objects where o.IsSelected == false collect o.name )
)

on secilmesin pressed do
(
deselect (getNodebyName lb.selected)
lb.items=(for o in selection collect o.name)
lbSecilmemis.items =(for o in objects where o.IsSelected == false collect o.name )
)

on secilsin pressed do
(
selectmore (getNodebyName lbSecilmemis.selected)
yenile.pressed()
)

on lbSecilmemis doubleClicked arg do
(
selectmore (getNodebyName lbSecilmemis.selected)
yenile.pressed()
)

on lb doubleClicked arg do
(

deselect (getNodebyName lb.selected)
yenile.pressed()
)




)--end of rollout selectedrollout

on Selected open do
(
addrollout selectedrollout

when select objects change obj do
(

Selected.selectedrollout.yenile.pressed()
)


)


on Selected close do
(
removerollout selectedrollout
deleteAllChangeHandlers
)


)
--- end code