Posted to tcl by centrix at Thu Mar 15 16:04:43 GMT 2018view raw

  1. Another delete class, create.
  2. The code "inherit iwidgets::Combobox" fails with:
  3. cannot inherit from "iwidgets::Combobox" (class "iwidgets::Combobox" not found in context "::iwidgets")
  4.  
  5.  
  6.  
  7. catch {::itcl::delete class iwidgets::ComboBox}
  8.  
  9. # ComboBox
  10. # ----------------------------------------------------------------------
  11. # additional functionality for iwidgets::combobox
  12.  
  13. #
  14. # Usual options.
  15. #
  16. itk::usual ComboBox {
  17. keep -background -borderwidth -cursor -foreground -highlightcolor \
  18. -highlightthickness -insertbackground -insertborderwidth \
  19. -insertofftime -insertontime -insertwidth -labelfont -popupcursor \
  20. -selectbackground -selectborderwidth -selectforeground \
  21. -textbackground -textfont -index
  22. }
  23.  
  24. # ------------------------------------------------------------------
  25. # COMBOBOX
  26. # ------------------------------------------------------------------
  27. itcl::class iwidgets::ComboBox {
  28. inherit iwidgets::Combobox
  29.  
  30. constructor {args} {}
  31. destructor {}
  32.  
  33. itk_option define -balloonhelp balloonHelp BalloonHelp off
  34. itk_option define -entryballoonhelp entryBalloonHelp BalloonHelp {}
  35. itk_option define -listballoonhelp listBalloonHelp BalloonHelp {}
  36. itk_option define -listhelpscript listHelpScript ListHelpScript {}
  37.