Преглед изворни кода

strat to implement chain of responsibility

Benjamin Van Ryseghem пре 11 година
родитељ
комит
9564ab77dd
2 измењених фајлова са 7 додато и 0 уклоњено
  1. 3 0
      js/Helios-Helpers.js
  2. 4 0
      st/Helios-Helpers.st

+ 3 - 0
js/Helios-Helpers.js

@@ -2,6 +2,9 @@ define("amber_core/Helios-Helpers", ["amber_vm/smalltalk", "amber_vm/nil", "ambe
 smalltalk.addPackage('Helios-Helpers');
 smalltalk.packages["Helios-Helpers"].transport = {"type":"amd","amdNamespace":"amber_core"};
 
+smalltalk.addClass('HLClassifierLink', smalltalk.Object, ['next'], 'Helios-Helpers');
+
+
 smalltalk.addClass('HLGenerationOutput', smalltalk.Object, ['sourceCodes', 'protocol', 'targetClass'], 'Helios-Helpers');
 smalltalk.HLGenerationOutput.comment="I am a simple data object used to store the result of a generation process";
 smalltalk.addMethod(

+ 4 - 0
st/Helios-Helpers.st

@@ -1,4 +1,8 @@
 Smalltalk current createPackage: 'Helios-Helpers'!
+Object subclass: #HLClassifierLink
+	instanceVariableNames: 'next'
+	package: 'Helios-Helpers'!
+
 Object subclass: #HLGenerationOutput
 	instanceVariableNames: 'sourceCodes protocol targetClass'
 	package: 'Helios-Helpers'!