Changeset 6207115 in tol for tolbase/lib/toltk/tclIndex


Ignore:
Timestamp:
Nov 3, 2016, 8:59:28 AM (10 years ago)
Author:
Pedro Gea <pgea@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
e0578ae
Parents:
7a3f24e
Message:

Refs #1933
Se sustituye el uso de los widgets de BLT: ::blt::tree y ::blt::treeview por el árbol ::wtree basado en ::treectrl.
Se incorporan muchos cambios a la vez. Podrían destacarse los siguientes:

  • Se sustituye blt_tree y ht_tree por wt_tree, y de modo similar blt_vartree y ht_vars por wt_vars y blt_functree y ht_funcs por wt_funcs.
  • Se utilizan las columnas de ::wtree para almacenar la información de cada nodo. Esto simplifica algunos métodos que pueden reescribirse más fácilmente.
  • Se revisa el uso de algunos atributos (variable) usados para el paso de argumentos entre métodos. Desaparecen algunos de ellos y aparece el atributo arguments.
  • Se eliminan algunos métodos auxiliares de los que se podían prescindir y algunos que no estaban usándose.
  • Se prescinde del Spool principalmente por dos motivos: (1) estaba dando problemas y corregirlo conlleva bastante trabajo y (2) la consola puede servir para lo mismo una vez implementada la opción de menú que permite llevar cualquier objeto TOL a la consola. Se implementa esta opción.
  • Provisionalmente, tanto el árbol del inspector (::wtree izquierdo) como el listado de objetos (::wtree's derechos) muestran más columnas de lo necesario.
  • Se implementa el llenado del listado de objetos al seleccionar el nodo raíz de los paquetes.

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@7333 be4846ae-f051-483a-831f-b64e7d08527f

File:
1 edited

Legend:

Unmodified
Added
Removed

  • tolbase/lib/toltk/tclIndex

    r7a3f24e r6207115  
    319319set auto_index(::AutocorGraph::ReadIniOpc) [list source [file join $dir corgraph.tcl]]
    320320set auto_index(::AutocorGraph::WriteIniOpc) [list source [file join $dir corgraph.tcl]]
    321 set auto_index(startupResources) [list source [file join $dir tolinspe.tcl]]
    322 set auto_index(::TolInspector::SubTypeImage) [list source [file join $dir tolinspe.tcl]]
    323 set auto_index(::TolInspector::CreateColumns) [list source [file join $dir tolinspe.tcl]]
    324 set auto_index(::TolInspector::SortColumn) [list source [file join $dir tolinspe.tcl]]
    325 set auto_index(::TolInspector::Create) [list source [file join $dir tolinspe.tcl]]
    326 set auto_index(::TolInspector::CreatePaneLeft) [list source [file join $dir tolinspe.tcl]]
    327 set auto_index(::TolInspector::CreatePaneRight) [list source [file join $dir tolinspe.tcl]]
    328 set auto_index(::TolInspector::CreateMenus) [list source [file join $dir tolinspe.tcl]]
    329 set auto_index(::TolInspector::GetWeight) [list source [file join $dir tolinspe.tcl]]
    330 set auto_index(::TolInspector::Destroy) [list source [file join $dir tolinspe.tcl]]
    331 set auto_index(::TolInspector::OneLine) [list source [file join $dir tolinspe.tcl]]
    332 set auto_index(::TolInspector::TrimContent) [list source [file join $dir tolinspe.tcl]]
    333 set auto_index(::TolInspector::_InsertChild) [list source [file join $dir tolinspe_wtree1.tcl]]
    334 set auto_index(::TolInspector::InsertChild) [list source [file join $dir tolinspe_wtree1.tcl]]
    335 set auto_index(::TolInspector::Insert_HTItem) [list source [file join $dir tolinspe_wtree1.tcl]]
    336 set auto_index(::TolInspector::ClearHiertables) [list source [file join $dir tolinspe_wtree1.tcl]]
    337 set auto_index(::TolInspector::getPackageReference) [list source [file join $dir tolinspe_wtree1.tcl]]
    338 set auto_index(::TolInspector::OpenObject) [list source [file join $dir tolinspe_wtree1.tcl]]
    339 set auto_index(::TolInspector::InsertPackages) [list source [file join $dir tolinspe_wtree1.tcl]]
    340 set auto_index(::TolInspector::InsertGrammars) [list source [file join $dir tolinspe_wtree1.tcl]]
    341 set auto_index(::TolInspector::InsertFiles) [list source [file join $dir tolinspe_wtree1.tcl]]
    342 set auto_index(::TolInspector::InsertConsoleObj) [list source [file join $dir tolinspe_wtree1.tcl]]
    343 set auto_index(::TolInspector::InsertPoolObj) [list source [file join $dir tolinspe_wtree1.tcl]]
    344 set auto_index(::TolInspector::FilterNameBlockMember) [list source [file join $dir tolinspe.tcl]]
    345 set auto_index(::TolInspector::InsertSubset) [list source [file join $dir tolinspe_wtree1.tcl]]
    346 set auto_index(::TolInspector::ClearConsoleObj) [list source [file join $dir tolinspe_wtree2.tcl]]
    347 set auto_index(::TolInspector::ClearConsoleObjSel) [list source [file join $dir tolinspe_wtree2.tcl]]
    348 set auto_index(::TolInspector::UpdateFileRoot) [list source [file join $dir tolinspe_wtree2.tcl]]
    349 set auto_index(::TolInspector::UpdateConsoleObj) [list source [file join $dir tolinspe_wtree2.tcl]]
    350 set auto_index(::TolInspector::UpdatePoolObj) [list source [file join $dir tolinspe_wtree2.tcl]]
    351 set auto_index(::TolInspector::SelectObject) [list source [file join $dir tolinspe_wtree1.tcl]]
    352 set auto_index(::TolInspector::SelectFileRoot) [list source [file join $dir tolinspe_wtree1.tcl]]
    353 set auto_index(::TolInspector::SelectConsoleRoot) [list source [file join $dir tolinspe_wtree1.tcl]]
    354 set auto_index(::TolInspector::SelectPoolRoot) [list source [file join $dir tolinspe_wtree1.tcl]]
    355 set auto_index(::TolInspector::SelectGrammar) [list source [file join $dir tolinspe_wtree1.tcl]]
    356 set auto_index(::TolInspector::SelectSet) [list source [file join $dir tolinspe_wtree1.tcl]]
    357 set auto_index(::TolInspector::GetParentGrammar) [list source [file join $dir tolinspe.tcl]]
    358 set auto_index(::TolInspector::CloseObject) [list source [file join $dir tolinspe_wtree1.tcl]]
    359 set auto_index(::TolInspector::HasSubset) [list source [file join $dir tolinspe.tcl]]
    360 set auto_index(::TolInspector::OpenVariable) [list source [file join $dir tolinspe_wtree1.tcl]]
    361 set auto_index(::TolInspector::SelectItem) [list source [file join $dir tolinspe_wtree1.tcl]]
    362 set auto_index(::TolInspector::FillText) [list source [file join $dir tolinspe_wtree1.tcl]]
    363 set auto_index(::TolInspector::GetItemName) [list source [file join $dir tolinspe.tcl]]
    364 set auto_index(::TolInspector::OnBusy) [list source [file join $dir tolinspe.tcl]]
    365 set auto_index(::TolInspector::Busy) [list source [file join $dir tolinspe.tcl]]
    366 set auto_index(::TolInspector::NotBusy) [list source [file join $dir tolinspe.tcl]]
     321set auto_index(startupResources) [list source [file join $dir tolinspe__main.tcl]]
     322set auto_index(::TolInspector::SubTypeImage) [list source [file join $dir tolinspe__main.tcl]]
     323set auto_index(::TolInspector::Create) [list source [file join $dir tolinspe__draw.tcl]]
     324set auto_index(::TolInspector::CreatePaneLeft) [list source [file join $dir tolinspe__main.tcl]]
     325set auto_index(::TolInspector::CreatePaneRight) [list source [file join $dir tolinspe__main.tcl]]
     326set auto_index(::TolInspector::CreateMenus) [list source [file join $dir tolinspe__main.tcl]]
     327set auto_index(::TolInspector::GetWeight) [list source [file join $dir tolinspe__main.tcl]]
     328set auto_index(::TolInspector::Destroy) [list source [file join $dir tolinspe__main.tcl]]
     329set auto_index(::TolInspector::OneLine) [list source [file join $dir tolinspe__main.tcl]]
     330set auto_index(::TolInspector::TrimContent) [list source [file join $dir tolinspe__main.tcl]]
     331set auto_index(::TolInspector::WNodeDef) [list source [file join $dir tolinspe__wtree1.tcl]]
     332set auto_index(::TolInspector::WNode) [list source [file join $dir tolinspe__wtree1.tcl]]
     333set auto_index(::TolInspector::WiIndex) [list source [file join $dir tolinspe__wtree1.tcl]]
     334set auto_index(::TolInspector::WiName) [list source [file join $dir tolinspe__wtree1.tcl]]
     335set auto_index(::TolInspector::WiContent) [list source [file join $dir tolinspe__wtree1.tcl]]
     336set auto_index(::TolInspector::WiPath) [list source [file join $dir tolinspe__wtree1.tcl]]
     337set auto_index(::TolInspector::WiDescription) [list source [file join $dir tolinspe__wtree1.tcl]]
     338set auto_index(::TolInspector::WiReference) [list source [file join $dir tolinspe__wtree1.tcl]]
     339set auto_index(::TolInspector::WiTolReference) [list source [file join $dir tolinspe__wtree1.tcl]]
     340set auto_index(::TolInspector::InsertChild) [list source [file join $dir tolinspe__wtree1.tcl]]
     341set auto_index(::TolInspector::InsertItem) [list source [file join $dir tolinspe__wtree1.tcl]]
     342set auto_index(::TolInspector::ClearHiertables) [list source [file join $dir tolinspe__wtree1.tcl]]
     343set auto_index(::TolInspector::OpenObject) [list source [file join $dir tolinspe__wtree1.tcl]]
     344set auto_index(::TolInspector::CloseObject) [list source [file join $dir tolinspe__wtree1.tcl]]
     345set auto_index(::TolInspector::InsertPackages) [list source [file join $dir tolinspe__wtree1.tcl]]
     346set auto_index(::TolInspector::InsertGrammars) [list source [file join $dir tolinspe__wtree1.tcl]]
     347set auto_index(::TolInspector::InsertFiles) [list source [file join $dir tolinspe__wtree1.tcl]]
     348set auto_index(::TolInspector::InsertConsoleObj) [list source [file join $dir tolinspe__wtree1.tcl]]
     349set auto_index(::TolInspector::FilterNameBlockMember) [list source [file join $dir tolinspe__main.tcl]]
     350set auto_index(::TolInspector::InsertSubset) [list source [file join $dir tolinspe__wtree2.tcl]]
     351set auto_index(::TolInspector::ClearConsoleObj) [list source [file join $dir tolinspe__wtree2.tcl]]
     352set auto_index(::TolInspector::ClearConsoleObjSel) [list source [file join $dir tolinspe__wtree2.tcl]]
     353set auto_index(::TolInspector::UpdateFileRoot) [list source [file join $dir tolinspe__wtree2.tcl]]
     354set auto_index(::TolInspector::UpdateConsoleObj) [list source [file join $dir tolinspe__wtree2.tcl]]
     355set auto_index(::TolInspector::SelectObject) [list source [file join $dir tolinspe__wtree1.tcl]]
     356set auto_index(::TolInspector::SelectFileRoot) [list source [file join $dir tolinspe__wtree1.tcl]]
     357set auto_index(::TolInspector::SelectConsoleRoot) [list source [file join $dir tolinspe__wtree1.tcl]]
     358set auto_index(::TolInspector::SelectGrammar) [list source [file join $dir tolinspe__wtree1.tcl]]
     359set auto_index(::TolInspector::SelectSet) [list source [file join $dir tolinspe__wtree1.tcl]]
     360set auto_index(::TolInspector::GetParentGrammar) [list source [file join $dir tolinspe__main.tcl]]
     361set auto_index(::TolInspector::OpenVariable) [list source [file join $dir tolinspe__wtree1.tcl]]
     362set auto_index(::TolInspector::SelectItem) [list source [file join $dir tolinspe__wtree1.tcl]]
     363set auto_index(::TolInspector::GetItemName) [list source [file join $dir tolinspe__main.tcl]]
     364set auto_index(::TolInspector::OnBusy) [list source [file join $dir tolinspe__main.tcl]]
     365set auto_index(::TolInspector::Busy) [list source [file join $dir tolinspe__main.tcl]]
     366set auto_index(::TolInspector::NotBusy) [list source [file join $dir tolinspe__main.tcl]]
     367set auto_index(TclList2SetOfText) [list source [file join $dir tolinspe__tolgui.tcl]]
     368set auto_index(Tol_GetViewPrivateMembers) [list source [file join $dir tolinspe__tolgui.tcl]]
    367369set auto_index(Tol_ObjIsClassOf) [list source [file join $dir tolinspe__tolgui.tcl]]
    368370set auto_index(Tol_ClassOf) [list source [file join $dir tolinspe__tolgui.tcl]]
    369371set auto_index(Tol_ClassOfFromReference) [list source [file join $dir tolinspe__tolgui.tcl]]
     372set auto_index(Tol_StructOf) [list source [file join $dir tolinspe__tolgui.tcl]]
     373set auto_index(Tol_StructOfFromReference) [list source [file join $dir tolinspe__tolgui.tcl]]
     374set auto_index(Tol_InstanceInfo) [list source [file join $dir tolinspe__tolgui.tcl]]
     375set auto_index(Tol_InstanceInfoFromReference) [list source [file join $dir tolinspe__tolgui.tcl]]
     376set auto_index(Tol_InstanceContent) [list source [file join $dir tolinspe__tolgui.tcl]]
     377set auto_index(Tol_InstanceContentFromReference) [list source [file join $dir tolinspe__tolgui.tcl]]
    370378set auto_index(TolGui_GetMenuEntries) [list source [file join $dir tolinspe__tolgui.tcl]]
     379set auto_index(TolGui_StoreSetElementsInOZA) [list source [file join $dir tolinspe__tolgui.tcl]]
     380set auto_index(TolGui_StoreSelectionInOZA) [list source [file join $dir tolinspe__tolgui.tcl]]
     381set auto_index(TolGui_InsertEntriesMatrixChart) [list source [file join $dir tolinspe__tolgui.tcl]]
     382set auto_index(TolGui_ChartMatrix) [list source [file join $dir tolinspe__tolgui.tcl]]
    371383set auto_index(TolGui_InsertEntriesFromMenuManager) [list source [file join $dir tolinspe__tolgui.tcl]]
    372384set auto_index(TolGui_GetObjMenu) [list source [file join $dir tolinspe__tolgui.tcl]]
    373385set auto_index(TolGui_InvokeMethod) [list source [file join $dir tolinspe__tolgui.tcl]]
    374 set auto_index(TclList2SetOfText) [list source [file join $dir tolinspe__tolgui.tcl]]
    375386set auto_index(TolGui_InvokeGroup) [list source [file join $dir tolinspe__tolgui.tcl]]
    376387set auto_index(::TolInspector::PostVariable) [list source [file join $dir tolinspe__wtree2.tcl]]
    377388set auto_index(::TolInspector::PostFunction) [list source [file join $dir tolinspe__wtree2.tcl]]
    378389set auto_index(::TolInspector::PostTree) [list source [file join $dir tolinspe__wtree2.tcl]]
    379 set auto_index(::TolInspector::RemoveFromSpool) [list source [file join $dir tolinspe__wtree2.tcl]]
    380 set auto_index(::TolInspector::AddToSpool) [list source [file join $dir tolinspe__wtree2.tcl]]
     390set auto_index(::TolInspector::AddToConsole) [list source [file join $dir tolinspe__wtree2.tcl]]
    381391set auto_index(::TolInspector::AddToEvalWindow) [list source [file join $dir tolinspe__wtree2.tcl]]
    382392set auto_index(::TolInspector::SelectAll) [list source [file join $dir tolinspe__wtree2.tcl]]
    383393set auto_index(::TolInspector::ToggleSelection) [list source [file join $dir tolinspe__wtree2.tcl]]
     394set auto_index(::TolInspector::SelectionExpand) [list source [file join $dir tolinspe__wtree2.tcl]]
     395set auto_index(::TolInspector::SelectionCollapse) [list source [file join $dir tolinspe__wtree2.tcl]]
    384396set auto_index(::TolInspector::DrawSet) [list source [file join $dir tolinspe__draw.tcl]]
    385397set auto_index(::TolInspector::DrawMatrix) [list source [file join $dir tolinspe__draw.tcl]]
    … …  
    396408set auto_index(::TolInspector::ViewDefinition) [list source [file join $dir tolinspe__draw.tcl]]
    397409set auto_index(::TolInspector::ViewFile) [list source [file join $dir tolinspe__draw.tcl]]
    398 set auto_index(::TolInspector::DecompileFile) [list source [file join $dir tolinspe.tcl]]
    399 set auto_index(::TolInspector::ReadUserFunctions) [list source [file join $dir tolinspe.tcl]]
    400 set auto_index(::TolInspector::ShowMenuUserFunc) [list source [file join $dir tolinspe.tcl]]
    401 set auto_index(::TolInspector::CallUserFunction) [list source [file join $dir tolinspe.tcl]]
     410set auto_index(::TolInspector::DecompileFile) [list source [file join $dir tolinspe__main.tcl]]
     411set auto_index(::TolInspector::ReadUserFunctions) [list source [file join $dir tolinspe__main.tcl]]
     412set auto_index(::TolInspector::ShowMenuUserFunc) [list source [file join $dir tolinspe__main.tcl]]
     413set auto_index(::TolInspector::CallUserFunction) [list source [file join $dir tolinspe__main.tcl]]
    402414set auto_index(::iniFile::Create) [list source [file join $dir iniFile.tcl]]
    403415set auto_index(::iniFile::CloseAll) [list source [file join $dir iniFile.tcl]]
Note: See TracChangeset for help on using the changeset viewer.