- Timestamp:
- Mar 4, 2016, 8:21:03 AM (8 years ago)
- Location:
- branches/1.5/gui/scripts
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.5/gui/scripts/analyzer.tcl
r6029 r6103 68 68 public method clear {{xmlobj "all"}} 69 69 public method download {option args} 70 public method buildMenu { w url appName } 70 71 71 72 protected method _plot {args} … … 104 105 private variable _wait_uq 0 105 106 106 private method BuildMenu { url }107 107 private method BuildSimulationTable { w } 108 108 private method Cancel {} … … 201 201 } 202 202 pack $itk_component(help) -side left 203 BuildMenu $url203 buildMenu $itk_component(help).menu $url $_appName 204 204 205 205 if 0 { … … 1559 1559 # Build Help menu 1560 1560 # 1561 itcl::body Rappture::Analyzer::BuildMenu { url } { 1562 set m $itk_component(help).menu 1563 itk_component add helpmenu { 1564 menu $itk_component(help).menu \ 1565 -tearoff 0 \ 1566 -postcommand [itcl::code $this PostMenu] 1567 } { 1568 ignore -tearoff 1569 } 1570 if { $_appName == "" || $url == "" } { 1561 itcl::body Rappture::Analyzer::buildMenu { m url appName } { 1562 menu $m \ 1563 -tearoff 0 \ 1564 -postcommand [itcl::code $this PostMenu] 1565 if { $appName == "" || $url == "" } { 1571 1566 set state disabled 1572 1567 } else { … … 1574 1569 } 1575 1570 $m add command -label "About this tool" \ 1576 -command [list Rappture::filexfer::webpage "$url/tools/$ _appName"] \1571 -command [list Rappture::filexfer::webpage "$url/tools/$appName"] \ 1577 1572 -state $state 1578 1573 $m add command -label "Questions?" \ -
branches/1.5/gui/scripts/main.tcl
r5984 r6103 261 261 262 262 # 263 # Add a place for about/questionsin the breadcrumbs area of this pager.263 # Add a place for menu button in the breadcrumbs area of this pager. 264 264 # 265 265 set app [string trim [$tool xml get tool.id]] 266 266 set url [Rappture::Tool::resources -huburl] 267 if 0 { 268 # The be elimimated with the menu changes 269 if { "" != $url && "" != $app } { 270 set f [$win.pager component breadcrumbarea] 271 frame $f.hubcntls 272 pack $f.hubcntls -side right -padx 4 273 label $f.hubcntls.icon -image [Rappture::icon ask] -highlightthickness 0 274 pack $f.hubcntls.icon -side left 275 button $f.hubcntls.about -text "About this tool" -command " 276 [list Rappture::filexfer::webpage $url/tools/$app] 277 Rappture::Logger::log help about 278 " 279 pack $f.hubcntls.about -side top -anchor w 280 button $f.hubcntls.questions -text Questions? -command " 281 [list Rappture::filexfer::webpage $url/resources/$app/questions] 282 Rappture::Logger::log help questions 283 " 284 pack $f.hubcntls.questions -side top -anchor w 285 } 286 } 287 288 set f [$win.pager component breadcrumbarea] 289 frame $f.hubcntls 290 pack $f.hubcntls -side right -padx 4 291 label $f.hubcntls.icon -image [Rappture::icon ask] -highlightthickness 0 292 pack $f.hubcntls.icon -side left 293 button $f.hubcntls.about \ 294 -text "About this tool" \ 295 -state disabled \ 296 -command " 297 [list Rappture::filexfer::webpage $url/tools/$app] 298 Rappture::Logger::log help about 299 " 300 pack $f.hubcntls.about -side top -anchor w 301 button $f.hubcntls.questions \ 302 -text Questions? \ 303 -state disabled \ 304 -command " 305 [list Rappture::filexfer::webpage $url/resources/$app/questions] 306 Rappture::Logger::log help questions 307 " 308 pack $f.hubcntls.questions -side top -anchor w 309 if { $url != "" && $app != "" } { 310 $f.hubcntls.about configure -state normal 311 $f.hubcntls.questions configure -state normal 312 } 267 set crumbs [$win.pager component breadcrumbarea] 268 frame $crumbs.hubcntls 269 pack $crumbs.hubcntls -side right -padx 4 270 271 set m $crumbs.hubcntls.help.menu 272 menubutton $crumbs.hubcntls.help \ 273 -image [Rappture::icon hamburger_menu] \ 274 -highlightthickness 0 \ 275 -menu $m 276 pack $crumbs.hubcntls.help -side top -anchor w 313 277 314 278 # … … 369 333 370 334 $tool notify add analyzer * [list $f.analyze reset] 335 $f.analyze buildMenu $m $url $app 336 371 337 372 338 # ----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.