/[tcldrop]/tcldrop/modules/core.tcl
ViewVC logotype

Diff of /tcldrop/modules/core.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by fireegl, Tue Dec 2 00:57:51 2003 UTC revision 1.30 by fireegl, Tue Dec 2 06:54:32 2003 UTC
# Line 232  proc bgerror {args} { Line 232  proc bgerror {args} {
232  # Returns: 1  # Returns: 1
233  proc ::tcldrop::CheckFlags {flags1 flags2} {  proc ::tcldrop::CheckFlags {flags1 flags2} {
234          switch -- $flags1 {          switch -- $flags1 {
235                  {+} - {*} - {} - {+|+} - {*|*} { return 1 }                  {+} - {*} - {} - {+|+} - {*|*} - {-} { return 1 }
236                  {default} {                  {default} {
237                          set found 0                          set found 0
238                          foreach o [split $flags1 {|}] {                          foreach o [split $flags1 {|}] {

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26