Index: tolbase/lib/toltk/tolprj.tcl =================================================================== --- tolbase/lib/toltk/tolprj.tcl (revision ceea8662532abf48f87c3d04ea02b641ee128b5f) +++ tolbase/lib/toltk/tolprj.tcl (revision 88e6fd7ce46a4be03f70f78b0c0921203e72d976) @@ -10,5 +10,5 @@ #///////////////////////////////////////////////////////////////////////////// - namespace eval TolProject { +namespace eval TolProject { # # PURPOSE: The purpose of this namespace is organize code and functions and @@ -72,5 +72,5 @@ #///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::ComputeFullPath {this path} { +proc ::TolProject::ComputeFullPath {this path} { # # PURPOSE: Prepends name of project base directory if necessary to a given @@ -94,7 +94,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::New {{path ""}} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::New {{path ""}} { # # PURPOSE: Creates a new project window and an instance of it. This also @@ -121,7 +120,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::Open {{path ""} {run 0}} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::Open {{path ""} {run 0}} { # # PURPOSE: Open a project file in a project window. If file is already opened @@ -165,7 +163,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::postEdited {m {ord 0}} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::postEdited {m {ord 0}} { # # PURPOSE: Fills a menu with the last used project files, according to the @@ -198,5 +195,5 @@ #///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::clearEdited {} { +proc ::TolProject::clearEdited {} { # # PURPOSE: Clears the list of last edited files @@ -209,7 +206,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::OnDelete {this} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::OnDelete {this} { # # PURPOSE: Procedure to check things before destroying tol project window @@ -227,7 +223,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::Destroy {this w} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::Destroy {this w} { # # PURPOSE: Deletes the instance of the tol project. Before this, writes the @@ -245,7 +240,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::InitState {this from} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::InitState {this from} { # # PURPOSE: Initializes some variables according to the state of the tol @@ -278,7 +272,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::SetTraces {this} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::SetTraces {this} { # # PURPOSE: Sets some traces of variables to control changes in tol project @@ -299,7 +292,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::TraceNameFile {this name1 name2 op} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::TraceNameFile {this name1 name2 op} { # # PURPOSE: Sets tol project's name each time var nameFile changes. @@ -333,7 +325,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::TraceSaved {this name1 name2 op} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::TraceSaved {this name1 name2 op} { # # PURPOSE: Sets saved/not saved info in status bar each time var 'isSaved' @@ -354,8 +345,6 @@ } - - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::TraceCompiling {this name1 name2 op} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::TraceCompiling {this name1 name2 op} { # # PURPOSE: Enables/disables compiling options each time var 'compiling' @@ -380,7 +369,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::Create {path} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::Create {path} { # # PURPOSE: Creates a Tol Project instance. Creates and packs the tol projedt @@ -505,5 +493,5 @@ #/////////////////////////////////////////////////////////////////////////// - proc ::TolProject::OnControlKey {this keysym keycode} { +proc ::TolProject::OnControlKey {this keysym keycode} { # # PURPOSE: Control the "Control + Key Press" @@ -523,5 +511,4 @@ } - #///////////////////////////////////////////////////////////////////////////// # File management commands (new, open, save, save as...) @@ -529,5 +516,5 @@ #///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::CmdNew {this} { +proc ::TolProject::CmdNew {this} { # # PURPOSE: Cleans project window to edit a new white project @@ -552,7 +539,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::UpdateListEdited {path} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::UpdateListEdited {path} { # # PURPOSE: Updates list of last edited project files adding a new file path. @@ -582,7 +568,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::CmdOpen {{this ""}} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::CmdOpen {{this ""}} { # # PURPOSE: Asks for a project file path and if it's given opens it into the @@ -627,5 +612,5 @@ #///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::GetFromFile {this path {run 0}} { +proc ::TolProject::GetFromFile {this path {run 0}} { # # PURPOSE: Loads a project into the project window . This converts from the @@ -656,7 +641,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::CheckAll {} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::CheckAll {} { # # PURPOSE: Checks for files opened if anyone has changed and asks for saving. @@ -674,5 +658,5 @@ #///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::CheckOpen {this {type "yesnocancel"}} { +proc ::TolProject::CheckOpen {this {type "yesnocancel"}} { # # PURPOSE: Checks if a file has changed and asks for saving. @@ -714,7 +698,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::CmdSave {this} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::CmdSave {this} { # # PURPOSE: Saves project info actually opened in the project editor. If it @@ -737,7 +720,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::CmdSaveAs {this {nf ""}} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::CmdSaveAs {this {nf ""}} { # # PURPOSE: Saves project actually opened in project editor asking for the @@ -778,7 +760,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::FileSave { this path } { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::FileSave { this path } { # # PURPOSE: Saves project actually opened in project editor in a text file. @@ -810,7 +791,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::AddEntry {this path} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::AddEntry {this path} { # # PURPOSE: Adds a special entry in file path for including proyect from TOL. @@ -828,7 +808,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::NodeToFile {this index fd name} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::NodeToFile {this index fd name} { # # PURPOSE: @@ -863,7 +842,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::GetTreeview {this} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::GetTreeview {this} { # # PURPOSE: Returns treeview's path of a given instance @@ -879,7 +857,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::GetMenu {this} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::GetMenu {this} { # # PURPOSE: Returns treeview's menu of a given instance @@ -895,7 +872,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::SelectProc {this} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::SelectProc {this} { # #///////////////////////////////////////////////////////////////////////////// @@ -908,7 +884,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::PostVariable {this x y} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::PostVariable {this x y} { # # PURPOSE: Composes a popup menu and displays it. Its composed depending on @@ -985,5 +960,5 @@ #///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::OpenNodeIfTerminal {this} { +proc ::TolProject::OpenNodeIfTerminal {this} { # # PURPOSE: @@ -1000,5 +975,5 @@ #///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::OpenNode {this node} { +proc ::TolProject::OpenNode {this node} { # # PURPOSE: Opens a terminal node of the project. It depends on the node type @@ -1023,5 +998,4 @@ } } - #///////////////////////////////////////////////////////////////////////////// @@ -1102,5 +1076,5 @@ #///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::NodeAttributes {this node} { +proc ::TolProject::NodeAttributes {this node} { # # PURPOSE: Shows the attributes of the selected node. @@ -1136,6 +1110,4 @@ } - - #///////////////////////////////////////////////////////////////////////////// proc ::TolProject::DeleteActiveNode {this args} { @@ -1148,5 +1120,5 @@ #///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::DeleteNode {this node} { +proc ::TolProject::DeleteNode {this node} { # # PURPOSE: Deletes a node and all its childs from the project. @@ -1171,5 +1143,4 @@ } - #///////////////////////////////////////////////////////////////////////////// proc ::TolProject::CompileActiveNode {this args} { @@ -1182,5 +1153,5 @@ #///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::CompileNode {this node } { +proc ::TolProject::CompileNode {this node } { # # PURPOSE: Compiles a node and all its childs if parameter 'childs' is true. @@ -1211,7 +1182,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::CompileIfBeforeNode {this node ref} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::CompileIfBeforeNode {this node ref} { # # PURPOSE: Compiles a node if it's after a node given as reference @@ -1235,7 +1205,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::CompileUpToHereNode {this node ref} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::CompileUpToHereNode {this node ref} { # # PURPOSE: Compiles up to here @@ -1260,5 +1229,4 @@ } - #///////////////////////////////////////////////////////////////////////////// proc ::TolProject::DecompileActiveNode {this args} { @@ -1271,5 +1239,5 @@ #///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::DecompileNode {this node} { +proc ::TolProject::DecompileNode {this node} { # # PURPOSE: Decompiles a node and all its childs. @@ -1295,7 +1263,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::ClearData {this} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::ClearData {this} { # # PURPOSE: Clears some variables of data array relatives to attributes of @@ -1314,7 +1281,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::GetDataFromNode {this index} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::GetDataFromNode {this index} { # # PURPOSE: Sets some variables of data array, getting its values from a given @@ -1335,7 +1301,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::GetImageFromType {type} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::GetImageFromType {type} { # # PURPOSE: Returns the image's path of a node given its type @@ -1358,7 +1323,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::IsTerminal {this node} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::IsTerminal {this node} { # # PURPOSE: Determines if a node is terminal or not @@ -1384,7 +1348,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::IsCompilable {this node} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::IsCompilable {this node} { # # PURPOSE: Determines if a node is compilable or not @@ -1412,8 +1375,6 @@ } - - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::DialogType {this path} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::DialogType {this path} { # # PURPOSE: Shows a dialog to ask for the type of a node @@ -1468,7 +1429,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::DialogTypeOK {this dialog} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::DialogTypeOK {this dialog} { # # PURPOSE: @@ -1484,7 +1444,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::DialogTypeDestroy {this dialog} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::DialogTypeDestroy {this dialog} { # # PURPOSE: Destroy get type dialog @@ -1500,8 +1459,6 @@ } - - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::DialogAttributes {this path title} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::DialogAttributes {this path title} { # # PURPOSE: Shows a dialog to ask for the attributes of a node @@ -1592,7 +1549,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::DialogAttributesOK {this dialog} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::DialogAttributesOK {this dialog} { # # PURPOSE: @@ -1608,7 +1564,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::DialogAttributesDestroy {this dialog} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::DialogAttributesDestroy {this dialog} { # # PURPOSE: Destroy get type dialog @@ -1624,15 +1579,10 @@ } - - - - #///////////////////////////////////////////////////////////////////////////// # OPTIONS #///////////////////////////////////////////////////////////////////////////// - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::CmdOptions {this} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::CmdOptions {this} { # # PURPOSE: Creates a dialog options for Tol Project Editors @@ -1686,7 +1636,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::OptionsCreateOthers {this w} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::OptionsCreateOthers {this w} { # # PURPOSE: Creates a frame with general options as number of files edited @@ -1725,7 +1674,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::OptionsGet {this} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::OptionsGet {this} { # # PURPOSE: Gets all options variables values from ini file and copies them @@ -1742,7 +1690,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::OptionsSet {this} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::OptionsSet {this} { # # PURPOSE: Copies all . @@ -1761,7 +1708,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::OptionsCheck {this} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::OptionsCheck {this} { # # PURPOSE: Checks for all widgets from dialog options that need to be checked @@ -1775,7 +1721,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::OptionsCheckEdited {this} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::OptionsCheckEdited {this} { # # PURPOSE: Checks if option chEdited is checked and enables/disabled other @@ -1794,7 +1739,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::OptionsDestroy {this dialog} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::OptionsDestroy {this dialog} { # # PURPOSE: Destroy options dialog @@ -1811,7 +1755,6 @@ } - #///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::OptionsApply {this} { +proc ::TolProject::OptionsApply {this} { # # PURPOSE: Applies options from the options dialog @@ -1824,7 +1767,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::OptionsOK {this dialog} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::OptionsOK {this dialog} { # # PURPOSE: Applies options and closes options dialog @@ -1839,6 +1781,4 @@ } - - #///////////////////////////////////////////////////////////////////////////// # INIFILE @@ -1846,5 +1786,5 @@ #///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::ReadIniSpecial {} { +proc ::TolProject::ReadIniSpecial {} { # # PURPOSE: Reads common Edit Table options from .ini file. This options are @@ -1865,7 +1805,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::WriteIni {this} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::WriteIni {this} { # # PURPOSE: Write common Tol Projects options to .ini file @@ -1889,9 +1828,8 @@ } - #@ Métodos (4) antes en ::BayesTreeview (bftrview.tcl) #///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::WtreeFromFile {tv path {proc ""}} { +proc ::TolProject::WtreeFromFile {tv path {proc ""}} { # # PURPOSE: Loads a wtree info data from a text especification file of a wtree. @@ -1900,5 +1838,5 @@ # tv -> wtree's path # path -> name of file -# proc -> procedure that converts type node to the path of the image of node +# proc -> procedure that converts type node to the path of the image of node # # RETURN: Returns 1 if wtree has been loaded correctly or 0 if not. @@ -1915,7 +1853,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::WtreeToFile {tv path} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::WtreeToFile {tv path} { # # PURPOSE: Saves a wtree info data into a text especification file of a wtree. @@ -1936,7 +1873,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::BNodeToFile {tv index fd} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::BNodeToFile {tv index fd} { # # PURPOSE: Saves a wtree's node info data into a text file. @@ -1971,7 +1907,6 @@ } - -#///////////////////////////////////////////////////////////////////////////// - proc ::TolProject::BNodeFromFile {tv index parent fd {imgFromType ""}} { +#///////////////////////////////////////////////////////////////////////////// +proc ::TolProject::BNodeFromFile {tv index parent fd {imgFromType ""}} { # # PURPOSE: Loads a wtree's node info data from a text file.