Version 2 of itcl::is

Updated 2006-11-25 15:03:51

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