Tcl (GUI) -command option

[posta10100]

Ciao a tutti,
sto iniziando in questi giorni con il tcl e c'e` una cosa che non riesco a capire.

Se dichiaro un bottone come:

Codice: Seleziona tutto

button .b -text ciao -command ".list insert end [tk_getOpenFile]"

in cui .list e` una listbox, appena lancio lo script appare la finestra per la scelta del file e poi quando premo sul pulsante non succede piu` nulla.
Pero` se dichiaro il bottone come:

Codice: Seleziona tutto

button .b -text ciao -command "addToList .list"

in cui la procedura addToList non e` altro che:

Codice: Seleziona tutto

.list insert end [tk_getOpenFile]

funziona correttamente.

Chi mi sa spiegare perche`?

Grazie!

Luca.

[xyz]

Chi mi sa spiegare perche`?

La maggior parte delle GUI funzionano con le call back. Il primo caso viene eseguita la funzione "tk_getOpenFile" (quindi appare) e l'inserzione nella lista viene memorizzato come call back, se premi il bottone ti restituisce un chiaro messaggio d'errore che non hai riportato:

Codice: Seleziona tutto

invalid command name ".list"
    while executing
".list insert end "
    invoked from within
".b invoke"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 [list $w invoke]"
    (procedure "tk::ButtonUp" line 22)
    invoked from within
"tk::ButtonUp .b"
    (command bound to event)

Il secondo caso è l'uso corretto della cal back, bisogna passare il nome della funzione da chiamare quando invochi l'evento di premere il bottone.

[posta10100]

In realta` il codice era leggermente diverso da quello postato, nel secondo caso passava attraverso un if che in quelle condizioni comunque era "true"

A parte questo, non ho capito cosa succede.

Voglio dire, nel primo caso perche` il dialog viene visualizzato subito?
Il comando non dovrebbe essere eseguito in risposta alla pressione del bottone?
O forse non ho ben capito lo scopo dell'opzione "-command"?

Nel secondo caso, che praticamente fa la stessa cosa (if a parte) perche` il dialog appare solo quando premo il bottone?

Purtroppo ora non posso piu` postare il codice originale dato che ho fatto un po di modifiche.

Grazie ancora!

Luca.

[angus]

ho questo ricordo:
se il contenuto di -command è tra " " viene eseguito quando viene DEFINITO il button (questo spiega perché si apre subito la finestra per la scelta del file) ,
mentre se lo metti tra { }, viene eseguito quando lo PREMI

spero ti sia utile, ora devo scappare e non posso provare il codice
(c'è ancora qualcuno che usa tcl/tk?)

[xyz]

Mi ero dimenticato di dire che le istruzioni comprese tra "[...]" vengono valute e il risultato viene sostituto nell'espressione, quindi sppena passi quella sequenza di comandi delimitati dalle doppie virgolette viene eseguito subito "tk_getOpenFile", poi l''evento di premere il bottone implica l'esecuzione del resto del comando il quale segnala errore.

Se togli le parantesi quadre nel primo caso non viene subito eseguito l'apertura della finestra di dialogo ma poi compare il messaggio di errore nel inserimento nella lista.

c'è ancora qualcuno che usa tcl/tk?

E' la stessa cosa che mi sono chiesto io, non amo questo linguaggio e mi sono chiesto chi ancora lo usa, al giorno d'oggi esistono dei linguaggi di script con GUI con una sintassi più moderna.

[phylum]

mmm +/-

un comando tra "" viene eseguito se nativo o metodo di un oggetto
tra [] se è un procedura

es.

button .b1 -text "Push Me" -command [list onClick]
proc onClick {} {
.b1 configure -text "Thanks"
}

=

button .b1 -text "Push Me" -command ".b1 configure -text \"Thanks\""

[angus]

mi sono spiegato da cani... e quello che avete capito, non è quello che intendevo.
io facevo riferimento a questo http://www.tcl.tk/about/language.html e precisamente nella parte "Quotes and braces" dove parla delle curly braces cioè la parentesi GRAFFE e non QUADRE.
un po' come si vede qui http://tldp.org/HOWTO/Scripting-GUI-TclTk/basics.html
in questo esempio

Codice: Seleziona tutto

button .submit -text "Click Me" -command { puts "\nHello World" }

Se non mi sono perso qualcosa per strada, a posta10100 basta sostituire le "" con le {} per vedere il suo codice funzionare.

Codice: Seleziona tutto

button .b -text ciao -command {.list insert end [tk_getOpenFile]}

saluti

edit: mancando il codice reale originale si va male a capire, ma probabilmente dentro quelle { } ci va anche un

Codice: Seleziona tutto

global list

altrimenti da appunto l'errore che ha giustamente segnalato xyz

[posta10100]

Che dire, grazie a tutti!

Se non mi sono perso qualcosa per strada, a posta10100 basta sostituire le "" con le {} per vedere il suo codice funzionare.

Domani una prova la faccio, oggi ho risolto facendo chiamare una proc dedicata e tutto sembra funzionare.
Oltretutto mi son voluto complicare la vita andando a creare delle proc per creare dei pannelli riutilizzabili.
Giusto per gradire, li ho pure spostati in file diversi!

(c'è ancora qualcuno che usa tcl/tk?)

Da me si usa quasi solo quello... non chiedetemi perché, io ho iniziato l'altro giorno a programmare in tcl, di solito sviluppo in java... e anche quello ha le sua lacune!!!

Grazie ancora!
Luca.

[angus]

Oltretutto mi son voluto complicare la vita andando a creare delle proc per creare dei pannelli riutilizzabili.

Stavo quasi per dirtelo oggi, alla fine è la soluzione migliore... tra l'altro trovi tonnellate di codice già pronto!
buon lavoro
ciao