Ignore:
Timestamp:
Sep 12, 2002, 11:42:42 AM (16 years ago)
Author:
landonf
Message:

Run custom option procedure only once in ${option}-delete

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r616 r618  
    6363                \if \{!\[info exists user_options(${option})\]\} \{ \n\
    6464                    foreach val \$args \{ \n\
    65                                 ldelete ${option} \$val \n\
    66                                 if \{\[info commands options::${option}\] != \"\"\} \{ \n\
    67                                     options::${option} ${option} \n\
    68                                 \} \n\
    69                         \} \n\
     65                        ldelete ${option} \$val \n\
     66                    \} \n\
     67                    if \{\[info commands options::${option}\] != \"\"\} \{ \n\
     68                        options::${option} ${option} \n\
     69                    \} \n\
    7070                \} \n\
    7171        \}"
Note: See TracChangeset for help on using the changeset viewer.