Changeset 4974 for trunk


Ignore:
Timestamp:
Jan 31, 2015 11:37:20 PM (5 years ago)
Author:
ldelgass
Message:

Add time slider

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/mapviewer.tcl

    r4958 r4974  
    7979    private method BuildDownloadPopup { widget command }
    8080    private method BuildLayerTab {}
     81    private method BuildMapTab {}
    8182    private method BuildTerrainTab {}
    8283    private method ChangeLayerVisibility { dataobj layer }
     
    185186    $_parser alias screen   [itcl::code $this ReceiveScreenInfo]
    186187
     188    # Millisecond delay before animated wait dialog appears
     189    set _waitTimeout 500
     190
    187191    # Settings for mouse motion events: these are required
    188192    # to update the Lat/Long coordinate display
     
    236240        terrain-vertscale      1.0
    237241        terrain-wireframe      0
     242        time                   12
    238243    }]
     244
     245    set _settings(time) [clock format [clock seconds] -format %k]
     246
    239247    itk_component add view {
    240248        canvas $itk_component(plotarea).view \
     
    301309
    302310    BuildLayerTab
     311    BuildMapTab
    303312    BuildTerrainTab
    304313    BuildCameraTab
     
    940949        set _hardcopy($tag) $bytes
    941950    }
     951    set _waitTimeout 0
    942952}
    943953
     
    10461056            } else {
    10471057                if { $_mapsettings(type) == "geocentric" } {
     1058                    $itk_component(grid) configure -state normal
    10481059                    SendCmd "map reset geocentric"
    10491060                }  else {
     1061                    $itk_component(grid) configure -state disabled
    10501062                    set proj $_mapsettings(projection)
    10511063                    if { $proj == "" } {
     
    15191531            SendCmd "map terrain wireframe $bool"
    15201532        }
     1533        "time" {
     1534            set val $_settings($what)
     1535            SendCmd "map time $val"
     1536        }
    15211537        default {
    15221538            error "don't know how to fix $what"
     
    15451561}
    15461562
    1547 itcl::body Rappture::MapViewer::BuildTerrainTab {} {
     1563itcl::body Rappture::MapViewer::BuildMapTab {} {
    15481564
    15491565    set fg [option get $itk_component(hull) font Font]
     
    15511567
    15521568    set inner [$itk_component(main) insert end \
    1553         -title "Terrain Settings" \
    1554         -icon [Rappture::icon surface]]
     1569        -title "Map Settings" \
     1570        -icon [Rappture::icon wrench]]
    15551571    $inner configure -borderwidth 4
    15561572
     
    15611577        -font "Arial 9" -anchor w
    15621578
    1563     checkbutton $inner.grid \
     1579    itk_component add grid {
     1580        checkbutton $inner.grid \
    15641581        -text "Show Graticule" \
    15651582        -variable [itcl::scope _settings(grid)] \
    15661583        -command [itcl::code $this AdjustSetting grid] \
    15671584        -font "Arial 9" -anchor w
     1585    } {
     1586        ignore -font
     1587    }
    15681588
    15691589    checkbutton $inner.wireframe \
     
    15841604        -command [itcl::code $this AdjustSetting terrain-edges] \
    15851605        -font "Arial 9" -anchor w
     1606
     1607    itk_component add time_l {
     1608        label $inner.time_l -text "Time" -font "Arial 9"
     1609    } {
     1610        ignore -font
     1611    }
     1612    itk_component add time {
     1613        ::scale $inner.time -from 0 -to 23.9 -orient horizontal \
     1614            -resolution 0.1 \
     1615            -variable [itcl::scope _settings(time)] \
     1616            -showvalue on \
     1617            -command [itcl::code $this AdjustSetting time]
     1618    }
     1619
     1620    blt::table $inner \
     1621        0,0 $inner.posdisp   -cspan 2 -anchor w -pady 2 \
     1622        1,0 $inner.grid      -cspan 2 -anchor w -pady 2 \
     1623        2,0 $inner.wireframe -cspan 2 -anchor w -pady 2 \
     1624        3,0 $inner.lighting  -cspan 2 -anchor w -pady 2 \
     1625        4,0 $inner.time_l    -cspan 2 -anchor w -pady 2 \
     1626        4,1 $inner.time      -cspan 2 -fill x   -pady 2
     1627#        4,0 $inner.edges     -cspan 2  -anchor w -pady 2
     1628
     1629    blt::table configure $inner r* c* -resize none
     1630    blt::table configure $inner r5 c1 -resize expand
     1631}
     1632
     1633itcl::body Rappture::MapViewer::BuildTerrainTab {} {
     1634
     1635    set fg [option get $itk_component(hull) font Font]
     1636    #set bfg [option get $itk_component(hull) boldFont Font]
     1637
     1638    set inner [$itk_component(main) insert end \
     1639        -title "Terrain Settings" \
     1640        -icon [Rappture::icon surface]]
     1641    $inner configure -borderwidth 4
    15861642
    15871643    label $inner.palette_l -text "Palette" -font "Arial 9" -anchor w
     
    16051661
    16061662    blt::table $inner \
    1607         0,0 $inner.posdisp   -cspan 2  -anchor w -pady 2 \
    1608         1,0 $inner.grid      -cspan 2  -anchor w -pady 2 \
    1609         2,0 $inner.wireframe -cspan 2  -anchor w -pady 2 \
    1610         3,0 $inner.lighting  -cspan 2  -anchor w -pady 2 \
    1611         4,0 $inner.edges     -cspan 2  -anchor w -pady 2 \
    1612         5,0 $inner.vscale_l  -anchor w -pady 2 \
    1613         5,1 $inner.vscale    -fill x   -pady 2 \
    1614         6,0 $inner.palette_l -anchor w -pady 2 \
    1615         6,1 $inner.palette   -fill x   -pady 2 
     1663        0,0 $inner.vscale_l  -anchor w -pady 2 \
     1664        0,1 $inner.vscale    -fill x   -pady 2 \
     1665        1,0 $inner.palette_l -anchor w -pady 2 \
     1666        1,1 $inner.palette   -fill x   -pady 2 
    16161667
    16171668    blt::table configure $inner r* c* -resize none
    1618     blt::table configure $inner r8 c1 -resize expand
     1669    blt::table configure $inner r3 c1 -resize expand
    16191670}
    16201671
Note: See TracChangeset for help on using the changeset viewer.