Changeset 615 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/MakeControlEventHandler.ab

Timestamp:

Aug 24, 2008, 5:28:59 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

サブクラス化機構(Control.Attach)の整備

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/MakeControlEventHandler.ab (modified) (2 diffs)

trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/MakeControlEventHandler.ab

@@ -46 +46 @@
 '   out.WriteLine(Ex"\t@brief " & comment)
 '   out.WriteLine(Ex"\t*/")
-    out.WriteLine(Ex"\t" & staticKeyword & "Sub On" & eventName & "(e As " & argsType & ")")
+    out.WriteLine(Ex"\t" & staticKeyword & "Function On" & eventName & "(e As " & argsType & ") As Boolean")
     out.WriteLine(Ex"\t\tIf Not IsNothing(" & eventMember & ") Then")
     out.WriteLine(Ex"\t\t\t" & eventMember & "(This, e)")
+    out.WriteLine(Ex"\t\t\tReturn True")
     out.WriteLine(Ex"\t\tEnd If")
-    out.WriteLine(Ex"\tEnd Sub")
+    out.WriteLine(Ex"\tEnd Function")
     out.WriteLine("Private")
     out.WriteLine(Ex"\t" & staticKeyword & eventMember & " As " & handlerType)
@@ -72 +73 @@
                 Dim a = ActiveBasic.Strings.Detail.Split(s, 9) 'Tab
                 If a.Count >= 3 Then
-                    OutputEventHandlerCode(out, a[0], a[1], a[2], isStatic)
+                    OutputEventHandlerCode(out, a.Item[0], a.Item[1], a.Item[2], isStatic)
                 End If
             Loop