From: <ro...@us...> - 2011-12-02 22:20:05
|
Revision: 1911 http://nsclspectcl.svn.sourceforge.net/nsclspectcl/?rev=1911&view=rev Author: ron-fox Date: 2011-12-02 22:19:59 +0000 (Fri, 02 Dec 2011) Log Message: ----------- Commit progress on the parameter action class. Modified Paths: -------------- trunk/SpecTcl/treegui/parametersTabActions.tcl Modified: trunk/SpecTcl/treegui/parametersTabActions.tcl =================================================================== --- trunk/SpecTcl/treegui/parametersTabActions.tcl 2011-12-02 22:16:08 UTC (rev 1910) +++ trunk/SpecTcl/treegui/parametersTabActions.tcl 2011-12-02 22:19:59 UTC (rev 1911) @@ -73,6 +73,31 @@ } } + + + ## + # list the spectra that depend on a parameter. + # @param parameter - The parameter to check on. + # @return list + # @retval possibly empty list of dependent spectra. + # + private method listDependentSpectra {parameter} { + set result [list] + foreach spectrum [spectrum -list] { + set paramLists [lindex $spectrum 3] + foreach paramList $paramLists { + if {[lsearch -exact $paramList $parameter] != -1} { + lappend result [lindex $spectrum 1] + break + } + } + } + return $result + } + + #----------------------------------------------------------------------------- + # Dialogs: + ## # Method to prompt for spectrum changes: # @param spectra list of spectra to prompt for. @@ -92,25 +117,12 @@ } - ## - # list the spectra that depend on a parameter. - # @param parameter - The parameter to check on. - # @return list - # @retval possibly empty list of dependent spectra. + # Method to indicate there are no affected spectra: # - private method listDependentSpectra {parameter} { - set result [list] - foreach spectrum [spectrum -list] { - set paramLists [lindex $spectrum 3] - foreach paramList $paramLists { - if {[lsearch -exact $paramList $parameter] != -1} { - lappend result [lindex $spectrum 1] - break - } - } - } - return $result + private method notifyNoMatches {} { + tk_messageBox -type ok -icon info -message "No spectra use this parameter" -title {No Matches} + } #------------------------------------------------------------------------------- @@ -233,7 +245,6 @@ modifySpectra $spectra $path $bins $low $hi } } else { - return notifyNoMatches } } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |