ooxml

Check-in [9242af45ac]
Login

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

Overview
Comment:activeTab set to 0
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bookview
Files: files | file ages | folders
SHA3-256: 9242af45ac89beb090b02d5545c797206e1a9c3d41a75aef22e9a4784802203d
User & Date: alex 2019-12-08 20:51:53
References
2019-12-09
15:15 Closed ticket [473db708f6]: set active tab plus 6 other changes artifact: 0e926ba859 user: alex
Context
2019-12-09
15:12
new method view; view -activetab TAB; FR [473db708f6] check-in: 76959afa61 user: alex tags: bookview
2019-12-08
20:51
activeTab set to 0 check-in: 9242af45ac user: alex tags: bookview
2019-12-06
22:05
fixed an error when using more than one sheet; reported by Steve Landers [c59ca15507] check-in: 9d6b3a0149 user: alex tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ooxml.tcl.

1485
1486
1487
1488
1489
1490
1491

1492
1493
1494
1495
1496
1497
1498
....
1577
1578
1579
1580
1581
1582
1583


1584
1585
1586
1587
1588
1589
1590
....
2519
2520
2521
2522
2523
2524
2525

2526
2527
2528
2529
2530
2531
2532
....
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
    my variable sharedStrings
    my variable fonts
    my variable numFmts
    my variable styles
    my variable fills
    my variable borders
    my variable cols


    array set opts {
      creator {unknown}
      created {}
      modifiedby {}
      modified {}
      application {}
................................................................................
    array set cols {}

    set obj(calcChain) 0

    set obj(defaultdatestyle) 0

    array set cells {}



    return 0
  }

  destructor {
    return 0
  }
................................................................................
    my variable sharedStrings
    my variable fonts
    my variable numFmts
    my variable styles
    my variable fills
    my variable borders
    my variable cols


    upvar #0 ::ooxml::xmlns xmlns

    ooxml::InitNodeCommands
    namespace import ::ooxml::Tag_* ::ooxml::Text

    # Initialize zip file
................................................................................
    $root setAttribute xmlns $xmlns(M)
    $root setAttribute xmlns:r $xmlns(r)

    $root appendFromScript {
      Tag_fileVersion appName xl lastEdited 5 lowestEdited 5 rupBuild 5000 {}
      Tag_workbookPr showInkAnnotation 0 autoCompressPictures 0 {}
      Tag_bookViews {
	Tag_workbookView activeTab 1 {}
      }
      Tag_sheets {
	for {set ws 1} {$ws <= $obj(sheets)} {incr ws} {
	  Tag_sheet name $obj(sheet,$ws) sheetId $ws r:id rId$ws {}
	}
      }
      if {0} {







>







 







>
>







 







>







 







|







1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
....
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
....
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
....
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
    my variable sharedStrings
    my variable fonts
    my variable numFmts
    my variable styles
    my variable fills
    my variable borders
    my variable cols
    my variable view

    array set opts {
      creator {unknown}
      created {}
      modifiedby {}
      modified {}
      application {}
................................................................................
    array set cols {}

    set obj(calcChain) 0

    set obj(defaultdatestyle) 0

    array set cells {}

    set view {activetab 0}

    return 0
  }

  destructor {
    return 0
  }
................................................................................
    my variable sharedStrings
    my variable fonts
    my variable numFmts
    my variable styles
    my variable fills
    my variable borders
    my variable cols
    my variable view

    upvar #0 ::ooxml::xmlns xmlns

    ooxml::InitNodeCommands
    namespace import ::ooxml::Tag_* ::ooxml::Text

    # Initialize zip file
................................................................................
    $root setAttribute xmlns $xmlns(M)
    $root setAttribute xmlns:r $xmlns(r)

    $root appendFromScript {
      Tag_fileVersion appName xl lastEdited 5 lowestEdited 5 rupBuild 5000 {}
      Tag_workbookPr showInkAnnotation 0 autoCompressPictures 0 {}
      Tag_bookViews {
	Tag_workbookView activeTab [dict get $view activetab] {}
      }
      Tag_sheets {
	for {set ws 1} {$ws <= $obj(sheets)} {incr ws} {
	  Tag_sheet name $obj(sheet,$ws) sheetId $ws r:id rId$ws {}
	}
      }
      if {0} {