itcl::is

itcl::is tests whether a variable is a class. Returns a boolean true or false.

  package require Itcl
  itcl::class helloworld {
    public variable owner "No-one"

    method greet {} { puts "Hello World from $owner" }
  }
  itcl::class goodbyeworld {
    public variable owner "No-one"

    method greet {} { puts "Goodbye Cruel World from $owner" }
  }
  helloworld  h1
  goodbyeworld h2
  h1 configure -owner Me
  h2 configure -owner You
  h1 greet
  h2 greet

The following reports that both h1 and h2 are itcl objects.

  puts "Variable h1 [itcl::is object h1] h2 [itcl::is object h2]"

This snippet reports that h1 is a helloworld, but h2 is not.

  puts "Variable h1 [itcl::is object h1 -class helloworld] h2 [itcl::is object h2 -class helloworld]"

A similar method "isa" has been added which returns a logical:

: h1 isa helloworld

    puts "Hey [h1 isa helloworld]"

: Hey 1

    puts "Hey [h1 isa goodbyeworld]"

: Hey 0

    puts "Hey [h1 isa sausage]"

: class "sausage" not found in context "::helloworld"

And see also info which returns a string:

    h1 info class

: ::helloworld

Category Command

Category Itcl