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

Diff of /tcldrop/modules/channels/channels.tcl

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

revision 1.10 by fireegl, Mon Dec 1 07:12:07 2003 UTC revision 1.11 by fireegl, Mon Dec 1 21:19:54 2003 UTC
# Line 200  proc ::tcldrop::channels::savechannels { Line 200  proc ::tcldrop::channels::savechannels {
200          close $fid          close $fid
201  }  }
202    
203    proc ::tcldrop::channels::SetUdefDefaults {{name {*}}} {
204            variable Channels
205            variable UdefDefaults
206            foreach c [array names Channels] {
207                    array set chaninfo $Channels($c)
208                    foreach n [array names UdefDefaults $name] {
209                            if {![info exists chaninfo($n)]} {
210                                    # It's not already set, so we set it to the default:
211                                    set chaninfo($n) $UdefDefaults($n)
212                                    set Channels($c) [array get chaninfo]
213                            }
214                    }
215                    array unset chaninfo
216            }
217    }
218    
219  # Loads the channel info from $chanfile:  # Loads the channel info from $chanfile:
220  proc ::tcldrop::channels::loadchannels {} {  proc ::tcldrop::channels::loadchannels {} {
221          if {[file exists $::chanfile]} {          if {[file exists $::chanfile]} {
# Line 211  proc ::tcldrop::channels::loadchannels { Line 227  proc ::tcldrop::channels::loadchannels {
227                  #        are no longer in use, and discard them.                  #        are no longer in use, and discard them.
228                  array set Channels [read $fid [file size $::chanfile]]                  array set Channels [read $fid [file size $::chanfile]]
229                  close $fid                  close $fid
                 SetUdefDefaults  
230          } else {          } else {
231                  putlog "no chanfile exists..yet."                  putlog "no chanfile exists..yet."
232          }          }
233            SetUdefDefaults
234  }  }
235    
236  # Returns 1 if a channel exists in the channel database, or 0 if it doesn't:  # Returns 1 if a channel exists in the channel database, or 0 if it doesn't:
# Line 256  proc ::tcldrop::channels::setudef {type Line 272  proc ::tcldrop::channels::setudef {type
272          SetUdefDefaults $name          SetUdefDefaults $name
273  }  }
274    
 proc ::tcldrop::channels::SetUdefDefaults {{name {*}}} {  
         variable Channels  
         variable UdefDefaults  
         foreach c [array names Channels] {  
                 array set chaninfo $Channels($c)  
                 foreach n [array names UdefDefaults $name] {  
                         if {![info exists chaninfo($n)]} {  
                                 # It's not already set, so we set it to the default:  
                                 set chaninfo($n) $UdefDefaults($n)  
                                 set Channels($c) [array get chaninfo]  
                         }  
                 }  
                 array unset chaninfo  
         }  
 }  
   
275  #  renudef <flag/int> <oldname> <newname>  #  renudef <flag/int> <oldname> <newname>
276  #    Description: renames a user defined channel flag or integer setting.  #    Description: renames a user defined channel flag or integer setting.
277  #    Returns: nothing  #    Returns: nothing
# Line 380  namespace eval ::tcldrop::channels { Line 380  namespace eval ::tcldrop::channels {
380    
381  # After Tcldrop loads, we (re)load the chanfile:  # After Tcldrop loads, we (re)load the chanfile:
382  bind evnt - loaded ::tcldrop::channels::Loaded -priority 0  bind evnt - loaded ::tcldrop::channels::Loaded -priority 0
383  proc ::tcldrop::channels::Loaded {type} { loadchannels }  proc ::tcldrop::channels::Loaded {type} {
384    putlog "Loading CHANELL!!!!"
385    loadchannels }
386    
387  bind evnt - save ::tcldrop::channels::SaveChannels -priority 0  bind evnt - save ::tcldrop::channels::SaveChannels -priority 0
388  proc ::tcldrop::channels::SaveChannels {type} { savechannels }  proc ::tcldrop::channels::SaveChannels {type} { savechannels }

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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