🚀 go-pugleaf

kokoryn napisał(a):
> Jest mi to potrzebne do uzyskania modelu podobnego do tego, jaki jest
> stosowany przy tworzeniu widgetów w Tk. Tam każdy widget ma swoją
> procedurę - u mnie analogicznie każda procedura obsługuje pewien
> "obiekt", którego stan muszę przechowywać pomiędzy kolejnymi
> wywołaniami procedury. Mógłbym to zrobić za pomocą zmiennych
> globalnych, ale nie chcę zaśmiecać globalnej przestrzeni nazw, więc
> pomyślałem, że będę trzymał te dane w jednej globalnej tablicy. Może
> to jest wyważanie otwartych drzwi, ale chyba nie - nic mi nie wiadomo
> o jakimś odpowiedniku słowa kluczowego static z C++ w Tcl.

Jest wiele przykładów na Wiki. Na początek błagam pomyśl o IncrTcl - 
robienie mini OO jako "sztuka dla sztuki" nie jest dobre. Jeśli 
koniecznie nie chcesz to napisz chociaż dlaczego.

Jeśli już nie może być Itcl, to jest taki bardzo fajny trik:

# obsluguje obiekt
proc obsluga_obiektu {id cmd args} {
     upvar ::daneobiektu($id) dane
     switch -- $cmd {
         inicjalizuj {
             set dane 0
         }
         pobierz {
             return $dane
         }
         ustaw {
             set dane [lindex $args 0]
         }
         dodaj {
             incr dane
         }
         skasuj {
             unset dane
             rename $id {}
         }
     }
}

# tworzy obiekt
proc obiekt {nazwa} {
     set body ""
     append body "return \[eval \[concat"
     append body " \[list obsluga_obiektu $nazwa\]"
     append body " \$cmd \$args\]\]"
     proc $nazwa {cmd args} $body

     # zainicjalizuj wartosc - niekoniecznie, ale jest ladniej
     $nazwa inicjalizuj
}

Przy okazji zmiana obsługi jak dany "obiekt" działa moze po prostu być 
zrobiona poprzez source pliku z procedurą obsluga_obiektu.

>>Wiesz grupa jest nowa, i raczej dużo osób nie wie. Jeżeli na innej grupie
>>widzisz, że ktoś dyskutuje o tcl, możesz poinformować że taka grupa
>>niedawno zostałą stworzona.
> Chyba jest to rozsądne rozwiązanie.

Może follow up :-)

-- 
WK