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