From 19bc278850b8a8cf60af6f904a9cc8f2defd2dff Mon Sep 17 00:00:00 2001
From: James Harkins <jamshark70@dewdrop-world.net>
Date: Sun, 3 Apr 2011 14:30:04 +0800
Subject: [PATCH] Fix nowExecutingPath bug in scel

Signed-off-by: Tim Blechmann <tim@klingt.org>
---
 sc/EmacsDocument.sc | 2 +-
 sc/ScelDocument.sc  | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/sc/EmacsDocument.sc b/sc/EmacsDocument.sc
index 6aa20de..e0ca652 100644
--- a/sc/EmacsDocument.sc
+++ b/sc/EmacsDocument.sc
@@ -21,7 +21,7 @@ EmacsDocument
 	classvar documentMap, <>current;
 	var <>sceld;
 	var title, path;
-	var dataptr;
+	var <dataptr;
 	var <isEdited, <isListener, <envir;
 
 	*initClass {
diff --git a/sc/ScelDocument.sc b/sc/ScelDocument.sc
index 575e9c5..dc16280 100644
--- a/sc/ScelDocument.sc
+++ b/sc/ScelDocument.sc
@@ -295,6 +295,8 @@ ScelDocument : Document{
 		^this.string( rangestart, rangesize );
 	}
 
+	dataptr { ^thisdoc.tryPerform(\dataptr) }
+
 	// not implemented:
 	selectRange { arg start=0, length=0; }
 	background_ {arg color, rangestart= -1, rangesize = 0;