Changeset 88e6fd7 in tol

Timestamp:

Nov 17, 2016, 12:52:10 PM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

0fce7d3

Parents:

ceea866

Message:

Se eliminan algunos espacios en blanco y saltos de línea.

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

File:

• tolbase/lib/toltk/tolprj.tcl (modified) (71 diffs)

tolbase/lib/toltk/tolprj.tcl

@@ -10 +10 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-  namespace eval TolProject {
+namespace eval TolProject {
 #
 # PURPOSE: The purpose of this namespace is organize code and functions and
@@ -72 +72 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::ComputeFullPath {this path} {
+proc ::TolProject::ComputeFullPath {this path} {
 #
 # PURPOSE: Prepends name of project base directory if necessary to a given 
@@ -94 +94 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::New {{path ""}} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::New {{path ""}} {
 #
 # PURPOSE: Creates a new project window and an instance of it. This also 
@@ -121 +120 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  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 +163 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  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 +195 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::clearEdited {} {
+proc ::TolProject::clearEdited {} {
 #
 # PURPOSE: Clears the list of last edited files
@@ -209 +206 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::OnDelete {this} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::OnDelete {this} {
 #
 # PURPOSE: Procedure to check things before destroying tol project window
@@ -227 +223 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::Destroy {this w} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::Destroy {this w} {
 #
 # PURPOSE: Deletes the instance of the tol project. Before this, writes the 
@@ -245 +240 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::InitState {this from} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::InitState {this from} {
 #
 # PURPOSE: Initializes some variables according to the state of the tol
@@ -278 +272 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::SetTraces {this} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::SetTraces {this} {
 #
 # PURPOSE: Sets some traces of variables to control changes in tol project
@@ -299 +292 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  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 +325 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  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 +345 @@
 }
 
-
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::TraceCompiling {this name1 name2 op} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::TraceCompiling {this name1 name2 op} {
 #
 # PURPOSE: Enables/disables compiling options each time var 'compiling'
@@ -380 +369 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::Create {path} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::Create {path} {
 #
 # PURPOSE: Creates a Tol Project instance. Creates and packs the tol projedt
@@ -505 +493 @@
 
 #///////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::OnControlKey {this keysym keycode} {
+proc ::TolProject::OnControlKey {this keysym keycode} {
 #
 # PURPOSE: Control the "Control + Key Press"
@@ -523 +511 @@
 }
 
-
 #/////////////////////////////////////////////////////////////////////////////
 # File management commands (new, open, save, save as...)
@@ -529 +516 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::CmdNew {this} {
+proc ::TolProject::CmdNew {this} {
 #
 # PURPOSE: Cleans project window to edit a new white project
@@ -552 +539 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::UpdateListEdited {path} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::UpdateListEdited {path} {
 #
 # PURPOSE: Updates list of last edited project files adding a new file path.
@@ -582 +568 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  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 +612 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-  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 +641 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::CheckAll {} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::CheckAll {} {
 #
 # PURPOSE: Checks for files opened if anyone has changed and asks for saving.
@@ -674 +658 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::CheckOpen {this {type "yesnocancel"}} {
+proc ::TolProject::CheckOpen {this {type "yesnocancel"}} {
 #
 # PURPOSE: Checks if a file has changed and asks for saving.
@@ -714 +698 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::CmdSave {this} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::CmdSave {this} {
 #
 # PURPOSE: Saves project info actually opened in the project editor. If it 
@@ -737 +720 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::CmdSaveAs {this {nf ""}} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::CmdSaveAs {this {nf ""}} {
 #
 # PURPOSE: Saves project actually opened in project editor asking for the
@@ -778 +760 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::FileSave { this path } {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::FileSave { this path } {
 #
 # PURPOSE: Saves project actually opened in project editor in a text file.
@@ -810 +791 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::AddEntry {this path} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::AddEntry {this path} {
 #
 # PURPOSE: Adds a special entry in file path for including proyect from TOL.
@@ -828 +808 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::NodeToFile {this index fd name} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::NodeToFile {this index fd name} {
 #
 # PURPOSE: 
@@ -863 +842 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::GetTreeview {this} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::GetTreeview {this} {
 #
 # PURPOSE: Returns treeview's path of a given instance
@@ -879 +857 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::GetMenu {this} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::GetMenu {this} {
 #
 # PURPOSE: Returns treeview's menu of a given instance
@@ -895 +872 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::SelectProc {this} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::SelectProc {this} {
 #
 #/////////////////////////////////////////////////////////////////////////////
@@ -908 +884 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  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 +960 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::OpenNodeIfTerminal {this} {
+proc ::TolProject::OpenNodeIfTerminal {this} {
 #
 # PURPOSE: 
@@ -1000 +975 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-  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 +998 @@
   }
 }
-
 
 #/////////////////////////////////////////////////////////////////////////////
@@ -1102 +1076 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::NodeAttributes {this node} {
+proc ::TolProject::NodeAttributes {this node} {
 #
 # PURPOSE: Shows the attributes of the selected node.
@@ -1136 +1110 @@
 }
 
-
-
 #/////////////////////////////////////////////////////////////////////////////
 proc ::TolProject::DeleteActiveNode {this args} {
@@ -1148 +1120 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::DeleteNode {this node} {
+proc ::TolProject::DeleteNode {this node} {
 #
 # PURPOSE: Deletes a node and all its childs from the project.
@@ -1171 +1143 @@
 }
 
-
 #/////////////////////////////////////////////////////////////////////////////
 proc ::TolProject::CompileActiveNode {this args} {
@@ -1182 +1153 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::CompileNode {this node } {
+proc ::TolProject::CompileNode {this node } {
 #
 # PURPOSE: Compiles a node and all its childs if parameter 'childs' is true.
@@ -1211 +1182 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  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 +1205 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::CompileUpToHereNode {this node ref} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::CompileUpToHereNode {this node ref} {
 #
 # PURPOSE: Compiles up to here
@@ -1260 +1229 @@
 }
 
-
 #/////////////////////////////////////////////////////////////////////////////
 proc ::TolProject::DecompileActiveNode {this args} {
@@ -1271 +1239 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::DecompileNode {this node} {
+proc ::TolProject::DecompileNode {this node} {
 #
 # PURPOSE: Decompiles a node and all its childs.
@@ -1295 +1263 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::ClearData {this} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::ClearData {this} {
 #
 # PURPOSE: Clears some variables of data array relatives to attributes of 
@@ -1314 +1281 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::GetDataFromNode {this index} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::GetDataFromNode {this index} {
 #
 # PURPOSE: Sets some variables of data array, getting its values from a given
@@ -1335 +1301 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::GetImageFromType {type} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::GetImageFromType {type} {
 #
 # PURPOSE: Returns the image's path of a node given its type
@@ -1358 +1323 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::IsTerminal {this node} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::IsTerminal {this node} {
 #
 # PURPOSE: Determines if a node is terminal or not
@@ -1384 +1348 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::IsCompilable {this node} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::IsCompilable {this node} {
 #
 # PURPOSE: Determines if a node is compilable or not
@@ -1412 +1375 @@
 }
 
-
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::DialogType {this path} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::DialogType {this path} {
 #
 # PURPOSE: Shows a dialog to ask for the type of a node
@@ -1468 +1429 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::DialogTypeOK {this dialog} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::DialogTypeOK {this dialog} {
 #
 # PURPOSE: 
@@ -1484 +1444 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::DialogTypeDestroy {this dialog} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::DialogTypeDestroy {this dialog} {
 #
 # PURPOSE: Destroy get type dialog
@@ -1500 +1459 @@
 }
 
-
-
-#/////////////////////////////////////////////////////////////////////////////
-  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 +1549 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::DialogAttributesOK {this dialog} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::DialogAttributesOK {this dialog} {
 #
 # PURPOSE:
@@ -1608 +1564 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::DialogAttributesDestroy {this dialog} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::DialogAttributesDestroy {this dialog} {
 #
 # PURPOSE: Destroy get type dialog
@@ -1624 +1579 @@
 }
 
-
-
-
-
 #/////////////////////////////////////////////////////////////////////////////
 # OPTIONS
 #/////////////////////////////////////////////////////////////////////////////
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::CmdOptions {this} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::CmdOptions {this} {
 #
 # PURPOSE: Creates a dialog options for Tol Project Editors
@@ -1686 +1636 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::OptionsCreateOthers {this w} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::OptionsCreateOthers {this w} {
 #
 # PURPOSE: Creates a frame with general options as number of files edited
@@ -1725 +1674 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::OptionsGet {this} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::OptionsGet {this} {
 #
 # PURPOSE: Gets all options variables values from ini file  and copies them
@@ -1742 +1690 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::OptionsSet {this} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::OptionsSet {this} {
 #
 # PURPOSE: Copies all . 
@@ -1761 +1708 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::OptionsCheck {this} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::OptionsCheck {this} {
 #
 # PURPOSE: Checks for all widgets from dialog options that need to be checked
@@ -1775 +1721 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::OptionsCheckEdited {this} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::OptionsCheckEdited {this} {
 #
 # PURPOSE: Checks if option chEdited is checked and enables/disabled other 
@@ -1794 +1739 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::OptionsDestroy {this dialog} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::OptionsDestroy {this dialog} {
 #
 # PURPOSE: Destroy options dialog
@@ -1811 +1755 @@
 }
 
-
 #/////////////////////////////////////////////////////////////////////////////  
-  proc ::TolProject::OptionsApply {this} {
+proc ::TolProject::OptionsApply {this} {
 #
 # PURPOSE: Applies options from the options dialog
@@ -1824 +1767 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::OptionsOK {this dialog} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::OptionsOK {this dialog} {
 #
 # PURPOSE: Applies options and closes options dialog
@@ -1839 +1781 @@
 }
 
-
-
 #/////////////////////////////////////////////////////////////////////////////
 # INIFILE
@@ -1846 +1786 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::ReadIniSpecial {} {
+proc ::TolProject::ReadIniSpecial {} {
 #
 # PURPOSE: Reads common Edit Table options from .ini file. This options are
@@ -1865 +1805 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  proc ::TolProject::WriteIni {this} {
+#/////////////////////////////////////////////////////////////////////////////
+proc ::TolProject::WriteIni {this} {
 #
 # PURPOSE: Write common Tol Projects options to .ini file
@@ -1889 +1828 @@
 }
 
-
 #@ 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 +1838 @@
 #   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 +1853 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  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 +1873 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  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 +1907 @@
 }
 
-
-#/////////////////////////////////////////////////////////////////////////////
-  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.