Revision: 44877
http://brlcad.svn.sourceforge.net/brlcad/?rev=44877&view=rev
Author: bhinesley
Date: 2011-06-10 02:43:47 +0000 (Fri, 10 Jun 2011)
Log Message:
-----------
Applied patch 3309910, submitted by myself. It makes Archer's opendb command
behave like more mged when no arguments are supplied. It prints the database
name if it is in memory only, or it prints the path to and name of the database
if it is saved on disk.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2011-06-10 02:17:00 UTC
(rev 44876)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2011-06-10 02:43:47 UTC
(rev 44877)
@@ -5234,13 +5234,15 @@
}
::itcl::body ArcherCore::opendb {args} {
- set len [llength $args]
+ set ret ""
- if {$len != 1} {
- return "Usage: opendb dbfile"
+ switch [llength $args] {
+ 0 {set ret $mTarget}
+ 1 {Load [lindex $args 0]}
+ default {set ret "Usage: opendb \[database.g\]"}
}
- Load [lindex $args 0]
+ return $ret
}
::itcl::body ArcherCore::orotate {args} {
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
