Revision: 44838
http://brlcad.svn.sourceforge.net/brlcad/?rev=44838&view=rev
Author: bhinesley
Date: 2011-06-08 23:15:22 +0000 (Wed, 08 Jun 2011)
Log Message:
-----------
Added getBrowser proc to make ManBrowser do the footwork
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/man_browser.tcl
Modified: brlcad/trunk/src/tclscripts/man_browser.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/man_browser.tcl 2011-06-08 23:13:25 UTC (rev
44837)
+++ brlcad/trunk/src/tclscripts/man_browser.tcl 2011-06-08 23:15:22 UTC (rev
44838)
@@ -47,6 +47,8 @@
method setPageNames {}
method loadPage {pageName}
method select {pageName}
+
+ proc getBrowser {}
}
private {
@@ -150,6 +152,10 @@
return $result
}
+::itcl::body ManBrowser::getBrowser {} {
+ return [itcl_info objects -class ManBrowser]
+}
+
::itcl::body ManBrowser::loadPage {pageName} {
# Get page
set pathname [file join $path $pageName.html]
@@ -249,7 +255,7 @@
}
bind $toc.toc_listbox <<ListboxSelect>> {
- set mb [itcl_info objects -class ManBrowser]
+ set mb [ManBrowser::getBrowser]
$mb loadPage [%W get [%W curselection]]
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
EditLive Enterprise is the world's most technically advanced content
authoring tool. Experience the power of Track Changes, Inline Image
Editing and ensure content is compliant with Accessibility Checking.
http://p.sf.net/sfu/ephox-dev2dev
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
