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 ## YadaAbout - display the about screen. 00013 ## 00014 ## \author Michael Daum 00015 ## 00016 ## $Id: YadaAbout.tcl,v 1.8 2004/02/25 14:42:09 micha Exp $ 00017 ## ---------------------------------------------------------------------------- 00018 class YadaAbout { 00019 inherit iwidgets::Dialog 00020 00021 constructor {args} {}; ## \type TclList 00022 }; 00023 00024 ## ---------------------------------------------------------------------------- 00025 ## constructor 00026 ## ---------------------------------------------------------------------------- 00027 body YadaAbout::constructor {args} { 00028 configure \ 00029 -modality application \ 00030 -title "Yada - About" \ 00031 -master . 00032 00033 hide Apply 00034 hide Cancel 00035 hide Help 00036 00037 set logo [YadaImages::get logo] 00038 set height [image height $logo] 00039 set width [image width $logo] 00040 set childsite [childsite] 00041 00042 itk_component add f1 { 00043 frame $childsite.f1 00044 } 00045 00046 itk_component add canvas { 00047 canvas $childsite.canvas -height $height -width $width 00048 } 00049 00050 itk_component add f2 { 00051 frame $childsite.f2 00052 } 00053 00054 $itk_component(canvas) create image 0 0 -image $logo -anchor nw -tag logo 00055 pack $itk_component(f1) \ 00056 $itk_component(canvas) \ 00057 $itk_component(f2) -side top -anchor center -fill y -expand 1 00058 00059 eval itk_initialize $args 00060 }