superlinux-namespace-lesson

#!/usr/bin/wish
namespace eval car {

  variable period distance

  proc speed { } {


  global period distance

  set current_speed [expr distance/period]
  tk_messageBox -message "current_speed=$current_speed"
}

}