1# tie_dsource.tcl -- 2# 3# Data source: Data source object. I.e. here we implement a proxy. 4# 5# Copyright (c) 2004 Andreas Kupries <andreas_kupries@users.sourceforge.net> 6# 7# See the file "license.terms" for information on usage and redistribution 8# of this file, and for a DISCLAIMER OF ALL WARRANTIES. 9# 10# RCS: @(#) $Id: tie_dsource.tcl,v 1.3 2005/09/28 04:51:24 andreas_kupries Exp $ 11 12# ### ### ### ######### ######### ######### 13## Requisites 14 15package require snit 16package require tie 17 18# ### ### ### ######### ######### ######### 19## Implementation 20 21snit::type ::tie::std::dsource { 22 23 # ### ### ### ######### ######### ######### 24 ## Specials 25 26 pragma -hastypemethods no 27 pragma -hasinfo no 28 29 # ### ### ### ######### ######### ######### 30 ## API : Construction & Destruction 31 32 constructor {args} { 33 set delegate $args 34 return 35 } 36 37 # ### ### ### ######### ######### ######### 38 ## API : Data source methods 39 40 delegate method * to delegate 41 42 # ### ### ### ######### ######### ######### 43 ## Internal : Instance data 44 45 variable delegate ; # The object to delegate to. 46 47 # ### ### ### ######### ######### ######### 48} 49 50# ### ### ### ######### ######### ######### 51## Ready to go 52 53::tie::register ::tie::std::dsource as dsource 54package provide tie::std::dsource 1.0 55