home *** CD-ROM | disk | FTP | other *** search
/ Freesoft 1999 February / Freesoft_1999-02_cd.bin / Recenz / Utility / DisplayDoctorLinux / scitech-display-doctor-1.0beta-3.i386.rpm / scitech-display-doctor-1.0beta.3.cpio.gz / scitech-display-doctor-1.0beta.3.cpio / usr / lib / nucleus / XF86Setup / card.tcl next >
Text File  |  1998-09-19  |  3KB  |  97 lines
  1. # $XConsortium: card.tcl /main/5 1996/10/28 04:55:06 kaleb $
  2. #
  3. #
  4. #
  5. #
  6. # $XFree86: xc/programs/Xserver/hw/xfree86/XF86Setup/card.tcl,v 3.12.2.4 1998/02/26 13:58:58 dawes Exp $
  7. #
  8. # Copyright 1996 by Joseph V. Moss <joe@XFree86.Org>
  9. #
  10. # See the file "LICENSE" for information regarding redistribution terms,
  11. # and for a DISCLAIMER OF ALL WARRANTIES.
  12. #
  13.  
  14. #
  15. # Card configuration routines
  16. #
  17.  
  18.  
  19. proc Card_create_widgets { win } {
  20.     global ServerList XF86Setup_library cardDevNum DeviceIDs
  21.     global cardDetail cardReadmeWasSeen UseConfigFile
  22.     global pc98_EGC messages cardServer
  23.     
  24.     set w [winpathprefix $win]
  25.     set cardDevNum 0
  26.     set cardServer SDD
  27.  
  28.  
  29.     frame $w.card -width 640 -height 420 \
  30.         -relief ridge -borderwidth 5
  31.     frame $w.card.top
  32.     pack  $w.card.top -side top -fill x -padx 5m
  33.  
  34.     label $w.card.vbeaf -text $messages(card.3)
  35.     pack $w.card.vbeaf
  36.  
  37.     set config [vbe_getconfiginfo]
  38.     label $w.card.manuf -text "Manufacturer: [lindex $config 0]"
  39.     label $w.card.chip  -text "Chipset:      [lindex $config 1]"
  40.     label $w.card.dac   -text "DAC Name:     [lindex $config 2]"
  41.     label $w.card.clock -text "Clock Chip:   [lindex $config 3]"
  42.     label $w.card.ver   -text "Version:      [lindex $config 4] Preview"
  43.     label $w.card.build -text "BuildDate:    [lindex $config 5]"
  44.  
  45.     label $w.card.logo-sci -image SciTech-logo
  46.     label $w.card.logo-sdd -image SDD-logo
  47.     pack $w.card.logo-sci
  48.     pack $w.card.manuf $w.card.chip $w.card.dac $w.card.clock $w.card.ver $w.card.build -anchor w -after $w.card.logo-sci
  49.  
  50. #    pack $w.card.logo-sdd
  51. }
  52.  
  53. proc Card_activate { win } {
  54.         set w [winpathprefix $win]
  55.         pack $w.card -side top -fill both -expand yes
  56. }
  57.  
  58. proc Card_deactivate { win } {
  59.         set w [winpathprefix $win]
  60.         pack forget $w.card
  61. }
  62.  
  63. proc Card_set_configvars { win } {
  64.     global DeviceIDs cardServer ServerList cardDevNum
  65.     global AccelServerList CardChipSets CardRamDacs CardClockChips
  66.     global cardDacSpeed cardDacProbe cardRamSize UseConfigFile
  67.     global messages
  68.  
  69.     set w [winpathprefix $win]
  70.     set devid [lindex $DeviceIDs $cardDevNum]
  71.     global Device_$devid
  72.  
  73.     set Device_${devid}(Server)    $cardServer
  74.     set Device_${devid}(Chipset)    [$w.card.chipset.cbox eget]
  75.     set Device_${devid}(Ramdac)    [$w.card.ramdac.cbox eget]
  76.     set Device_${devid}(ClockChip)    [$w.card.clockchip.cbox eget]
  77.     set Device_${devid}(ExtraLines)    [$w.card.options.text.text get 0.0 end]
  78.     set Device_${devid}(Options)    [split [$w.card.options.list.cbox eget] ,]
  79.     if {[llength $DeviceIDs] == 1} {
  80.         set Device_${devid}(BoardName)    [string range \
  81.             [$w.card.title cget -text] \
  82.             [string length $messages(card.28)] end]
  83.     }
  84.     if { $cardRamSize } {
  85.         set Device_${devid}(VideoRam)    $cardRamSize
  86.     } else {
  87.         set Device_${devid}(VideoRam)    ""
  88.     }
  89.     if { $UseConfigFile } {
  90.         if { $cardDacProbe } {
  91.             set Device_${devid}(DacSpeed)    ""
  92.         } else {
  93.             set Device_${devid}(DacSpeed)    [expr $cardDacSpeed*1000]
  94.         }
  95.     }
  96. }
  97.