Main Page | Modules | Class Hierarchy | Alphabetical List | Class List | File List | Class Members | File Members | Related Pages

YadaStartUp.tcl

00001 # Copyright (C) 1997-2004 The CDG Team <cdg@nats.informatik.uni-hamburg.de> 00002 # 00003 # This file is free software; as a special exception the author gives 00004 # unlimited permission to copy and/or distribute it, with or without 00005 # modifications, as long as this notice is preserved. 00006 # 00007 # This program is distributed in the hope that it will be useful, but 00008 # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the 00009 # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 00010 00011 ## ---------------------------------------------------------------------------- 00012 ## YadaStartUp - the YADA splash screen. 00013 ## \ingroup YadaDocuments 00014 ## 00015 ## \author Michael Daum 00016 ## 00017 ## $Id: YadaStartUp.tcl,v 1.10 2004/02/25 14:42:08 micha Exp $ 00018 ## ---------------------------------------------------------------------------- 00019 class YadaStartUp { 00020 inherit YadaDocument 00021 00022 constructor {args} {}; ## \type TclList 00023 }; 00024 00025 ## ---------------------------------------------------------------------------- 00026 ## constructor 00027 ## ---------------------------------------------------------------------------- 00028 body YadaStartUp::constructor {args} { 00029 global env 00030 00031 set logo [YadaImages::get logo] 00032 set height [image height $logo] 00033 set width [image width $logo] 00034 00035 itk_component add f1 { 00036 frame $itk_component(childsite).f1 00037 } 00038 00039 itk_component add canvas { 00040 canvas $itk_component(childsite).canvas \ 00041 -height $height -width $width \ 00042 } 00043 00044 itk_component add f2 { 00045 frame $itk_component(childsite).f2 00046 } 00047 00048 $itk_component(canvas) create image 0 0 -image $logo -anchor nw -tag logo 00049 pack $itk_component(f1) \ 00050 $itk_component(canvas) \ 00051 $itk_component(f2) -side top -anchor center -fill y -expand 1 00052 00053 eval itk_initialize $args 00054 .main registerDocument $this 00055 }

YADA 2.0-alpha (20 Oct 2004)