2 namespace eval help_wnd {
10 proc help_wnd::show_logo { imgpath } {
12 catch { destroy .fnLogo }
14 wm title .fnLogo "MARACAS - MAgnetic Resonance Angiography Computer ASsisted analysis"
17 pack .fnLogo.buttons -side bottom -anchor n -expand 0
20 pack .fnLogo.frLogo -side top -anchor n -expand 1 -fill both
22 button .fnLogo.buttons.ok -text Ok \
27 pack .fnLogo.buttons.ok
29 image create photo imaLogo -file "$imgpath/logocreatis.gif" -format "gif"
31 set cLogo .fnLogo.frLogo.cLogo
33 canvas $cLogo -width 598 -height 249 -relief sunken -borderwidth 2
36 $cLogo create image 0 0 -image imaLogo -anchor nw
40 proc help_wnd::show_about { imgpath } {
42 catch { destroy .fnLogo }
44 wm title .fnLogo "MARACAS - MAgnetic Resonance Angiography Computer ASsisted analysis"
47 pack .fnLogo.buttons -side bottom -anchor n -expand 0
50 pack .fnLogo.frLogo -side top -anchor n -expand 1 -fill both
52 button .fnLogo.buttons.ok -text Ok \
57 pack .fnLogo.buttons.ok
59 image create photo imaLogo -file "$imgpath/authors.gif" -format "gif"
61 set cLogo .fnLogo.frLogo.cLogo
63 canvas $cLogo -width 1000 -height 600 -relief sunken -borderwidth 2
66 $cLogo create image 0 0 -image imaLogo -anchor nw