home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / showversio.tcl < prev    next >
Encoding:
Text File  |  1996-11-28  |  971 b   |  38 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1994
  4. #
  5. #      File:           @(#)showversio.tcl    /main/hindenburg/4
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)showversio.tcl    /main/hindenburg/4   28 Nov 1996 Copyright 1994 Westmount Technology
  10.  
  11. require procs.tcl
  12.  
  13. proc showVersionDialog {{title "About"}} {
  14.     set dlg .main.versionDialog
  15.     if {![isCommand $dlg]} {
  16.         TemplateDialog new $dlg \
  17.             -modal $win95 \
  18.             -title $title
  19.         $dlg delCancelButton
  20.         $dlg delHelpButton
  21.         interface DlgRow $dlg.r {
  22.             Image wmt {
  23.                 pixmap wmt
  24.             }
  25.             DlgColumn c {
  26.                 Label prodTool {
  27.                     text "ObjectTeam"
  28.                 }
  29.                 Label version {}
  30.                 Label date {}
  31.             }
  32.         }
  33.         $dlg.r.c.version text [versionInfo versionLabel]
  34.         $dlg.r.c.date text [versionInfo dateLabel]
  35.     }
  36.     $dlg popUp
  37. }
  38.