Guest User

Untitled

a guest
Mar 2nd, 2018
239
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 0.48 KB | None | 0 0
  1. #!/usr/bin/wish
  2. proc hide { } {
  3. pack forget .f
  4. }
  5.  
  6. proc show { } {
  7.  #frame .f (if you remove these comments the frame and the labels will be giving errors. they are already defined)
  8.  #label .l -text "lab1"
  9.  #label .l2 -text "lab2"  
  10. pack  .f
  11. pack .l -in .f
  12. pack .l2 -in .f
  13.  
  14.  }
  15.  
  16. button .bh -text "hide" -command "hide"
  17. button .bs -text "show" -command "show"
  18. frame .f
  19. label .l -text "lab1"
  20. label .l2 -text "lab2"  
  21. pack .bh .bs .f
  22. pack .l -in .f
  23. pack .l2 -in .f
Add Comment
Please, Sign In to add comment