\slide{int-script}{The definition of the interface}{
  #!/usr/prac/se/bin/hush -f
  
  proc generate {} { 
   	.m configure -text [.s get]
  }
  
  scale .s -label "seed" -orient horizontal -length 256 -relief sunken
  message .m -width 256 -aspect 200 
  
  pack .m .s -fill x
  
  bind .s  { generate }
  
}