Documentation Source Text

Check-in [cd56d0a98c]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Change the form of the tags used to embed svg images.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: cd56d0a98c23d2ef0d37ae577958c3f9523bfc72
User & Date: dan 2009-06-08 07:19:11
Context
2009-06-08
13:39
Begin preparing the website for the 3.6.15 release. check-in: 4b07b4204a user: drh tags: trunk
12:30
Add extra details on balance-siblings algorithm to btreemodule.html. check-in: 9e047c0045 user: dan tags: trunk
07:19
Change the form of the tags used to embed svg images. check-in: cd56d0a98c user: dan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to pages/fancyformat.tcl.

44
45
46
47
48
49
50












51
52
53
54
55
56
57
58
proc h4 {args} {uplevel H 4 $args}

proc Figure {zImage zName zCaption} {
  incr ::SectionNumbers(fig)
  set ::References($zName) [list $::SectionNumbers(fig) $zCaption]

  if {[regexp {.*svg} $zImage ]} {












    set tag "<object data=\"images/$zImage\" style=\"overflow:hidden\"></object>"
  } else {
    set tag "<img src=\"images/fileformat/$zImage\">"
  }

  subst {
      <center>
      <a name="$zName"></a>







>
>
>
>
>
>
>
>
>
>
>
>
|







44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
proc h4 {args} {uplevel H 4 $args}

proc Figure {zImage zName zCaption} {
  incr ::SectionNumbers(fig)
  set ::References($zName) [list $::SectionNumbers(fig) $zCaption]

  if {[regexp {.*svg} $zImage ]} {
    set fd [open $::DOC/images/$zImage]
    set nLine 0
    while {![eof $fd] && $nLine<30} {
      set line [gets $fd]
      regexp {^ *width="([0123456789]*)} $line dummy iWidth
      regexp {^ *height="([0123456789]*)} $line dummy iHeight
      incr nLine
    }
    close $fd
    incr iWidth
    incr iHeight

    set tag "<object data=\"images/$zImage\" type=\"image/svg+xml\" width=$iWidth height=$iHeight style=\"overflow:hidden\"></object>"
  } else {
    set tag "<img src=\"images/fileformat/$zImage\">"
  }

  subst {
      <center>
      <a name="$zName"></a>