Posted to tcl by apw at Sun Sep 30 08:10:54 GMT 2007view raw

  1. namespace eval ::ntk {
  2. namespace ensemble create -map [list \
  3. button ::ntk::button \
  4. clock ::ntk::clock \
  5. entry ::ntk::entry \
  6. focus ::ntk::focus \
  7. frame ::ntk::frame \
  8. input ::ntk::input \
  9. label ::ntk::label \
  10. listbox ::ntk::listbox \
  11. render ::ntk::render \
  12. scrollbar ::ntk::scrollbar \
  13. test ::ntk::test \
  14. theme ::ntk::theme \
  15. toplevel ::ntk::toplevel \
  16. window ::ntk::window]
  17. }
  18.  
  19. proc ::ntk::button {args} {
  20. puts stderr "::ntk::button called !$args!"
  21. }
  22.  
  23. proc ::ntk::clock {args} {
  24. puts stderr "::ntk::clock called !$args!"
  25. }
  26.  
  27. proc ::ntk::entry {args} {
  28. puts stderr "::ntk::entry called !$args!"
  29. }
  30.  
  31. proc ::ntk::focus {args} {
  32. puts stderr "::ntk::focus called !$args!"
  33. }
  34.  
  35. proc ::ntk::frame {args} {
  36. puts stderr "::ntk::frame called !$args!"
  37. }
  38.  
  39. proc ::ntk::input {args} {
  40. puts stderr "::ntk::input called !$args!"
  41. }
  42.  
  43. proc ::ntk::label {args} {
  44. puts stderr "::ntk::label called !$args!"
  45. }
  46. proc ::ntk::listbox {args} {
  47. puts stderr "::ntk::listbox called !$args!"
  48. }
  49.  
  50. proc ::ntk::render {args} {
  51. puts stderr "::ntk::render called !$args!"
  52. }
  53.  
  54. proc ::ntk::scrollbar {args} {
  55. puts stderr "::ntk::scrollbar called !$args!"
  56. }
  57.  
  58. proc ::ntk::text {args} {
  59. puts stderr "::ntk::text called !$args!"
  60. }
  61.  
  62. proc ::ntk::theme {args} {
  63. puts stderr "::ntk::theme called !$args!"
  64. }
  65.  
  66. proc ::ntk::toplevel {args} {
  67. puts stderr "::ntk::toplevel called !$args!"
  68. }
  69.  
  70. proc ::ntk::window {args} {
  71. puts stderr "::ntk::window called !$args!"
  72. return [uplevel 1 ::ntk::classes::window {*}$args]
  73. }
  74.