home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / Texte / scribus / scribus-1.3.3.9-win32-install.exe / tcl / tix8.1 / DtlList.tcl < prev    next >
Text File  |  2001-11-03  |  1KB  |  50 lines
  1. # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
  2. #
  3. #    $Id: DtlList.tcl,v 1.1.1.1.2.1 2001/11/03 07:52:15 idiscovery Exp $
  4. #
  5. # DtlList.tcl --
  6. #
  7. #    This file implements DetailList widgets
  8. #
  9. # Copyright (c) 1993-1999 Ioi Kim Lam.
  10. # Copyright (c) 2000-2001 Tix Project Group.
  11. #
  12. # See the file "license.terms" for information on usage and redistribution
  13. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  14. #
  15.  
  16. tixWidgetClass tixDetailList {
  17.     -classname TixDetailList
  18.     -superclass tixScrolledGrid
  19.     -method {
  20.     }
  21.     -flag {
  22.     -hdrbackground
  23.     }
  24.     -configspec {
  25.     {-hdrbackground hdrBackground HdrBackground #606060}
  26.     }
  27.     -alias {
  28.     {-hdrbg -hdrbackground}
  29.     }
  30.     -default {
  31.     {*grid.topMargin        1}
  32.     {*grid.leftMargin        0}
  33.     }
  34. }
  35.  
  36.  
  37. proc tixDetailList:FormatCmd {w area x1 y1 x2 y2} {
  38.     upvar #0 $w data
  39.  
  40.     case $area {
  41.     main {
  42.     }
  43.     default {
  44.         $data(w:grid) format border $x1 $y1 $x2 $y2 \
  45.         -filled 1 \
  46.         -relief raised -bd 1 -bg $data(-hdrbackground)
  47.     }
  48.     }
  49. }
  50.