home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / HTML and CSS Modes / hctsmsl.tcl < prev    next >
Encoding:
Text File  |  1997-11-02  |  34.7 KB  |  1,096 lines  |  [TEXT/ALFA]
  1. ## -*-Tcl-*-
  2.  # ###################################################################
  3.  #  HTML and CSS mode - tools for editing Cascading Style Sheets
  4.  # 
  5.  #  FILE: "hctsmsl.tcl"
  6.  #                                    created: 97-03-08 19.32.58 
  7.  #                                last update: 97-11-02 13.59.02 
  8.  #  Author: Johan Linde
  9.  #  E-mail: <jl@theophys.kth.se>
  10.  #     www: <http://bach.theophys.kth.se/~jl/Alpha.html>
  11.  #  
  12.  # Version: 2.0.3 and 1.0.3
  13.  # 
  14.  # Copyright 1996, 1997 by Johan Linde
  15.  #  
  16.  # This software may be used freely, and distributed freely, as long as the 
  17.  # receiver is not obligated in any way by receiving it.
  18.  #  
  19.  # If you make improvements to this file, please share them!
  20.  # 
  21.  # ###################################################################
  22.  ##
  23.  
  24. proc hctsmsl.tcl {} {}
  25.  
  26. # Units allowed for length.
  27. set cssUnits {em ex px pt cm mm in pc}
  28.  
  29. # These properties can take a number as value.
  30. set cssNumbers {line-height}
  31.  
  32. # These properties can take length values.
  33. set cssLengths {font-size line-height background-position word-spacing letter-spacing
  34. text-indent margin-top margin-right margin-bottom margin-left padding-top padding-right
  35. padding-bottom padding-left border-top-width border-right-width border-bottom-width
  36. border-left-width border-width width height}
  37.  
  38. # These properties can take percentage values.
  39. set cssPercentage {font-size line-height background-position vertical-align text-indent
  40. margin-top margin-right margin-bottom margin-left padding-top padding-right
  41. padding-bottom padding-left width}
  42.  
  43. # These properties can take URL values.
  44. set cssURLs {background-image list-style-image @import}
  45.  
  46. # These properties can take color values.
  47. set cssColors {color background-color border-color}
  48.  
  49. # These properties can take any value.
  50. set cssAny {font-family}
  51.  
  52. # Groups of properties for different dialogs.
  53. set cssGroup(font) {font-style font-variant font-weight font-size line-height font-family}
  54. set cssGroup(background) {background-color background-image background-repeat
  55. background-attachment background-position}
  56. set cssGroup(text) {word-spacing letter-spacing text-decoration vertical-align
  57. text-transform text-align text-indent}
  58. set cssGroup(margin) {margin-top margin-right margin-bottom margin-left}
  59. set cssGroup(padding) {padding-top padding-right padding-bottom padding-left}
  60. set cssGroup(border) {border-width border-style border-color}
  61. set cssGroup(border-width) {border-top-width border-right-width border-bottom-width
  62. border-left-width}
  63. set cssGroup(size) {width height}
  64. set cssGroup(Display) {display white-space}
  65. set cssGroup(list-style) {list-style-type list-style-image list-style-position}
  66.  
  67. # These of the above groups are shorthands.
  68. set cssShorthands {font background margin padding border border-width list-style}
  69.  
  70. # Possible values of the css properties.
  71. set cssProperty(font-family) {serif sans-serif cursive fantasy monospace}
  72. set cssProperty(font-style) {italic oblique normal}
  73. set cssProperty(font-variant) {small-caps normal}
  74. set cssProperty(font-weight) {bold bolder lighter 100 200 300 400 500 600 700 800 900 normal}
  75. set cssProperty(font-size) {larger smaller xx-small x-small small medium large x-large xx-large}
  76. set cssProperty(line-height) {normal}
  77. set cssProperty(background-color) {transparent}
  78. set cssProperty(background-image) {none}
  79. set cssProperty(background-repeat) {repeat-x repeat-y no-repeat repeat}
  80. set cssProperty(background-attachment) {fixed scroll}
  81. set cssProperty(background-position) {{top center bottom} {left center right}}
  82. set cssProperty(word-spacing) {normal}
  83. set cssProperty(letter-spacing) {normal}
  84. set cssProperty(text-decoration) {none {underline overline line-through blink}}
  85. set cssProperty(vertical-align) {sub super top text-top middle bottom text-bottom baseline}
  86. set cssProperty(text-transform) {capitalize uppercase lowercase none}
  87. set cssProperty(text-align) {left right center justify}
  88. set cssProperty(margin-top) {auto}
  89. set cssProperty(margin-right) {auto}
  90. set cssProperty(margin-bottom) {auto}
  91. set cssProperty(margin-left) {auto}
  92. set cssProperty(border-width) {thin medium thick}
  93. set cssProperty(border-top-width) {thin medium thick}
  94. set cssProperty(border-right-width) {thin medium thick}
  95. set cssProperty(border-bottom-width) {thin medium thick}
  96. set cssProperty(border-left-width) {thin medium thick}
  97. set cssProperty(border-style) {dotted dashed solid double groove ridge inset outset none}
  98. set cssProperty(width) {auto}
  99. set cssProperty(height) {auto}
  100. set cssProperty(float) {left right none}
  101. set cssProperty(clear) {left right both none}
  102. set cssProperty(display) {block inline list-item none}
  103. set cssProperty(white-space) {pre nowrap normal}
  104. set cssProperty(list-style-type) {disc circle square decimal lower-roman upper-roman lower-alpha
  105. upper-alpha none}
  106. set cssProperty(list-style-image) {none}
  107. set cssProperty(list-style-position) {inside outside}
  108.  
  109.  
  110. proc cssGetHtmlWords {} {
  111.     global cssHtmlWords htmlElemAttrOptional1 htmlElemAttrOptional3 HTMLmodeVars htmlModeIsLoaded
  112.     if {![info exists htmlModeIsLoaded]} {
  113.         return $cssHtmlWords
  114.     } else {
  115.         catch {unset cssHtmlWords}
  116.         return [array names htmlElemAttrOptional[set HTMLmodeVars(htmlPackageToUse)]]
  117.     }    
  118. }
  119.  
  120.  
  121. proc cssWordComplete {} {
  122.     bind::Completion
  123. }
  124.  
  125. # Word completion
  126. proc CSS::Completion::word {dummy} {
  127.     global cssLengths cssPercentage cssColors cssURLs cssAny cssGroup cssProperty
  128.     global HTMLmodeVars
  129.     
  130.     set allCss [lunique [concat $cssLengths $cssPercentage $cssColors $cssURLs $cssAny \
  131.     [array names cssGroup] [array names cssProperty] border-left border-top border-bottom border-right]]
  132.     foreach p {size text Display} {
  133.         set allCss [lreplace $allCss [set w [lsearch $allCss $p]] $w]
  134.     }
  135.     set matches ""
  136.     # Between {}?
  137.     set thepos [getPos]
  138.     if {$thepos == [maxPos]} {set thepos [expr [maxPos] - 1]}
  139.     if {[catch {matchIt "\}" $thepos} bpos]} {
  140.         set allHtmlWords [cssGetHtmlWords]
  141.         set pos [getPos]
  142.         backwardWord
  143.         set word [string toupper [getText [getPos] $pos]]
  144.         foreach p $allHtmlWords {
  145.             if {[string match $word* $p]} {lappend matches $p}
  146.         }
  147.         if {![llength $matches]} {
  148.             select [getPos] $pos
  149.         } else {
  150.             replaceText [getPos] $pos [largestPrefix $matches]
  151.         }
  152.         return 1
  153.     }
  154.     # Get current word
  155.     if {[catch {search -s -f 0 -m 0 -r 1 {[\{;: \t\r]} [expr [getPos] - 1]} wpos]} {set wpos "0 0"}
  156.     set wpos [lindex $wpos 1]
  157.     set word [getText $wpos [getPos]]
  158.     # Before or after :?
  159.     if {[catch {search -s -f 0 -m 0 -r 0 {;} [expr [getPos] - 1]} spos] || [lindex $spos 0] < $bpos} {set spos 0}
  160.     set spos [lindex $spos 0]
  161.     if {[catch {search -s -f 0 -m 0 -r 0 {:} [getPos]} cpos] || [lindex $cpos 0] < $bpos} {set cpos 0}
  162.     set cpos [lindex $cpos 0]
  163.     if {$spos < $cpos} {
  164.         # After colon
  165.         if {[catch {search -s -f 0 -m 0 -r 1 {[; \t\r]} $cpos} w2pos]} {set w2pos 0}
  166.         set pword [getText [lindex $w2pos 1] $cpos]
  167.         if {[lsearch -exact $cssURLs $pword] >= 0 || [string match "url(*" $word]} {
  168.             set matchWords $HTMLmodeVars(URLs)
  169.             incr wpos 4
  170.             set word [string trimleft [string range $word 4 end] \"]
  171.             set isURL 1
  172.         } else {
  173.             set matchWords [eval concat $cssProperty($pword)]
  174.             set isURL 0
  175.         }
  176.         foreach p $matchWords {
  177.             if {[string match $word* $p]} {lappend matches $p}
  178.         }
  179.         if {![llength $matches]} {
  180.             select $wpos [getPos]
  181.         } else {
  182.             replaceText $wpos [getPos] [lindex {"" "\""} $isURL][largestPrefix $matches]
  183.         }
  184.     } else {
  185.         # Before colon
  186.         foreach p $allCss {
  187.             if {[string match $word* $p]} {lappend matches $p}
  188.         }
  189.         if {![llength $matches]} {
  190.             select $wpos [getPos]
  191.         } else {
  192.             set word [largestPrefix $matches]
  193.             if {[llength $matches] == 1} {
  194.                 append word ": "
  195.                 set backTwo 0
  196.                 if {[lsearch -exact $cssURLs [string trimright $word ": "]] >= 0} {
  197.                     append word "url(\"\")"
  198.                     set backTwo 1
  199.                 }
  200.             }
  201.             replaceText $wpos [getPos] $word
  202.             if {$backTwo} {goto [expr [getPos] - 2]}
  203.         }
  204.     }
  205.     return 1
  206. }
  207.  
  208. proc cssFindWhereToInsert {group pos} {
  209.     if {$pos > 0} {incr pos -1}
  210.     if {[catch {search -s -f 0 -m 0 -r 1 "\{" $pos} lbrace]} {set lbrace 0; set noleft 1}
  211.     set lbrace [expr [lindex $lbrace 0] + 1]
  212.     if {[catch {search -s -f 0 -m 0 -r 1 "\}" $pos} rbrace]} {set rbrace 0}
  213.     set rbrace [expr [lindex $rbrace 0] + 1]
  214.     if {([info exists noleft] || $rbrace > $lbrace) && $group != "@import"} {alertnote "Incorrect position to insert properties."; error "Incorrect position"}
  215.     if {[catch {search -s -f 0 -m 0 -r 1 "\;" $pos} semi] || [lindex $semi 0] < $lbrace} {set semi 0}
  216.     set semi [expr [lindex $semi 0] + 1]
  217.     if {$group != "@import" && ($lbrace > 1 || $semi > 1)} {set go [expr $lbrace > $semi ? $lbrace : $semi]}
  218.     if {[cssIsInComment $go]} {
  219.         set go [lindex [search -s -f 0 -m 0 -r 0 "/*" $go] 0]
  220.         cssFindWhereToInsert $group $go
  221.     } else {
  222.         goto $go
  223.     }
  224. }
  225.  
  226. # CSS properties dialog.
  227. proc cssDialog {group} {
  228.     global cssGroup cssProperty cssAny cssURLs cssLengths cssPercentage cssColors cssUnits
  229.     global htmluserColors htmlColorName basicColors HTMLmodeVars cssShorthands mode cssNumbers
  230.     
  231.     if {$mode == "HTML" && ![htmlIsInContainer STYLE]} {
  232.         beep
  233.         message "Current position is not inside STYLE tags."
  234.         return
  235.     }
  236.     # Find where to insert text.
  237.     cssFindWhereToInsert $group [getPos]
  238.  
  239.     # define colors
  240.     set htmlColors [lsort [array names htmluserColors]]
  241.      append htmlColors " - " $basicColors
  242.     
  243.     # urls
  244.     set URLs $HTMLmodeVars(URLs)
  245.  
  246.     # these fit in half the size of the dialog window
  247.     set halfIsEnough {font-style font-variant font-weight text-transform text-align white-space}
  248.     
  249.     # These needs more space
  250.     set dw 0
  251.     if {$group == "background" || $group == "border-width" || $group == "list-style"} {set dw 40}
  252.     # obtain all props for this group
  253.     if {[info exists cssGroup($group)]} {
  254.         set props $cssGroup($group)
  255.     } else {
  256.         set props $group
  257.     }
  258.     
  259.     # build the dialog
  260.     set invalidInput 1
  261.     set short 1
  262.     set allvalues 0
  263.     set val [cssGetProperties $group]
  264.     if {[info exists errorText] && ![htmlErrorWindow "$group not well-defined" $errorText 1]} {return}
  265.     while {$invalidInput} {
  266.         while {1} {
  267.             if {$group == "@import"} {
  268.                 set htxt "Import Style Sheet"
  269.             } else {
  270.                 set htxt "[string toupper [string index $group 0]][string range $group 1 end] properties"
  271.             }
  272.             set box "-t [list $htxt] 120 10 450 25"
  273.             set fileIndex ""
  274.             set colorIndex ""
  275.             set proptypes ""
  276.             set hpos 35
  277.             set ind 2
  278.             set wpos 10
  279.             foreach p $props {
  280.                 if {[lsearch -exact $halfIsEnough $p] < 0 || $wpos > 235} {
  281.                     if {$wpos > 10} {set wpos 10; incr hpos 30}
  282.                 }
  283.                 if {$p != "@import"} {lappend box -t ${p}: $wpos $hpos [expr $wpos + 110 + $dw] [expr $hpos + 15]}
  284.                 incr wpos 120
  285.                 incr wpos $dw
  286.                 if {[info exists cssProperty($p)]} {
  287.                     # A list of choices
  288.                     set pr $cssProperty($p)
  289.                     # special case with background-position and text-decoration
  290.                     if {$p == "background-position" || $p == "text-decoration"} {
  291.                         set pr1 [lindex $pr 0]
  292.                         if {[llength $pr1] > 1} {
  293.                             lappend box -m [concat [list [lindex $val $ind] "No value"] $pr1] \
  294.                             $wpos $hpos [expr $wpos + 95] [expr $hpos + 15]
  295.                         } else {
  296.                             lappend box -c $pr1 [lindex $val $ind] $wpos $hpos [expr $wpos + 95] [expr $hpos + 15]
  297.                         }
  298.                         incr wpos 105
  299.                         incr ind
  300.                         set pr [lindex $pr 1]
  301.                         lappend proptypes $p choices
  302.                     }
  303.                     set n 1
  304.                     # four times for text-decoration and border-style
  305.                     if {$p == "text-decoration" || $group == "border-style"} {set n 4}
  306.                     for {set i 0} {$i < $n} {incr i} {
  307.                         if {$wpos > 355 + $dw} {
  308.                             set wpos [expr 130 + $dw]
  309.                             incr hpos 30
  310.                         }
  311.                         if {[llength $pr] > 1} {
  312.                             lappend box -m [concat [list [lindex $val $ind] "No value"] $pr] \
  313.                             $wpos $hpos [expr $wpos + 95] [expr $hpos + 15]
  314.                         } else {
  315.                             lappend box -c $pr [lindex $val $ind] $wpos $hpos [expr $wpos + 95] [expr $hpos + 15]
  316.                         }
  317.                         incr wpos 105
  318.                         incr ind
  319.                         lappend proptypes $p choices
  320.                     }
  321.                 }
  322.                 set l [lsearch -exact $cssLengths $p]
  323.                 set pr [lsearch -exact $cssPercentage $p]
  324.                 if { $l >= 0 || $pr  >= 0 } {
  325.                     # Length or percentage
  326.                     set n 1
  327.                     # twice for background-position
  328.                     if {$p == "background-position"} {set n 2}
  329.                     for {set i 0} {$i < $n} {incr i} {
  330.                         if {$wpos > 335 + $dw} {
  331.                             set wpos [expr 130 + $dw]
  332.                             incr hpos 30
  333.                         }
  334.                         set units ""
  335.                         if {$l >= 0} {set units $cssUnits}
  336.                         if {$pr >= 0} {lappend units %}
  337.                         set uw 110
  338.                         if {[lsearch -exact $cssNumbers $p] >= 0} {set units "{No unit} $units"; set uw 160}
  339.                         lappend box -e [lindex $val $ind] $wpos $hpos [expr $wpos + 50] [expr $hpos + 15]
  340.                         lappend box -m [concat [list [lindex $val [expr $ind + 1]]] $units] \
  341.                         [expr $wpos + 60] $hpos [expr $wpos + $uw] [expr $hpos + 15]
  342.                         incr wpos 120
  343.                         incr ind 2
  344.                         lappend proptypes $p number
  345.                     }
  346.                     set wpos 10
  347.                     incr hpos 30
  348.                 }
  349.                 if {[lsearch -exact $cssAny $p] >= 0} {
  350.                     # Any value
  351.                     if {$wpos > 10} {set wpos 10; incr hpos 30}
  352.                     lappend box -e [lindex $val $ind] 10 $hpos 450 [expr $hpos + 15]
  353.                     incr ind
  354.                     set wpos 10
  355.                     incr hpos 30
  356.                     lappend proptypes $p any
  357.                 }
  358.                 if {[lsearch -exact $cssColors $p] >=0 } {
  359.                     # color
  360.                     set n 1
  361.                     # four times for border-color
  362.                     if {$group == "border-color"} {set n 4}
  363.                     for {set i 0} {$i < $n} {incr i} {
  364.                         if {$wpos > 130} {set wpos 10; incr hpos 30}
  365.                         lappend box -e [lindex $val $ind] 130 $hpos 200 [expr $hpos + 15] \
  366.                         -m [concat [list [lindex $val [expr $ind + 1]] {No value}] $htmlColors] \
  367.                         210 $hpos 340 [expr $hpos + 15] \
  368.                         -b "New Color…" 350 $hpos 450 [expr $hpos + 20]
  369.                         incr ind 3
  370.                         lappend colorIndex [expr $ind - 1]
  371.                         set wpos 10
  372.                         incr hpos 40
  373.                         lappend proptypes $p color
  374.                     }
  375.                 }
  376.                 if {[lsearch -exact $cssURLs $p] >= 0} {
  377.                     # URL
  378.                     if {$wpos > 130} {set wpos 10; incr hpos 30}
  379.                     lappend box -e [lindex $val $ind] 120 $hpos 450 [expr $hpos + 15] \
  380.                     -m [concat [list [lindex $val [expr $ind + 1]] {No value}] $URLs] \
  381.                     120 [expr $hpos + 25] 450 [expr $hpos + 35] \
  382.                     -b "File…" 10 [expr $hpos + 20] 70 [expr $hpos + 40]
  383.                     incr ind 3
  384.                     lappend fileIndex [expr $ind - 1]
  385.                     set wpos 10
  386.                     incr hpos 50
  387.                     lappend proptypes $p url
  388.                 }
  389.                 if {[string match "*left*" $p]} {
  390.                     if {$wpos > 130} {set wpos 10; incr hpos 30}
  391.                     lappend box -r "Set all values individually" $allvalues 10 $hpos 300 [expr $hpos + 15]
  392.                     lappend box -r "Add missing values automatically if possible" [expr !$allvalues] 10 [expr $hpos + 20] 350 [expr $hpos + 35]
  393.                     set allValIndex $ind
  394.                     incr ind 2
  395.                     set wpos 10
  396.                     incr hpos 40
  397.                     lappend proptypes $p allval
  398.                 }
  399.             }
  400.             if {$wpos > 10} {incr hpos 20}
  401.             if {[lsearch -exact $cssShorthands $group] >= 0} {
  402.                 lappend box -c "Use shorthand form if possible" $short 10 $hpos 250 [expr $hpos + 15]
  403.                 incr hpos 20
  404.                 set shortIndex $ind
  405.             }
  406.             set val [eval [concat dialog -w [expr 460 + $dw] -h [expr $hpos + 50] \
  407.             -b OK 20 [expr $hpos + 20]  85 [expr $hpos + 40] \
  408.             -b Cancel 110 [expr $hpos + 20] 175 [expr $hpos + 40] $box]]
  409.             if {[info exists shortIndex]} {set short [lindex $val $shortIndex]}
  410.             if {[info exists allValIndex]} {set allvalues [lindex $val $allValIndex]}
  411.             # OK clicked?
  412.             if {[lindex $val 0]} {break}
  413.             # Cancel clicked?
  414.             if {[lindex $val 1]} {return}
  415.             # File button clicked?
  416.             foreach fl $fileIndex {
  417.                 if {[lindex $val $fl] && [set newFile [htmlGetFile]] != ""} {
  418.                     set URLs $HTMLmodeVars(URLs)
  419.                     set val [lreplace $val [expr $fl - 1] [expr $fl - 1] [lindex $newFile 0]]
  420.                 }
  421.             }
  422.             # Color button clicked?
  423.             foreach cl $colorIndex {
  424.                 if {[lindex $val $cl] && [set newColor [htmlAddNewColor]] != ""} {
  425.                     set htmlColors [concat [list $newColor] $htmlColors]
  426.                     set val [lreplace $val [expr $cl -1] [expr $cl - 1] "$newColor"]
  427.                 }
  428.             }
  429.         }
  430.         
  431.         # Find indentation.
  432.         set indent ""
  433.         if {![catch {matchIt "\}" [getPos]} pos]} {
  434.             regexp {^[ \t]*} [getText [lineStart $pos] $pos] indent
  435.         }
  436.         # Put it all together.
  437.         set j 2
  438.         set prevprop ""
  439.         set proptext ""
  440.         set errtext ""
  441.         set tmptext ""
  442.         for {set i 0} {$i < [llength $proptypes]} {incr i 2} {
  443.             set prop [lindex $proptypes [expr $i + 1]]
  444.             if {$prevprop != [set pr [lindex $proptypes $i]]} {
  445.                 if {$tmptext != ""} {
  446.                     if {$prevprop == "text-decoration"} {
  447.                         if {[lindex $tmptext 0] == "1"} {
  448.                             set tmptext " none"
  449.                         } elseif {$tmptext != " 0"} {
  450.                             set tmptext " [lunique [lrange $tmptext 1 end]]"
  451.                         }
  452.                     } else {
  453.                         set tmptext " [lindex $tmptext 0]"
  454.                     }
  455.                     if {$tmptext != " 0"} {
  456.                         if {[info exists important($prevprop)] || [info exists important($group)]} {append tmptext " ! important"}
  457.                         append proptext "\;\r$indent\t$prevprop:$tmptext"
  458.                     }
  459.                 }
  460.                 set prevprop $pr
  461.                 set tmptext ""
  462.             }
  463.             switch $prop {
  464.                 choices {
  465.                     if {[llength $cssProperty($pr)] == 1} {
  466.                         if {[lindex $val $j]} {
  467.                             append tmptext " $cssProperty($pr)"
  468.                         }
  469.                     } elseif {[set c [lindex $val $j]] != "No value"} {
  470.                         append tmptext " $c"
  471.                     }
  472.                     incr j
  473.                 }
  474.                 number {
  475.                     if {[set c [string trim [lindex $val $j]]] != ""} {
  476.                         if {![catch {cssCheckNumber $pr $c [lindex $val [expr $j + 1]]} c]} {
  477.                             append tmptext " $c"
  478.                         } else {
  479.                             lappend errtext "$pr: $c"
  480.                         }
  481.                     }
  482.                     incr j 2
  483.                 }
  484.                 any {
  485.                     if {[set c [string trim [lindex $val $j]]] != ""} {
  486.                         append tmptext ", $c"
  487.                     }
  488.                     incr j
  489.                 }
  490.                 color {
  491.                     if {[set ctxt [string trim [lindex $val $j]]] != ""} {
  492.                         if {[set col [cssCheckColorNumber $ctxt]] == 0} {
  493.                             lappend errtext "$pr: $ctxt is not a valid color number."
  494.                         } else {
  495.                             append tmptext " $col"
  496.                         }
  497.                     } elseif {[set cval [lindex $val [expr $j + 1]]] != "No value"} {
  498.                         if {[info exists htmluserColors($cval)]} {
  499.                             append tmptext " $htmluserColors($cval)"
  500.                         }
  501.                         if {[info exists htmlColorName($cval)]} {
  502.                             append tmptext " $htmlColorName($cval)"
  503.                         }
  504.                     }
  505.                     incr j 3
  506.                 }
  507.                 url {
  508.                     if {[set turl [string trim [lindex $val $j]]] != ""} {
  509.                         append tmptext " url(\"[htmlURLescape2 $turl]\")"
  510.                         htmlAddToCache URLs $turl
  511.                     } elseif {[set murl [lindex $val [expr $j + 1]]] != "No value"} {
  512.                         append tmptext " url(\"[htmlURLescape2 $murl]\")"
  513.                     }
  514.                     incr j 3
  515.                 }
  516.                 allval {
  517.                     incr j 2
  518.                 }
  519.             }
  520.         }
  521.         if {$tmptext != ""} {
  522.             if {$prevprop == "background-position"} {
  523.                 if {[regexp {^[a-z]+$} [lindex $tmptext 0]]} {
  524.                     set tp ""
  525.                     foreach tm $tmptext {
  526.                         if {[regexp {^[a-z]+$} $tm]} {
  527.                             lappend tp $tm
  528.                         }
  529.                     }
  530.                     set tmptext " $tp"
  531.                 }
  532.             } elseif {$prevprop == "font-family"} {
  533.                 set tmptext [string trim $tmptext ,]
  534.                 if {[lsearch -exact $cssProperty(font-family) [set first [string trim [lindex $tmptext 0] ,]]] >= 0
  535.                 && [llength $tmptext] > 1} {
  536.                     set tmptext " [lrange $tmptext 1 end], $first"
  537.                 }
  538.             } elseif {$prevprop != "border-style" && $prevprop != "border-color"} {
  539.                 set tmptext " [lindex $tmptext 0]"
  540.             }
  541.             if {[info exists important($prevprop)] || [info exists important($group)]} {append tmptext " ! important"}
  542.             append proptext "\;\r$indent\t$pr:$tmptext"
  543.         }
  544.         set proptext [string trimleft $proptext "\;"]
  545.         if {![llength $errtext]} {
  546.             set invalidInput 0
  547.             if {[info exists allValIndex] && !$allvalues} {set proptext [cssAddMissingValues $group $proptext $indent]}
  548.             if {[info exists shortIndex] && $short} {set proptext [cssMakeShort $group $proptext $indent]}
  549.         } else {
  550.             htmlErrorWindow "Invalid input" $errtext
  551.         }
  552.         
  553.     }
  554.     # Special fixes for @import
  555.     if {$group == "@import"} {
  556.         regexp {^[ \t]*} [getText [lineStart [getPos]] [getPos]] indent
  557.         set proptext [string trimleft $proptext ";"]
  558.         regsub "\t+" $proptext "$indent" proptext
  559.         regsub "@import:" $proptext "@import" proptext
  560.     }
  561.     set len 0
  562.     set ps [getPos]
  563.     if {$proptext != ""} {
  564.         insertText "$proptext\;"
  565.         set len [expr [getPos] - $ps]
  566.     }
  567.     set removePos0 [lsort -integer -decreasing $removePos0]
  568.     set removePos1 [lsort -integer -decreasing $removePos1]
  569.     # Check for overlapping positions.
  570.     set r0 [maxPos]
  571.     for {set i 0} {$i < [llength $removePos1]} {incr i} {
  572.         set r00 [lindex $removePos0 $i]
  573.         set r11 [lindex $removePos1 $i]
  574.         if {$r11 > $r0} {set r11 $r0}
  575.         if {$r11 > $r00} {lappend rem [list $r00 $r11]}
  576.         set r0 $r00
  577.     }
  578.     foreach r $rem {
  579.         set xpos 0
  580.         if {[set pos1 [lindex $r 0]] >= $ps} {set xpos $len}
  581.         deleteText [expr $pos1 + $xpos] [expr [lindex $r 1] + $xpos]
  582.     }
  583. }
  584.  
  585. # Add missing values to top, right, bottom, left properties.
  586. proc cssAddMissingValues {group text indent} {
  587.     global cssGroup
  588.     set tmp [split $text "\r"]
  589.     set sideList {top right bottom left}
  590.     # Find those values which have been set
  591.     foreach side $sideList {
  592.         set $side 0
  593.         foreach l $tmp {
  594.             if {[string match *${side}* [lindex $l 0]]} {
  595.                 set $side 1
  596.                 set ${side}val [string trimright [lindex $l 1] "\;"]
  597.             }
  598.         }
  599.     }
  600.     # Add missing values.
  601.     foreach side $sideList {
  602.         if {![set $side]} {
  603.             switch $side {
  604.                 top {set opside bottom}
  605.                 right {set opside left}
  606.                 bottom {set opside top}
  607.                 left {set opside right}
  608.             }
  609.             if {[set $opside]} {
  610.                 set use $opside
  611.             } elseif {$top} {
  612.                 set use top
  613.             } else {
  614.                 # Can't add missing value.
  615.                 return $text
  616.             }    
  617.             append text "\;\r$indent\t[lindex $cssGroup($group) [lsearch $sideList $side]]: [set ${use}val]"
  618.         }
  619.     }
  620.     
  621.     return $text
  622. }
  623.  
  624. # Makes a short form of a group of properties.
  625. proc cssMakeShort {group text indent} {
  626.     global cssGroup
  627.     set lines [split $text \r]
  628.     set count 0
  629.     set important 0
  630.     foreach pr $cssGroup($group) {
  631.         foreach l $lines {
  632.             if {[lindex $l 0] == "$pr:"} {
  633.                 incr important [regsub { ! important} $l {} l]
  634.                 incr count
  635.                 if {$pr == "font-size"} {set fontSize 1}
  636.                 if {$pr == "font-family"} {set fontFamily 1}
  637.                 # Line-height is a special case.
  638.                 if {$pr == "line-height" && [info exists fontSize]} {
  639.                     append values /[string trimright [lrange $l 1 end] "\;"]
  640.                 } else {
  641.                     append values " " [string trimright [lrange $l 1 end] "\;"]
  642.                 }
  643.             }
  644.         }
  645.     }
  646.     if {$important > 0 && $important != $count} {return $text}
  647.     # font-size and font-family must be used for font.
  648.     if {$group == "font" && (![info exists fontSize] || ![info exists fontFamily])} {return $text}
  649.     # Remove unnecessary stuff for margin and padding and border-width.
  650.     if {$group == "margin" || $group == "padding" || $group == "border-width"} {
  651.         # If count ≠ 4, then there is no short form
  652.         if {$count != 4} {return $text}
  653.         if {[llength [lunique $values]] == 1} {
  654.             set values " [lindex $values 0]"
  655.         } elseif {[lindex $values 0] == [lindex $values 2] && [lindex $values 1] == [lindex $values 3]} {
  656.             set values [lrange $values 0 1]
  657.         } elseif {[lindex $values 1] == [lindex $values 3]} {
  658.             set values [lrange $values 0 2]
  659.         }
  660.     }
  661.     
  662.     set text ""
  663.     if {[lindex $lines 0] == "\;"} {set text "\;"}
  664.     if {[info exists values]} {
  665.         if {$group == "font"} {set values " [lunique $values]"}
  666.         append text "\r$indent\t$group:$values"
  667.         if {$important} {append text " ! important"}
  668.     }
  669.     return $text
  670. }
  671.  
  672. # Check if a CSS number is ok.
  673. proc cssCheckNumber {prop num unit} {
  674.     global cssPercentage cssLengths cssUnits
  675.     if {![regexp {^(-?[0-9]+\.?[0-9]*)([%a-z]*)$} $num d n u]} {
  676.         error "Invalid number."
  677.     }
  678.     if {$u != ""} {
  679.         if {[lsearch -exact [concat $cssUnits %] $u] < 0 ||
  680.         $u != "%" && [lsearch -exact $cssLengths $prop] < 0} {
  681.             error "Invalid unit."
  682.         } else {
  683.             set unit $u
  684.         }
  685.     } elseif {$unit == "No unit"} {
  686.         set unit ""
  687.     }
  688.     if {$unit == "%" && [lsearch -exact $cssPercentage $prop] < 0} {
  689.         error "Percentage not allowed."
  690.     }
  691.     return "$n$unit"
  692. }
  693.  
  694. # Check if a color number is a valid number, or one of the predefined names.
  695. # Returns 0 if not and the color number if it is.
  696. proc cssCheckColorNumber {color} {
  697.     global htmlColorName
  698.     set color [string tolower $color]
  699.     if {[info exists htmlColorName($color)]} {return $htmlColorName($color)}
  700.     # rgb(1,2,3)
  701.     if {[regexp {^rgb\(([0-9]+),([0-9]+),([0-9]+)\)$} $color dum c1 c2 c3]} {
  702.         if {$c1 > -1 && $c1 < 256 && $c2 > -1 && $c2 < 256 && $c3 > -1 && $c3 < 256} {
  703.             return $color
  704.         } else {
  705.             return 0
  706.         }
  707.     }
  708.     # rgb(1.0%,2.0%,3.0%)
  709.     if {[regexp {^rgb\(([0-9]+\.?[0-9]*)%,([0-9]+\.?[0-9]*)%,([0-9]+\.?[0-9]*)%\)$} $color dum c1 c2 c3]} {
  710.         if {$c1 >= 0.0 && $c1 <= 100.0 && $c2 >= 0.0 && $c2 <= 100.0 && $c3 >= 0.0 && $c3 <= 100.0} {
  711.             return $color
  712.         } else {
  713.             return 0
  714.         }
  715.     }
  716.         
  717.     # #123456 or #123
  718.     if {[string index $color 0] != "#"} {
  719.         set color "#${color}"
  720.     }
  721.     set color [string toupper $color]
  722.     if {([string length $color] != 7 && [string length $color] != 4) || ![regexp {^#[0-9A-F]+$} $color]} {
  723.         return 0
  724.     } else {
  725.         return $color
  726.     }    
  727. }
  728.  
  729. # Extracts the current values for the property to add.
  730. proc cssGetProperties {group} {
  731.     global cssGroup cssProperty cssAny cssURLs cssLengths cssPercentage cssColors
  732.     global htmluserColorname htmlColorNumber HTMLmodeVars cssShorthands
  733.     
  734.     upvar removePos0 remove0 removePos1 remove1 important important
  735.     upvar short short errorText errorText
  736.     
  737.     if {$group == "@import"} {return}
  738.     
  739.     # obtain all props for this group
  740.     if {[info exists cssGroup($group)]} {
  741.         set props $cssGroup($group)
  742.     } else {
  743.         set props $group
  744.     }
  745.     # Find interval to search in.
  746.     if {[catch {matchIt "\}" [getPos]} start]} {
  747.         if {![catch {search -s -f 0 -m 0 -r 0 "\}" [getPos]} r0] ||
  748.         ![catch {search -s -f 1 -i 1 -m 0 -r 0 "<STYLE([ \t\r]+[^<>]*>|>)" [getPos]} r0]} {
  749.             set start [lindex $r0 1]
  750.         } else {
  751.             set start 0
  752.         }
  753.     }
  754.     if {[catch {matchIt "\{" [getPos]} end]} {
  755.         set rbrace [maxPos]
  756.         set style [maxPos]
  757.         if {![catch {search -s -f 1 -m 0 -r 0 "\{" [getPos]} r0]} {
  758.             set rbrace [lineStart [lindex $r0 0]]
  759.         }
  760.         if {![catch {search -s -f 1 -i 1 -m 0 -r 0 "</STYLE>" [getPos]} r0]} {
  761.             set style [lindex $r0 0]
  762.         }
  763.         set end [expr $rbrace < $style ? $rbrace : $style]
  764.     }
  765.     # build a list with property values
  766.     set val {0 0}
  767.     set remove ""
  768.     # Find shorthand property
  769.     if {[lsearch -exact $cssShorthands $group] >= 0} {
  770.         set groupValue ""
  771.         set st0 $start
  772.         while {1} {
  773.             if {[catch {search -s -f 1 -i 1 -m 0 -r 1 -l $end "(\[ \t\r\]+|;)$group\[ \t\r\]*:" $st0} res]} {
  774.                 break
  775.             } elseif {![catch {search -s -f 1 -i 1 -m 0 -r 0 -l $end "\;" [lindex $res 1]} res1]} {
  776.                 if {![cssIsInComment [lindex $res 0]]} {
  777.                     set groupValue [string trim [getText [lindex $res 1] [expr [lindex $res1 1] - 1]]]
  778.                     set r00 [lindex $res 0]
  779.                     if {[lookAt $r00] == ";"} {incr r00}
  780.                     lappend remove0 $r00 
  781.                     lappend remove1 [lindex $res1 1]
  782.                     break
  783.                 } else {
  784.                     set st0 [lindex $res1 1]
  785.                 }
  786.             } else {
  787.                 if {![cssIsInComment [lindex $res 0]]} {
  788.                     set groupValue [string trim [getText [lindex $res 1] [expr $end - 1]]]
  789.                     set r00 [lindex $res 0]
  790.                     if {[lookAt $r00] == ";"} {incr r00}
  791.                     lappend remove0 $r00 
  792.                     lappend remove1 $end
  793.                     break
  794.                 } else {
  795.                     set st0 [lindex $res1 1]
  796.                 }
  797.             }
  798.         }
  799.         regsub -all {/\*[^\*]*\*/} $groupValue "" groupValue
  800.         if {[regsub -nocase {![ \t\r]*important} $groupValue {} groupValue]} {set important($group) 1}
  801.         if {$groupValue != ""} {
  802.             cssExpandProps $group $groupValue
  803.         }
  804.     }
  805.     
  806.     foreach p $props {
  807.         # Find the property
  808.         if {![info exists propValue($p)]} {set propValue($p) ""}
  809.         set st0 $start
  810.         while {1} {
  811.             if {[catch {search -s -f 1 -i 1 -m 0 -r 1 -l $end "(\[ \t\r\]+|;)$p\[ \t\r\]*:" $st0} res]} {
  812.                 break
  813.             } elseif {![catch {search -s -f 1 -i 1 -m 0 -r 0 -l $end "\;" [lindex $res 1]} res1]} {
  814.                 if {![cssIsInComment [lindex $res 0]]} {
  815.                     set propValue($p) [string trim [getText [lindex $res 1] [expr [lindex $res1 1] - 1]]]
  816.                     set r00 [lindex $res 0]
  817.                     if {[lookAt $r00] == ";"} {incr r00}
  818.                     lappend remove0 $r00 
  819.                     lappend remove1 [lindex $res1 1]
  820.                     set short 0
  821.                     break
  822.                 } else {
  823.                     set st0 [lindex $res1 1]
  824.                 }
  825.             } else {
  826.                 if {![cssIsInComment [lindex $res 0]]} {
  827.                     set propValue($p) [string trim [getText [lindex $res 1] [expr $end - 1]]]
  828.                     set r00 [lindex $res 0]
  829.                     if {[lookAt $r00] == ";"} {incr r00}
  830.                     lappend remove0 $r00 
  831.                     lappend remove1 $end
  832.                     set short 0
  833.                     break
  834.                 } else {
  835.                     set st0 [lindex $res1 1]
  836.                 }
  837.             }
  838.         }
  839.         regsub -all {/\*[^\*]*\*/} $propValue($p) "" propValue($p)
  840.     }
  841.     foreach p $props {
  842.         set thisValue [string tolower $propValue($p)]
  843.         if {[regsub {![ \t\r]*important} $thisValue {} thisValue]} {set important($p) 1}
  844.         if {[info exists cssProperty($p)]} {
  845.             # A list of choices
  846.             set pr $cssProperty($p)
  847.             # special case with background-position and text-decoration
  848.             if {$p == "background-position" || $p == "text-decoration"} {
  849.                 set pr1 [lindex $pr 0]
  850.                 if {[llength $pr1] > 1} {
  851.                     set found 0
  852.                     for {set i 0} {$i < [llength $thisValue]} {incr i} {
  853.                         set tv [lindex $thisValue $i]
  854.                         if {[lsearch -exact $pr1 $tv] >= 0} {
  855.                             lappend val [lindex $thisValue $i]
  856.                             set thisValue [lreplace $thisValue $i $i]
  857.                             set found 1
  858.                             break
  859.                         }
  860.                     }
  861.                     if {!$found} {lappend val "No value"}
  862.                 } elseif {[set ww [lsearch -exact $thisValue $pr1]] >= 0} {
  863.                     set thisValue [lreplace $thisValue $ww $ww]
  864.                     lappend val 1
  865.                 } else {
  866.                     lappend val 0
  867.                 }
  868.                 set pr [lindex $pr 1]
  869.             }
  870.             set n 1
  871.             # four times for text-decoration and border-style
  872.             if {$p == "text-decoration" || $group == "border-style"} {set n 4}
  873.             for {set i 0} {$i < $n} {incr i} {
  874.                 if {[llength $pr] > 1} {
  875.                     if {[llength $thisValue] && [lsearch -exact $pr [lindex $thisValue 0]] >= 0} {
  876.                         lappend val [lindex $thisValue 0]
  877.                         set thisValue [lrange $thisValue 1 end]
  878.                     } else {
  879.                         lappend val "No value"
  880.                     }
  881.                 } elseif {$thisValue == $pr} {
  882.                     lappend val 1
  883.                     set thisValue ""
  884.                 } else {
  885.                     lappend val 0
  886.                 }
  887.             }
  888.         }
  889.         set l [lsearch -exact $cssLengths $p]
  890.         set pr [lsearch -exact $cssPercentage $p]
  891.         if { $l >= 0 || $pr  >= 0 } {
  892.             # Length or percentage
  893.             set n 1
  894.             # twice for background-position
  895.             if {$p == "background-position"} {set n 2}
  896.             for {set i 0} {$i < $n} {incr i} {
  897.                 if {$i < [llength $thisValue] && ![catch {cssCheckNumber $p [lindex $thisValue 0] ""} num]} {
  898.                     regexp {[0-9]+(.*)} $num dum unit
  899.                     lappend val $num $unit
  900.                     set thisValue [lrange $thisValue 1 end]
  901.                 } else {
  902.                     lappend val "" ""
  903.                 }
  904.             }
  905.         }
  906.         if {[lsearch -exact $cssAny $p] >= 0} {
  907.             # Any value
  908.             lappend val $thisValue
  909.             set thisValue ""
  910.         }
  911.         if {[lsearch -exact $cssColors $p] >=0 } {
  912.             # color
  913.             set n 1
  914.             # four times for border-color
  915.             if {$group == "border-color"} {set n 4}
  916.             for {set i 0} {$i < $n} {incr i} {
  917.                 set tv [cssCheckColorNumber [lindex $thisValue 0]]
  918.                 if {$tv == "0"} {
  919.                     lappend val "" "No value" 0
  920.                 } elseif {[info exists htmluserColorname($tv)]} {
  921.                     lappend val "" $htmluserColorname($tv) 0
  922.                 } elseif {[info exists htmlColorNumber($tv)]} {
  923.                     lappend val "" $htmlColorNumber($tv) 0
  924.                 } else {
  925.                     lappend val $tv "No value" 0
  926.                 }
  927.                 if {$tv != "0"} {set thisValue [lrange $thisValue 1 end]}
  928.             }
  929.         }
  930.         if {[lsearch -exact $cssURLs $p] >= 0} {
  931.             # URL
  932.             if {[regexp {url\(\"?([^\"\)]+)\"?\)} $propValue($p) dum thisValue]} {
  933.                 set thisValue [htmlURLunEscape $thisValue]
  934.                 htmlAddToCache URLs $thisValue
  935.                 lappend val "" $thisValue 0
  936.                 set thisValue ""
  937.             } else {
  938.                 lappend val "" "No value" 0
  939.             }
  940.         }
  941.         if {[llength $thisValue]} {lappend errorText "$p: $thisValue"}
  942.     }
  943.     return $val
  944. }
  945.  
  946. proc cssExpandProps {group value} {
  947.     global cssGroup cssProperty cssAny cssURLs cssLengths cssPercentage cssColors cssUnits
  948.     upvar propValue prop errorText errorText
  949.     set valueUP $value
  950.     set value [string tolower $value]
  951.     # Special case with font
  952.     if {$group == "font"} {
  953.         regexp {[^ \t]+(,[ \t]+[^ \t]+)*[ \t]*$} $value family
  954.         set prop(font-family) [string trim $family]
  955.         set value [string range $value 0 [expr [string length $value] - [string length $family] - 1]]
  956.         set fontsize [lindex $value [expr [llength $value] - 1]]
  957.         set lineheight ""
  958.         regexp {^([^/]+)/?(.*)$} $fontsize dum fontsize lineheight
  959.         if {[lsearch -exact $cssProperty(font-size) $fontsize] >= 0 || ![catch {cssCheckNumber font-size $fontsize ""} fontsize]} {
  960.             set prop(font-size) $fontsize
  961.         }
  962.         if {[lsearch -exact $cssProperty(line-height) $lineheight] >= 0 || ![catch {cssCheckNumber line-height $lineheight ""} lineheight]} {
  963.             set prop(line-height) $lineheight
  964.         }
  965.         set value [lrange $value 0 [expr [llength $value] - 2]]
  966.         set normal [lsearch -exact $value normal]
  967.         regsub -all "normal" $value "" value
  968.     }
  969.  
  970.     # Special case with background-position
  971.     if {$group == "background"} {
  972.         foreach bp $cssProperty(background-position) {
  973.             set nv ""
  974.             foreach v $value {
  975.                 if {[lsearch -exact $bp $v] >= 0} {
  976.                     lappend prop(background-position) $v
  977.                 } else {
  978.                     lappend nv $v
  979.                 }
  980.             }
  981.             set value $nv
  982.         }
  983.         set nv ""
  984.         foreach v $value {
  985.             if {![catch {cssCheckNumber background-position $v ""} v1]} {
  986.                 lappend prop(background-position) $v1
  987.             } else {
  988.                 lappend nv $v
  989.             }
  990.         }
  991.         set value $nv
  992.     }
  993.     
  994.     # Handle margin, padding and border-width separately
  995.     if {$group == "margin" || $group == "padding" || $group == "border-width"} {
  996.         foreach trbl {top right bottom left} {
  997.             if {$group == "border-width"} {
  998.                 set pr "border-${trbl}-width"
  999.             } else {
  1000.                 set pr ${group}-$trbl
  1001.             }
  1002.             set v ""
  1003.             if {[llength $value]} {
  1004.                 set v [lindex $value 0]
  1005.                 set value [lrange $value 1 end]
  1006.             }
  1007.             if {$group != "padding" && [lsearch -exact $cssProperty($pr) $v] >= 0} {
  1008.                 set prop($pr) $v
  1009.             } elseif {![catch {cssCheckNumber $pr $v ""} v1]} {
  1010.                 set prop($pr) $v1
  1011.             } elseif {$v != ""} {
  1012.                 append err " $v"
  1013.             }
  1014.         }
  1015.         if {[info exists err]} {lappend errorText "$group:$err"}
  1016.         return
  1017.     }
  1018.     
  1019.     # All other properties.
  1020.     foreach p $cssGroup($group) {
  1021.         if {[info exists cssProperty($p)]} {
  1022.             set p1 $cssProperty($p)
  1023.             if {$group == "font" && [lsearch -exact {font-style font-weight font-variant line-height} $p] >= 0} {
  1024.                 set tmp ""
  1025.                 for {set i 0} {$i < [llength $value]} {incr i} {
  1026.                     set v [lindex $value $i]
  1027.                     if {[lsearch -exact $p1 $v] >= 0} {
  1028.                         set tmp $v
  1029.                         set value [lreplace $value $i $i]
  1030.                         break
  1031.                     }
  1032.                 }
  1033.                 if {$tmp != ""} {
  1034.                     set prop($p) $tmp
  1035.                 } elseif {$normal >= 0} {
  1036.                     set prop($p) normal
  1037.                 }
  1038.             } else {
  1039.                 for {set i 0} {$i < [llength $value]} {incr i} {
  1040.                     set v [lindex $value $i]
  1041.                     if {[lsearch -exact $p1 $v] >= 0} {
  1042.                         set prop($p) $v
  1043.                         set value [lreplace $value $i $i]
  1044.                         break
  1045.                     }
  1046.                 }
  1047.             }
  1048.         }
  1049.         if {[lsearch -exact $cssURLs $p] >= 0} {
  1050.             for {set i 0} {$i < [llength $value]} {incr i} {
  1051.                 set v [lindex $value $i]
  1052.                 if {[regexp {^url\(\"?[^\"\)]+\"?\)$} $v]} {
  1053.                     foreach v1 $valueUP {
  1054.                         if {$v == [string tolower $v1]} {
  1055.                             set prop($p) $v1
  1056.                         }
  1057.                     }
  1058.                     set value [lreplace $value $i $i]
  1059.                     break
  1060.                 }
  1061.             }
  1062.         }
  1063.         if {[lsearch -exact $cssColors $p] >= 0} {
  1064.             for {set i 0} {$i < [llength $value]} {incr i} {
  1065.                 set v [lindex $value $i]
  1066.                 if {[set c [cssCheckColorNumber $v]] != "0"} {
  1067.                     set prop($p) $c
  1068.                     set value [lreplace $value $i $i]
  1069.                     break
  1070.                 }
  1071.             }
  1072.         }
  1073.         set l [lsearch -exact $cssLengths $p]
  1074.         set pr [lsearch -exact $cssPercentage $p]
  1075.         if { $l >= 0 || $pr  >= 0 } {
  1076.             for {set i 0} {$i < [llength $value]} {incr i} {
  1077.                 set v [lindex $value $i]
  1078.                 if {![catch {cssCheckNumber $p $v ""} num]} {
  1079.                     set prop($p) $num
  1080.                     set value [lreplace $value $i $i]
  1081.                     break
  1082.                 }
  1083.             }
  1084.         }        
  1085.     }
  1086.     if {[llength $value]} {lappend errorText "$group: $value"}
  1087. }
  1088.  
  1089. proc cssIsInComment {pos} {
  1090.     set a [maxPos]
  1091.     set b -1
  1092.     if {![catch {search -s -f 0 -m 0 -r 0 "/*" $pos} a1]} {set a [lindex $a1 0]}
  1093.     if {![catch {search -s -f 0 -m 0 -r 0 "*/" $pos} b1]} {set b [lindex $b1 0]}
  1094.     return [expr ($a < $pos && $a > $b)]
  1095. }
  1096.