Changeset 545 for trunk/ab5.0/ablib/TestCase/SimpleTestCase/SimpleTestCase.ab

Timestamp:

Jul 13, 2008, 2:09:01 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

ActiveBasic.Windows.UI.FormsをUIへ移動。UI以下にForms以外置くものが思い浮かばないので。

File:

• trunk/ab5.0/ablib/TestCase/SimpleTestCase/SimpleTestCase.ab (modified) (2 diffs)

trunk/ab5.0/ablib/TestCase/SimpleTestCase/SimpleTestCase.ab

@@ -6 +6 @@
 
 Function GetTempDirectory() As String
-    Return System.IO.Path.GetDirectoryName( System.Windows.Forms.Application.ExecutablePath ) + "\temp\"
-'   Return System.IO.Path.GetTempPath()
+'   Return System.IO.Path.GetDirectoryName( System.Windows.Forms.Application.ExecutablePath ) + "\temp\"
+    Return System.IO.Path.GetTempPath()
 End Function
 
@@ -26 +26 @@
 End Sub
 
-Initialize()
+'Initialize()
 
 Dim csbi As CONSOLE_SCREEN_BUFFER_INFO