Parent Directory | Revision Log | 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 {|}] { |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |