Ring 1.10 以来となる開発環境の日本語ローカライズ版 (評価版) を追加 (ノートパッド、フォームデザイナー、対話型実行環境、ファイルの検索)。

[ring-lang-081/ring.git] / applications / rnote / source / rnoteactivefolder.ring

diff --git a/applications/rnote/source/rnoteactivefolder.ring b/applications/rnote/source/rnoteactivefolder.ring
new file mode 100644 (file)
index 0000000..8bf6636
--- /dev/null
+++ b/applications/rnote/source/rnoteactivefolder.ring
@@ -0,0 +1,22 @@
+# The Ring Notepad Application (RNote)
+# Author : Mahmoud Fayed <msfclipper@yahoo.com>
+
+class RNoteActiveFolder
+
+       func SaveCurrentFolder
+               oItem = tree1.currentindex()
+               if ofile.isdir(oItem)
+                       cStartupFolder = ofile.filepath(oItem)
+               else
+                       cFile = ofile.filepath(oItem)
+                       for t = len(cFile) to 1 step -1
+                               if cFile[t] = "/" or cFile[t] = "\"
+                                       cFile = left(cFile,t-1)
+                                       exit
+                               ok
+                       next
+                       cStartupFolder = cFile
+               ok
+
+       func GetActiveFolder
+               return cStartUpFolder