1 # application-mat.tcl --
2 #
3 # FIXME: This file needs a description here.
4 #
5 # Copyright (c) 1998-2002 The Regents of the University of California.
6 # All rights reserved.
7 #
8 # Redistribution and use in source and binary forms, with or without
9 # modification, are permitted provided that the following conditions are met:
10 #
11 # A. Redistributions of source code must retain the above copyright notice,
12 # this list of conditions and the following disclaimer.
13 # B. Redistributions in binary form must reproduce the above copyright notice,
14 # this list of conditions and the following disclaimer in the documentation
15 # and/or other materials provided with the distribution.
16 # C. Neither the names of the copyright holders nor the names of its
17 # contributors may be used to endorse or promote products derived from this
18 # software without specific prior written permission.
19 #
20 # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
21 # AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23 # ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR
24 # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
26 # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
27 # CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
28 # OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
29 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30
31 import Application MatUI
32
33 Class MatApplication -superclass Application
34
35 MatApplication instproc init { argv } {
36 $self next mat
37
38 set o [$self options]
39 $self init_args $o
40 $self init_resources $o
41 $o parse_args $argv
42
43 $self init_ui
44 }
45
46 MatApplication instproc init_args o {
47 $self next $o
48
49 $o register_option -dir slideDir
50 $o register_option -out slideOutputFile
51 $o register_option -width slideWidth
52 $o register_option -height slideHeight
53 $o register_option -prefix urlPrefix
54 $o register_option -module module required
55 $o register_option -archive archive
56 $o register_option -ltsend ltsEnd
57 }
58
59 MatApplication instproc init_resources o {
60 $self next $o
61
62 $o add_default slideDir .
63 $o add_default slideOutputFile slides.mat
64 $o add_default ltsEnd 10000
65 $o add_default archive archive
66 $o add_default slideWidth 640
67 $o add_default slideHeight 480
68 $o add_default urlPrefix file:
69 $o add_default audioSpec 224.2.3.4/9822
70 $o add_default videoSpec 224.2.3.5/9832
71 $o add_default mbSpec 224.2.3.6/9842
72 $o add_default loopback 1
73 }
74
75 MatApplication instproc init_ui {} {
76 $self instvar ui_
77 set ui_ [new MatUI]
78 }
79
80
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.