From 05f6766edfa33afb864595d1b8f06b19fe9ee0df Mon Sep 17 00:00:00 2001 From: Cyan Ogilvie Date: Fri, 20 Jun 2008 16:12:33 +0200 Subject: [PATCH] Added MDT::child_base method to get the path base for adding children to the tabset --- scripts/combobox.itk | 2 ++ scripts/mdt.itk | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/scripts/combobox.itk b/scripts/combobox.itk index caa3972..0ccb937 100644 --- a/scripts/combobox.itk +++ b/scripts/combobox.itk @@ -1,5 +1,7 @@ # vim: ft=tcl foldmethod=marker foldmarker=<<<,>>> ts=4 shiftwidth=4 +# TODO: reassess signals(valid) when the contents changes (set method, typing, etc) + class tlc::Combobox { inherit tlc::Mywidget tlc::Baselog tlc::Signalsource tlc::Handlers diff --git a/scripts/mdt.itk b/scripts/mdt.itk index 46b1b4f..7a1daa2 100644 --- a/scripts/mdt.itk +++ b/scripts/mdt.itk @@ -17,6 +17,7 @@ class tlc::MDT { public { method new_page {key name widget {index end}} + method child_base {} {return [list $w.tabset]} method key_exists {key} method select_page {key} method selected_page_widget {} @@ -54,7 +55,7 @@ body tlc::MDT::constructor {args} { #<<<1 tlc::Signal #auto signals(empty) -name "$w empty" $signals(empty) set_state 1 - eval itk_initialize $args + itk_initialize {*}$args if {[info commands ::ttk::notebook] == "::ttk::notebook"} { set mode "ttk" -- 2.11.4.GIT