SF.net SVN: frontierkernel: [1466] ODBs/trunk/frontierRoot/system/verbs/builtins/export/card/run.fvc

[<cre...@us...>]

Revision: 1466
Author:   creecode
Date:     2006-07-26 10:27:05 -0700 (Wed, 26 Jul 2006)
ViewCVS:  http://svn.sourceforge.net/frontierkernel/?rev=1466&view=rev

Log Message:
-----------
minor formatting tweaks

Modified Paths:
--------------
    ODBs/trunk/frontierRoot/system/verbs/builtins/export/card/run.fvc
Modified: ODBs/trunk/frontierRoot/system/verbs/builtins/export/card/run.fvc
===================================================================
--- ODBs/trunk/frontierRoot/system/verbs/builtins/export/card/run.fvc	2006-07-26 17:24:31 UTC (rev 1465)
+++ ODBs/trunk/frontierRoot/system/verbs/builtins/export/card/run.fvc	2006-07-26 17:27:05 UTC (rev 1466)
@@ -1,16 +1,28 @@
-FrontierVcsFile:1:scpt:system.verbs.builtins.export.card.run
+FrontierVcsFile:3:scpt:system.verbs.builtins.export.card.run
 
+«Changes
+	«5/14/06; 6:36:42 PM by TAC
+		«minor formatting tweaks
+
 export.init ();
-try { \xC7set user.export.lastaddress
+
+try { // set user.export.lastAddress
 	local (adr = address (window.frontmost ()));
-	if typeOf (adr^) == tabletype {
-		adr = table.getcursor ()};
-	user.export.lastaddress = adr};
+	
+	if typeOf (adr^) == tableType {
+		adr = table.getCursor ()};
+	
+	user.export.lastAddress = adr};
+
 user.export.ok = false;
+
 if kb.shiftKey () {
 	user.export.ok = true}
 else {
 	card.run (@export.card.theCard)};
+
 if user.export.ok {
 	with user.export {
-		export.card.doExport (lastaddress, lastkind, lastlocation, lastcompression)}}
\ No newline at end of file
+		export.card.doExport (lastAddress, lastKind, lastLocation, lastCompression)}}
+
+


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.