lib/maracasVisuLib/src/interface/tcl/windows/help_wnd.tcl

   1
   2 namespace eval help_wnd {
   3
   4     namespace export \
   5         show_logo    \
   6         show_about
   7
   8 }
   9
  10 proc help_wnd::show_logo { imgpath } {
  11
  12     catch { destroy .fnLogo }
  13     toplevel .fnLogo
  14     wm title .fnLogo "MARACAS - MAgnetic Resonance Angiography Computer ASsisted analysis"
  15
  16     frame .fnLogo.buttons
  17     pack .fnLogo.buttons -side bottom -anchor n -expand 0
  18
  19     frame .fnLogo.frLogo
  20     pack .fnLogo.frLogo -side top -anchor n -expand 1 -fill both
  21
  22     button .fnLogo.buttons.ok -text Ok \
  23         -command {\
  24                 destroy .fnLogo
  25             }
  26
  27     pack .fnLogo.buttons.ok
  28
  29     image create photo imaLogo -file "$imgpath/logocreatis.gif" -format "gif"
  30
  31     set cLogo .fnLogo.frLogo.cLogo
  32
  33     canvas $cLogo -width 598 -height 249 -relief sunken -borderwidth 2
  34     pack $cLogo
  35
  36     $cLogo create image 0 0 -image imaLogo -anchor nw
  37
  38 }
  39
  40 proc help_wnd::show_about { imgpath } {
  41
  42     catch { destroy .fnLogo }
  43     toplevel .fnLogo
  44     wm title .fnLogo "MARACAS - MAgnetic Resonance Angiography Computer ASsisted analysis"
  45
  46     frame .fnLogo.buttons
  47     pack .fnLogo.buttons -side bottom -anchor n -expand 0
  48
  49     frame .fnLogo.frLogo
  50     pack .fnLogo.frLogo -side top -anchor n -expand 1 -fill both
  51
  52     button .fnLogo.buttons.ok -text Ok \
  53         -command {\
  54                     destroy .fnLogo
  55         }
  56
  57     pack .fnLogo.buttons.ok
  58
  59     image create photo imaLogo -file "$imgpath/authors.gif" -format "gif"
  60
  61     set cLogo .fnLogo.frLogo.cLogo
  62
  63     canvas $cLogo -width 1000 -height 600 -relief sunken -borderwidth 2
  64     pack $cLogo
  65
  66     $cLogo create image 0 0 -image imaLogo -anchor nw
  67
  68 }