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 / scripts / mseconfig.tcl
Text File  |  1998-09-19  |  2KB  |  105 lines
  1. # $XConsortium: mseconfig.tcl /main/1 1996/09/21 14:14:40 kaleb $
  2. #
  3. #
  4. #
  5. #
  6. # $XFree86: xc/programs/Xserver/hw/xfree86/XF86Setup/scripts/mseconfig.tcl,v 3.3.2.4 1998/02/26 13:59:01 dawes Exp $
  7.  
  8. set clicks1 [clock clicks]
  9.  
  10. array set Pointer {
  11.     Device        ""
  12.     Protocol    ""
  13.     BaudRate    ""
  14.     SampleRate    ""
  15.     Resolution    ""
  16.     Buttons        ""
  17.     Emulate3Buttons    ""
  18.     Emulate3Timeout    ""
  19.     ChordMiddle    ""
  20.     ClearDTR    ""
  21.     ClearRTS    ""
  22. }
  23.  
  24. set ConfigFile [xf86config_findfile]
  25. if ![getuid] {
  26.     if {![catch {xf86config_readfile $Xwinhome files server \
  27.         keyboard mouse monitor device screen} tmp]} {
  28.     if [info exists mouse] {
  29.         set Pointer(Device) $mouse(Device)
  30.         if [string length $mouse(Device)] {
  31.             if {[file exists $mouse(Device)]
  32.                 && [file type $mouse(Device)] == "link" } {
  33.                 set Pointer(RealDev) [readlink $mouse(Device)]
  34.                 set Pointer(OldLink) $mouse(Device)
  35.             } else {
  36.             set Pointer(RealDev) $mouse(Device)
  37.             }
  38.         }
  39.     }
  40.     foreach var {files server keyboard mouse} {
  41.         catch {unset $var}
  42.     }
  43.     foreach var [info vars monitor_*] {
  44.         catch {unset $var}
  45.     }
  46.     foreach var [info vars device_*] {
  47.         catch {unset $var}
  48.     }
  49.     foreach var [info vars screen_*] {
  50.         catch {unset $var}
  51.     }
  52.     }
  53.     set clicks2 [clock clicks]
  54. }
  55.  
  56. if { [info exists env(TMPDIR)] } {
  57.     set XF86SetupDir $env(TMPDIR)/.XF86Setup[pid]
  58. } else {
  59.     set XF86SetupDir /tmp/.XF86Setup[pid]
  60. }
  61.  
  62.  
  63. if ![mkdir $XF86SetupDir 0700] {
  64.     mesg "Unable to make directory $XF86SetupDir\n\
  65.          for storing temporary files" okay
  66.     exit 1
  67. }
  68.  
  69. source $XF86Setup_library/texts/local_text.tcl
  70. source $XF86Setup_library/setuplib.tcl
  71. if ![getuid] {
  72.     set rand1 [random 1073741823]
  73.     random seed [expr $clicks2-$clicks1]
  74.     set rand2 [random 1073741823]
  75.  
  76.     set TmpDir $XF86SetupDir/[format "%x-%x" $rand1 $rand2]
  77.     if ![mkdir $TmpDir 0700] {
  78.         mesg "Unable to make directory $TmpDir\n\
  79.              for storing temporary files" okay
  80.         exit 1
  81.     }
  82. } else {
  83.     set TmpDir $XF86SetupDir
  84. }
  85.  
  86. check_tmpdirs
  87.  
  88. if ![getuid] {
  89.     set Pointer(Device) $TmpDir/mouse
  90.     if [info exists Pointer(RealDev)] {
  91.         link $Pointer(RealDev) $Pointer(Device)
  92.     }
  93. }
  94.  
  95. set_resource_defaults
  96. source $XF86Setup_library/mseproto.tcl
  97. source $XF86Setup_library/mouse.tcl
  98. Mouse_create_widgets .
  99. Mouse_activate .
  100. button .mouse.exit -text $messages(mouse.17) \
  101.     -command "exit 0" -underline $messages(mouse.18)
  102. pack .mouse.exit -side bottom -expand yes -fill x
  103. bind . <Alt-x>        "exit 0"
  104. bind . <Control-x>    "exit 0"
  105.