A TclOO question

Liste des GroupesRevenir à cl tcl 
Sujet : A TclOO question
De : hgiese (at) *nospam* ratiosoft.com (Helmut Giese)
Groupes : comp.lang.tcl
Date : 07. Apr 2025, 14:03:04
Autres entêtes
Organisation : ratiosoft
Message-ID : <fde7vjp95da1dv2v38fhtfqsqe8k8ep47r@4ax.com>
User-Agent : Forte Free Agent 1.93/32.576 English (American)
Hello out there,
look at the following sample:
---
catch {Sample destroy}

oo::class create Sample {
    variable classVar ;# automatically exists in every instance
    constructor {someVar} {
        my variable objVar
        set classVar $someVar
        set objVar 99
    }
    destructor {
        my variable objVar classVar
        puts "classVar: $classVar, objVar: $objVar"
    }
}

Sample create s1 100
Sample create s2 200
s1 destroy ;# -> classVar: 100, objVar: 99
s2 destroy ;# -> classVar: 200, objVar: 99
---
My question is: What happens, if I add 'classVar', although not
needed, to a 'my variable' statement  - like I did in the destructor
above. Is it just superfluous or can it have consequences in a more
complex situation than the above example.
Thank you for any enlightenment
Helmut

Date Sujet#  Auteur
7 Apr 25 * A TclOO question2Helmut Giese
9 Apr 25 `- Re: A TclOO question1Helmut Giese

Haut de la page

Les messages affichés proviennent d'usenet.

NewsPortal