Posted to tcl by centrix at Thu Mar 15 16:04:43 GMT 2018view pretty
Another delete class, create. The code "inherit iwidgets::Combobox" fails with: cannot inherit from "iwidgets::Combobox" (class "iwidgets::Combobox" not found in context "::iwidgets") catch {::itcl::delete class iwidgets::ComboBox} # ComboBox # ---------------------------------------------------------------------- # additional functionality for iwidgets::combobox # # Usual options. # itk::usual ComboBox { keep -background -borderwidth -cursor -foreground -highlightcolor \ -highlightthickness -insertbackground -insertborderwidth \ -insertofftime -insertontime -insertwidth -labelfont -popupcursor \ -selectbackground -selectborderwidth -selectforeground \ -textbackground -textfont -index } # ------------------------------------------------------------------ # COMBOBOX # ------------------------------------------------------------------ itcl::class iwidgets::ComboBox { inherit iwidgets::Combobox constructor {args} {} destructor {} itk_option define -balloonhelp balloonHelp BalloonHelp off itk_option define -entryballoonhelp entryBalloonHelp BalloonHelp {} itk_option define -listballoonhelp listBalloonHelp BalloonHelp {} itk_option define -listhelpscript listHelpScript ListHelpScript {}