Per Object methods

# 
# Create a stack with a object-specific method
# to check the type of entries
#
# s4 is a stack of integer
 
Stack s4
s4 proc push {value} {
  if {![string is integer $value]} {
    error "value $value is not an integer"
  }   next
}