Pragmas in .js files.

src/Helios-Announcements.js

@@ -22,6 +22,7 @@ args: [],
 source: "actionBlock\x0a\x09^ actionBlock",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLAboutToChange);
@@ -41,6 +42,7 @@ args: ["aBlock"],
 source: "actionBlock: aBlock\x0a\x09actionBlock := aBlock",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLAboutToChange);
@@ -66,6 +68,7 @@ args: [],
 source: "heliosClass\x0a\x09^ 'announcement'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLAnnouncement.a$cls);
@@ -89,6 +92,7 @@ args: [],
 source: "code\x0a\x0a\x09^ code",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCodeHandled);
@@ -108,6 +112,7 @@ args: ["aModel"],
 source: "code: aModel\x0a\x0a\x09code := aModel",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCodeHandled);
@@ -135,6 +140,7 @@ args: ["aCodeModel"],
 source: "on: aCodeModel\x0a\x0a\x09^ self new \x0a    \x09code: aCodeModel;\x0a        yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["code:", "new", "yourself"]
 }),
 $globals.HLCodeHandled.a$cls);
@@ -164,6 +170,7 @@ args: [],
 source: "context\x0a\x09^ context",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLDebuggerAnnouncement);
@@ -183,6 +190,7 @@ args: ["aContext"],
 source: "context: aContext\x0a\x09context := aContext",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLDebuggerAnnouncement);
@@ -207,6 +215,7 @@ args: [],
 source: "context\x0a\x09^ context",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLDebuggerContextSelected);
@@ -226,6 +235,7 @@ args: ["aContext"],
 source: "context: aContext\x0a\x09context := aContext",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLDebuggerContextSelected);
@@ -262,6 +272,7 @@ args: [],
 source: "error\x0a\x09^ error",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLErrorRaised);
@@ -281,6 +292,7 @@ args: ["anError"],
 source: "error: anError\x0a\x09error := anError",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLErrorRaised);
@@ -305,6 +317,7 @@ args: [],
 source: "column\x0a\x09^ column",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLParseErrorRaised);
@@ -324,6 +337,7 @@ args: ["anInteger"],
 source: "column: anInteger\x0a\x09column := anInteger",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLParseErrorRaised);
@@ -342,6 +356,7 @@ args: [],
 source: "line\x0a\x09^ line",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLParseErrorRaised);
@@ -361,6 +376,7 @@ args: ["anInteger"],
 source: "line: anInteger\x0a\x09line := anInteger",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLParseErrorRaised);
@@ -379,6 +395,7 @@ args: [],
 source: "message\x0a\x09^ message",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLParseErrorRaised);
@@ -398,6 +415,7 @@ args: ["aString"],
 source: "message: aString\x0a\x09message := aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLParseErrorRaised);
@@ -443,6 +461,7 @@ args: [],
 source: "theClass\x0a\x09^ theClass",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInstVarAdded);
@@ -462,6 +481,7 @@ args: ["aClass"],
 source: "theClass: aClass\x0a\x09theClass := aClass",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInstVarAdded);
@@ -480,6 +500,7 @@ args: [],
 source: "variableName\x0a\x09^ variableName",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInstVarAdded);
@@ -499,6 +520,7 @@ args: ["aString"],
 source: "variableName: aString\x0a\x09variableName := aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInstVarAdded);
@@ -520,6 +542,7 @@ args: [],
 source: "item\x0a\x09^ item",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLItemSelected);
@@ -539,6 +562,7 @@ args: ["anObject"],
 source: "item: anObject\x0a\x09item := anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLItemSelected);
@@ -566,6 +590,7 @@ args: ["anItem"],
 source: "on: anItem\x0a\x09^ self new\x0a    \x09item: anItem;\x0a        yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["item:", "new", "yourself"]
 }),
 $globals.HLItemSelected.a$cls);
@@ -601,6 +626,7 @@ args: [],
 source: "item\x0a\x09^ item",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLItemUnselected);
@@ -620,6 +646,7 @@ args: ["anObject"],
 source: "item: anObject\x0a\x09item := anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLItemUnselected);
@@ -647,6 +674,7 @@ args: ["anItem"],
 source: "on: anItem\x0a\x09^ self new\x0a    \x09item: anItem;\x0a        yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["item:", "new", "yourself"]
 }),
 $globals.HLItemUnselected.a$cls);
@@ -673,6 +701,7 @@ args: [],
 source: "testSuiteRunner\x0a\x09^ testSuiteRunner",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLRunTests);
@@ -692,6 +721,7 @@ args: ["anObject"],
 source: "testSuiteRunner: anObject\x0a\x09testSuiteRunner := anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLRunTests);
@@ -719,6 +749,7 @@ args: ["aTestSuiteRunner"],
 source: "on: aTestSuiteRunner\x0a\x09^self new\x0a\x09\x09testSuiteRunner: aTestSuiteRunner;\x0a\x09\x09yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["testSuiteRunner:", "new", "yourself"]
 }),
 $globals.HLRunTests.a$cls);
@@ -742,6 +773,7 @@ args: [],
 source: "searchString\x0a\x09^ searchString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSearchReferences);
@@ -761,6 +793,7 @@ args: ["aString"],
 source: "searchString: aString\x0a\x09searchString := aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSearchReferences);
@@ -788,6 +821,7 @@ args: [],
 source: "template\x0a\x09^ template",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLShowTemplate);
@@ -807,6 +841,7 @@ args: ["aString"],
 source: "template: aString\x0a\x09template := aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLShowTemplate);
@@ -831,6 +866,7 @@ args: [],
 source: "label\x0a\x09^ label",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLTabLabelChanged);
@@ -850,6 +886,7 @@ args: ["aString"],
 source: "label: aString\x0a\x09label := aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLTabLabelChanged);
@@ -868,6 +905,7 @@ args: [],
 source: "widget\x0a\x09^ widget",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLTabLabelChanged);
@@ -887,6 +925,7 @@ args: ["aWidget"],
 source: "widget: aWidget\x0a\x09widget := aWidget",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLTabLabelChanged);

src/Helios-Browser-Tests.js

@@ -28,6 +28,7 @@ args: [],
 source: "setUp\x0a\x09browser := HLBrowserModel new.",
 referencedClasses: ["HLBrowserModel"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["new"]
 }),
 $globals.HLBrowserTest);
@@ -60,6 +61,7 @@ args: [],
 source: "testAllProtocolsSelectedWhenSelectingAClass\x0a\x09self assert: browser selectedProtocol isNil.\x0a\x09browser selectedClass: Object.\x0a\x09self assert: browser selectedProtocol equals: browser allProtocol.",
 referencedClasses: ["Object"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["assert:", "isNil", "selectedProtocol", "selectedClass:", "assert:equals:", "allProtocol"]
 }),
 $globals.HLBrowserTest);
@@ -105,6 +107,7 @@ args: [],
 source: "testProtocolSelectedWhenChangingClass\x0a\x09| protocolSelectedCalled |\x0a\x09protocolSelectedCalled := 0.\x0a\x09browser announcer on: HLProtocolSelected do: [protocolSelectedCalled := protocolSelectedCalled + 1] for: self.\x0a\x09browser selectedClass: Object.\x0a\x09self assert: protocolSelectedCalled equals: 1.\x0a\x09browser selectedClass: ProtoObject.\x0a\x09self assert: protocolSelectedCalled equals: 2.",
 referencedClasses: ["HLProtocolSelected", "Object", "ProtoObject"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:do:for:", "announcer", "+", "selectedClass:", "assert:equals:"]
 }),
 $globals.HLBrowserTest);

src/Helios-Commands-Browser.js

@@ -25,6 +25,7 @@ args: ["aModel"],
 source: "isValidFor: aModel\x0a\x09^ aModel isBrowserModel",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["isBrowserModel"]
 }),
 $globals.HLBrowserCommand.a$cls);
@@ -51,6 +52,7 @@ args: ["aModel"],
 source: "isValidFor: aModel\x0a\x09^ aModel isBrowserModel",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["isBrowserModel"]
 }),
 $globals.HLBrowserGoToCommand.a$cls);
@@ -69,6 +71,7 @@ args: [],
 source: "key\x0a\x09^ 'g'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBrowserGoToCommand.a$cls);
@@ -87,6 +90,7 @@ args: [],
 source: "label\x0a\x09^ 'Go to'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBrowserGoToCommand.a$cls);
@@ -113,6 +117,7 @@ args: [],
 source: "execute\x0a\x09self model focusOnClasses",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["focusOnClasses", "model"]
 }),
 $globals.HLGoToClassesCommand);
@@ -132,6 +137,7 @@ args: [],
 source: "key\x0a\x09^ 'c'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGoToClassesCommand.a$cls);
@@ -150,6 +156,7 @@ args: [],
 source: "label\x0a\x09^ 'Classes'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGoToClassesCommand.a$cls);
@@ -176,6 +183,7 @@ args: [],
 source: "execute\x0a\x09self model focusOnDocumentation",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["focusOnDocumentation", "model"]
 }),
 $globals.HLGoToDocumentationCommand);
@@ -195,6 +203,7 @@ args: [],
 source: "key\x0a\x09^ 'd'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGoToDocumentationCommand.a$cls);
@@ -213,6 +222,7 @@ args: [],
 source: "label\x0a\x09^ 'Documentation'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGoToDocumentationCommand.a$cls);
@@ -239,6 +249,7 @@ args: [],
 source: "execute\x0a\x09self model focusOnMethods",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["focusOnMethods", "model"]
 }),
 $globals.HLGoToMethodsCommand);
@@ -258,6 +269,7 @@ args: [],
 source: "key\x0a\x09^ 'm'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGoToMethodsCommand.a$cls);
@@ -276,6 +288,7 @@ args: [],
 source: "label\x0a\x09^ 'Methods'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGoToMethodsCommand.a$cls);
@@ -302,6 +315,7 @@ args: [],
 source: "execute\x0a\x09self model focusOnPackages",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["focusOnPackages", "model"]
 }),
 $globals.HLGoToPackagesCommand);
@@ -321,6 +335,7 @@ args: [],
 source: "key\x0a\x09^ 'p'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGoToPackagesCommand.a$cls);
@@ -339,6 +354,7 @@ args: [],
 source: "label\x0a\x09^ 'Packages'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGoToPackagesCommand.a$cls);
@@ -365,6 +381,7 @@ args: [],
 source: "execute\x0a\x09self model focusOnProtocols",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["focusOnProtocols", "model"]
 }),
 $globals.HLGoToProtocolsCommand);
@@ -384,6 +401,7 @@ args: [],
 source: "key\x0a\x09^ 't'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGoToProtocolsCommand.a$cls);
@@ -402,6 +420,7 @@ args: [],
 source: "label\x0a\x09^ 'Protocols'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGoToProtocolsCommand.a$cls);
@@ -428,6 +447,7 @@ args: [],
 source: "execute\x0a\x09self model focusOnSourceCode",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["focusOnSourceCode", "model"]
 }),
 $globals.HLGoToSourceCodeCommand);
@@ -447,6 +467,7 @@ args: [],
 source: "key\x0a\x09^ 's'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGoToSourceCodeCommand.a$cls);
@@ -465,6 +486,7 @@ args: [],
 source: "label\x0a\x09^ 'Source code'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGoToSourceCodeCommand.a$cls);
@@ -491,6 +513,7 @@ args: [],
 source: "execute\x0a\x09self model editComment",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["editComment", "model"]
 }),
 $globals.HLEditCommentCommand);
@@ -528,6 +551,7 @@ args: [],
 source: "isActive\x0a\x09^ self model showComment and: [ self model selectedClass notNil ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["and:", "showComment", "model", "notNil", "selectedClass"]
 }),
 $globals.HLEditCommentCommand);
@@ -547,6 +571,7 @@ args: [],
 source: "key\x0a\x09^ 'd'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLEditCommentCommand.a$cls);
@@ -565,6 +590,7 @@ args: [],
 source: "label\x0a\x09^ 'Edit documentation'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLEditCommentCommand.a$cls);
@@ -589,6 +615,7 @@ args: [],
 source: "key\x0a\x09^ 'h'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGenerateCommand.a$cls);
@@ -607,6 +634,7 @@ args: [],
 source: "label\x0a\x09^ 'Generate'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGenerateCommand.a$cls);
@@ -647,6 +675,7 @@ args: [],
 source: "execute\x0a\x09| targetClass unclassified |\x0a\x09targetClass := self model selectedClass.\x0a\x0a\x09unclassified := targetClass methods select:[ :e | e protocol = 'as yet unclassified' ].\x0a\x09\x09\x0a\x09HLMethodClassifier new\x0a\x09\x09classifyAll: unclassified",
 referencedClasses: ["HLMethodClassifier"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectedClass", "model", "select:", "methods", "=", "protocol", "classifyAll:", "new"]
 }),
 $globals.HLCategorizeUnclassifiedCommand);
@@ -666,6 +695,7 @@ args: [],
 source: "key\x0a\x09^ 'c'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCategorizeUnclassifiedCommand.a$cls);
@@ -684,6 +714,7 @@ args: [],
 source: "label\x0a\x09^ 'Categorize'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCategorizeUnclassifiedCommand.a$cls);
@@ -729,6 +760,7 @@ args: [],
 source: "execute\x0a\x09| targetClass output first |\x0a\x09targetClass := self model selectedClass.\x0a\x0a\x09output := HLInitializeGenerator new\x0a\x09\x09class: targetClass;\x0a\x09\x09generate;\x0a\x09\x09output.\x0a\x09\x09\x0a\x09output compile.\x0a\x09first := output sourceCodes first.\x0a\x09self model\x0a\x09\x09selectedProtocol: output protocol;\x0a\x09\x09selectedMethod:(targetClass>>first selector);\x0a\x09\x09focusOnSourceCode",
 referencedClasses: ["HLInitializeGenerator"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectedClass", "model", "class:", "new", "generate", "output", "compile", "first", "sourceCodes", "selectedProtocol:", "protocol", "selectedMethod:", ">>", "selector", "focusOnSourceCode"]
 }),
 $globals.HLGenerateAccessorsCommand);
@@ -748,6 +780,7 @@ args: [],
 source: "key\x0a\x09^ 'i'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGenerateAccessorsCommand.a$cls);
@@ -766,6 +799,7 @@ args: [],
 source: "label\x0a\x09^ 'Initialize'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGenerateAccessorsCommand.a$cls);
@@ -807,6 +841,7 @@ args: [],
 source: "execute\x0a\x09| targetClass output |\x0a\x09targetClass := self model selectedClass.\x0a\x0a\x09output := HLAccessorsGenerator new\x0a\x09\x09class: targetClass;\x0a\x09\x09generate;\x0a\x09\x09output.\x0a\x09\x09\x0a\x09output compile.\x0a\x09self model selectedProtocol: output protocol",
 referencedClasses: ["HLAccessorsGenerator"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectedClass", "model", "class:", "new", "generate", "output", "compile", "selectedProtocol:", "protocol"]
 }),
 $globals.HLGenerateInitializeCommand);
@@ -826,6 +861,7 @@ args: [],
 source: "key\x0a\x09^ 'a'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGenerateInitializeCommand.a$cls);
@@ -844,6 +880,7 @@ args: [],
 source: "label\x0a\x09^ 'Accessors'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGenerateInitializeCommand.a$cls);
@@ -865,6 +902,7 @@ args: [],
 source: "key\x0a\x09^ 't'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLToggleCommand.a$cls);
@@ -883,6 +921,7 @@ args: [],
 source: "label\x0a\x09^ 'Toggle'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLToggleCommand.a$cls);
@@ -914,6 +953,7 @@ args: [],
 source: "execute\x0a\x09self model showComment: self model showComment not",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["showComment:", "model", "not", "showComment"]
 }),
 $globals.HLToggleClassCommentCommand);
@@ -933,6 +973,7 @@ args: [],
 source: "key\x0a\x09^ 'd'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLToggleClassCommentCommand.a$cls);
@@ -951,6 +992,7 @@ args: [],
 source: "label\x0a\x09^ 'Documentation'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLToggleClassCommentCommand.a$cls);
@@ -982,6 +1024,7 @@ args: [],
 source: "execute\x0a\x09self model showInstance: self model showInstance not",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["showInstance:", "model", "not", "showInstance"]
 }),
 $globals.HLToggleClassSideCommand);
@@ -1001,6 +1044,7 @@ args: [],
 source: "key\x0a\x09^ 'c'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLToggleClassSideCommand.a$cls);
@@ -1019,6 +1063,7 @@ args: [],
 source: "label\x0a\x09^ 'Class side'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLToggleClassSideCommand.a$cls);

src/Helios-Commands-Core.js

@@ -27,6 +27,7 @@ args: [],
 source: "asActionBinding\x0a\x09^ (HLBindingAction on: self keyCode labelled: self label)\x0a    \x09command: self;\x0a\x09\x09yourself",
 referencedClasses: ["HLBindingAction"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["command:", "on:labelled:", "keyCode", "label", "yourself"]
 }),
 $globals.HLCommand);
@@ -56,6 +57,7 @@ args: [],
 source: "asBinding\x0a\x09^ self isBindingGroup\x0a\x09\x09ifTrue: [ self asGroupBinding ]\x0a\x09\x09ifFalse: [ self asActionBinding ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:ifFalse:", "isBindingGroup", "asGroupBinding", "asActionBinding"]
 }),
 $globals.HLCommand);
@@ -79,6 +81,7 @@ args: [],
 source: "asGroupBinding\x0a\x09^ HLBindingGroup \x0a\x09\x09on: self keyCode\x0a\x09\x09labelled: self label",
 referencedClasses: ["HLBindingGroup"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:labelled:", "keyCode", "label"]
 }),
 $globals.HLCommand);
@@ -103,6 +106,7 @@ args: ["aString"],
 source: "commandError: aString\x0a\x09self error: aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["error:"]
 }),
 $globals.HLCommand);
@@ -121,6 +125,7 @@ args: [],
 source: "defaultInput\x0a\x09^ ''",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCommand);
@@ -144,6 +149,7 @@ args: [],
 source: "documentation\x0a\x09^ self class documentation",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["documentation", "class"]
 }),
 $globals.HLCommand);
@@ -162,6 +168,7 @@ args: [],
 source: "execute",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCommand);
@@ -180,6 +187,7 @@ args: [],
 source: "input\x0a\x09^ input",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCommand);
@@ -201,6 +209,7 @@ args: ["aString"],
 source: "input: aString\x0a\x09^ input := aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCommand);
@@ -219,6 +228,7 @@ args: [],
 source: "inputCompletion\x0a\x09^ #()",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCommand);
@@ -242,6 +252,7 @@ args: [],
 source: "inputLabel\x0a\x09^ self label",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["label"]
 }),
 $globals.HLCommand);
@@ -265,6 +276,7 @@ args: [],
 source: "isAction\x0a\x09^ self isBindingGroup not",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["not", "isBindingGroup"]
 }),
 $globals.HLCommand);
@@ -283,6 +295,7 @@ args: [],
 source: "isActive\x0a\x09^ true",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCommand);
@@ -306,6 +319,7 @@ args: [],
 source: "isBindingGroup\x0a\x09^ (self class methodDictionary includesKey: 'execute') not",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["not", "includesKey:", "methodDictionary", "class"]
 }),
 $globals.HLCommand);
@@ -324,6 +338,7 @@ args: [],
 source: "isInputRequired\x0a\x09^ false",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCommand);
@@ -347,6 +362,7 @@ args: [],
 source: "key\x0a\x09^ self class key",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["key", "class"]
 }),
 $globals.HLCommand);
@@ -370,6 +386,7 @@ args: [],
 source: "keyCode\x0a\x09^ self key asUppercase charCodeAt: 1",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["charCodeAt:", "asUppercase", "key"]
 }),
 $globals.HLCommand);
@@ -393,6 +410,7 @@ args: [],
 source: "label\x0a\x09^ self class label",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["label", "class"]
 }),
 $globals.HLCommand);
@@ -416,6 +434,7 @@ args: [],
 source: "menuLabel\x0a\x09^ self class menuLabel",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["menuLabel", "class"]
 }),
 $globals.HLCommand);
@@ -439,6 +458,7 @@ args: ["aBinding"],
 source: "registerOn: aBinding\x0a\x09^ aBinding add: self asBinding",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["add:", "asBinding"]
 }),
 $globals.HLCommand);
@@ -479,6 +499,7 @@ args: [],
 source: "concreteClasses\x0a\x09| classes |\x0a\x09\x0a\x09classes := OrderedCollection new.\x0a\x09\x0a\x09self isConcrete\x0a\x09\x09ifTrue: [ classes add: self ].\x0a\x09\x09\x0a\x09self subclasses do: [ :each | \x0a\x09\x09classes addAll: each concreteClasses ].\x0a\x09\x09\x0a\x09^ classes",
 referencedClasses: ["OrderedCollection"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["new", "ifTrue:", "isConcrete", "add:", "do:", "subclasses", "addAll:", "concreteClasses"]
 }),
 $globals.HLCommand.a$cls);
@@ -497,6 +518,7 @@ args: [],
 source: "documentation\x0a\x09^ ''",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCommand.a$cls);
@@ -520,6 +542,7 @@ args: [],
 source: "isConcrete\x0a\x09^ self key notNil",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["notNil", "key"]
 }),
 $globals.HLCommand.a$cls);
@@ -538,6 +561,7 @@ args: ["aModel"],
 source: "isValidFor: aModel\x0a\x09^ true",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCommand.a$cls);
@@ -556,6 +580,7 @@ args: [],
 source: "key\x0a\x09\x22Answer a single character string or nil if no key\x22\x0a\x09\x0a\x09^ nil",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCommand.a$cls);
@@ -574,6 +599,7 @@ args: [],
 source: "label\x0a\x09^ ''",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCommand.a$cls);
@@ -597,6 +623,7 @@ args: [],
 source: "menuLabel\x0a\x09^ self label",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["label"]
 }),
 $globals.HLCommand.a$cls);
@@ -639,6 +666,7 @@ args: ["aBinding"],
 source: "registerConcreteClassesOn: aBinding\x0a\x09| newBinding |\x0a\x09\x0a\x09self isConcrete\x0a\x09\x09ifTrue: [ newBinding := self registerOn: aBinding ]\x0a\x09\x09ifFalse: [ newBinding := aBinding ].\x0a\x09\x09\x0a\x09self subclasses do: [ :each | each registerConcreteClassesOn: newBinding ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:ifFalse:", "isConcrete", "registerOn:", "do:", "subclasses", "registerConcreteClassesOn:"]
 }),
 $globals.HLCommand.a$cls);
@@ -662,6 +690,7 @@ args: ["aBinding"],
 source: "registerOn: aBinding\x0a\x09^ self new registerOn: aBinding",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["registerOn:", "new"]
 }),
 $globals.HLCommand.a$cls);
@@ -688,6 +717,7 @@ args: [],
 source: "execute\x0a\x09HLManager current removeActiveTab",
 referencedClasses: ["HLManager"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["removeActiveTab", "current"]
 }),
 $globals.HLCloseTabCommand);
@@ -707,6 +737,7 @@ args: [],
 source: "key\x0a\x09^ 'w'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCloseTabCommand.a$cls);
@@ -725,6 +756,7 @@ args: [],
 source: "label\x0a\x09^ 'Close tab'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCloseTabCommand.a$cls);
@@ -745,6 +777,7 @@ args: [],
 source: "model\x0a\x09^ model",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLModelCommand);
@@ -764,6 +797,7 @@ args: ["aModel"],
 source: "model: aModel\x0a\x09model := aModel",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLModelCommand);
@@ -788,6 +822,7 @@ args: ["aModel"],
 source: "for: aModel\x0a\x09^ self new",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["new"]
 }),
 $globals.HLModelCommand.a$cls);
@@ -838,6 +873,7 @@ args: ["aBinding", "aModel"],
 source: "registerConcreteClassesOn: aBinding for: aModel\x0a\x09| newBinding |\x0a\x09\x0a\x09(self isConcrete and: [ self isValidFor: aModel ])\x0a\x09\x09ifTrue: [ newBinding := self registerOn: aBinding for: aModel ]\x0a\x09\x09ifFalse: [ newBinding := aBinding ].\x0a\x09\x09\x0a\x09self subclasses do: [ :each |\x0a\x09\x09each registerConcreteClassesOn: newBinding for: aModel ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:ifFalse:", "and:", "isConcrete", "isValidFor:", "registerOn:for:", "do:", "subclasses", "registerConcreteClassesOn:for:"]
 }),
 $globals.HLModelCommand.a$cls);
@@ -861,6 +897,7 @@ args: ["aBinding", "aModel"],
 source: "registerOn: aBinding for: aModel\x0a\x09^ (self for: aModel) registerOn: aBinding",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["registerOn:", "for:"]
 }),
 $globals.HLModelCommand.a$cls);
@@ -882,6 +919,7 @@ args: [],
 source: "key\x0a\x09^ 'o'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLOpenCommand.a$cls);
@@ -900,6 +938,7 @@ args: [],
 source: "label\x0a\x09^ 'Open'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLOpenCommand.a$cls);
@@ -925,6 +964,7 @@ args: [],
 source: "execute\x0a\x09^ HLBrowser openAsTab",
 referencedClasses: ["HLBrowser"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["openAsTab"]
 }),
 $globals.HLOpenBrowserCommand);
@@ -944,6 +984,7 @@ args: [],
 source: "key\x0a\x09^ 'b'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLOpenBrowserCommand.a$cls);
@@ -962,6 +1003,7 @@ args: [],
 source: "label\x0a\x09^ 'Browser'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLOpenBrowserCommand.a$cls);
@@ -987,6 +1029,7 @@ args: [],
 source: "execute\x0a\x09^ HLSUnit openAsTab",
 referencedClasses: ["HLSUnit"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["openAsTab"]
 }),
 $globals.HLOpenSUnitCommand);
@@ -1006,6 +1049,7 @@ args: [],
 source: "key\x0a\x09^ 's'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLOpenSUnitCommand.a$cls);
@@ -1024,6 +1068,7 @@ args: [],
 source: "label\x0a\x09^ 'SUnit'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLOpenSUnitCommand.a$cls);
@@ -1049,6 +1094,7 @@ args: [],
 source: "execute\x0a\x09^ HLWorkspace openAsTab",
 referencedClasses: ["HLWorkspace"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["openAsTab"]
 }),
 $globals.HLOpenWorkspaceCommand);
@@ -1068,6 +1114,7 @@ args: [],
 source: "key\x0a\x09^ 'w'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLOpenWorkspaceCommand.a$cls);
@@ -1086,6 +1133,7 @@ args: [],
 source: "label\x0a\x09^ 'Workspace'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLOpenWorkspaceCommand.a$cls);
@@ -1150,6 +1198,7 @@ args: [],
 source: "execute\x0a\x09| activeTab |\x0a\x09\x0a\x09activeTab := self selectedTab.\x0a\x09\x0a\x09^ HLTabSelectionWidget new\x0a\x09\x09tabs: self tabs;\x0a\x09\x09selectedTab: self selectedTab;\x0a\x09\x09selectCallback: [ :tab | tab activate ];\x0a\x09\x09confirmCallback: [ :tab | tab focus ];\x0a\x09\x09cancelCallback: [ activeTab activate ];\x0a\x09\x09show",
 referencedClasses: ["HLTabSelectionWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectedTab", "tabs:", "new", "tabs", "selectedTab:", "selectCallback:", "activate", "confirmCallback:", "focus", "cancelCallback:", "show"]
 }),
 $globals.HLSwitchTabCommand);
@@ -1173,6 +1222,7 @@ args: [],
 source: "selectedTab\x0a\x09^ HLManager current activeTab",
 referencedClasses: ["HLManager"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["activeTab", "current"]
 }),
 $globals.HLSwitchTabCommand);
@@ -1196,6 +1246,7 @@ args: [],
 source: "tabs\x0a\x09^ HLManager current tabs",
 referencedClasses: ["HLManager"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["tabs", "current"]
 }),
 $globals.HLSwitchTabCommand);
@@ -1215,6 +1266,7 @@ args: [],
 source: "key\x0a\x09^ 's'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSwitchTabCommand.a$cls);
@@ -1233,6 +1285,7 @@ args: [],
 source: "label\x0a\x09^ 'Switch tab'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSwitchTabCommand.a$cls);
@@ -1254,6 +1307,7 @@ args: [],
 source: "label\x0a\x09^ 'View'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLViewCommand.a$cls);

src/Helios-Commands-SUnit.js

@@ -28,6 +28,7 @@ args: ["aModel"],
 source: "isValidFor: aModel\x0a\x09^ aModel isKindOf: HLSUnitModel",
 referencedClasses: ["HLSUnitModel"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["isKindOf:"]
 }),
 $globals.HLSUnitCommand.a$cls);
@@ -52,6 +53,7 @@ args: [],
 source: "key\x0a\x09^ 'i'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitInvertSelectedCommand.a$cls);
@@ -70,6 +72,7 @@ args: [],
 source: "label\x0a\x09^'Invert selection'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitInvertSelectedCommand.a$cls);
@@ -93,6 +96,7 @@ args: [],
 source: "category\x0a\x09^'Classes'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitInvertSelectedClassesCommand);
@@ -117,6 +121,7 @@ args: [],
 source: "execute\x0a\x09self model invertSelectedClasses",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["invertSelectedClasses", "model"]
 }),
 $globals.HLSUnitInvertSelectedClassesCommand);
@@ -140,6 +145,7 @@ args: [],
 source: "isActive\x0a\x09^model selectedPackages notEmpty",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["notEmpty", "selectedPackages"]
 }),
 $globals.HLSUnitInvertSelectedClassesCommand);
@@ -159,6 +165,7 @@ args: [],
 source: "key\x0a\x09^ 'c'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitInvertSelectedClassesCommand.a$cls);
@@ -177,6 +184,7 @@ args: [],
 source: "label\x0a\x09^ 'Invert selected classes'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitInvertSelectedClassesCommand.a$cls);
@@ -200,6 +208,7 @@ args: [],
 source: "category\x0a\x09^'Packages'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitInvertSelectedPackagesCommand);
@@ -224,6 +233,7 @@ args: [],
 source: "execute\x0a\x09self model invertSelectedPackages",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["invertSelectedPackages", "model"]
 }),
 $globals.HLSUnitInvertSelectedPackagesCommand);
@@ -242,6 +252,7 @@ args: [],
 source: "isActive\x0a\x09^true",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitInvertSelectedPackagesCommand);
@@ -261,6 +272,7 @@ args: [],
 source: "key\x0a\x09^ 'p'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitInvertSelectedPackagesCommand.a$cls);
@@ -279,6 +291,7 @@ args: [],
 source: "label\x0a\x09^ 'Invert selected packages'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitInvertSelectedPackagesCommand.a$cls);
@@ -308,6 +321,7 @@ args: [],
 source: "execute\x0a\x09self model runTests",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["runTests", "model"]
 }),
 $globals.HLSUnitRunTests);
@@ -326,6 +340,7 @@ args: [],
 source: "isActive\x0a\x09^true",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitRunTests);
@@ -345,6 +360,7 @@ args: [],
 source: "key\x0a\x09^'r'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitRunTests.a$cls);
@@ -363,6 +379,7 @@ args: [],
 source: "label\x0a\x09^'Run Tests'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitRunTests.a$cls);
@@ -387,6 +404,7 @@ args: [],
 source: "key\x0a\x09^ 'a'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitSelectAllCommand.a$cls);
@@ -405,6 +423,7 @@ args: [],
 source: "label\x0a\x09^ 'Select all'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitSelectAllCommand.a$cls);
@@ -428,6 +447,7 @@ args: [],
 source: "category\x0a\x09^'Classes'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitSelectAllClassesCommand);
@@ -452,6 +472,7 @@ args: [],
 source: "execute\x0a\x09self model selectAllClasses",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectAllClasses", "model"]
 }),
 $globals.HLSUnitSelectAllClassesCommand);
@@ -475,6 +496,7 @@ args: [],
 source: "isActive\x0a\x09^model selectedPackages notEmpty",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["notEmpty", "selectedPackages"]
 }),
 $globals.HLSUnitSelectAllClassesCommand);
@@ -494,6 +516,7 @@ args: [],
 source: "key\x0a\x09^ 'c'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitSelectAllClassesCommand.a$cls);
@@ -512,6 +535,7 @@ args: [],
 source: "label\x0a\x09^ 'Select all classes'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitSelectAllClassesCommand.a$cls);
@@ -535,6 +559,7 @@ args: [],
 source: "category\x0a\x09^'Packages'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitSelectAllPackagesCommand);
@@ -559,6 +584,7 @@ args: [],
 source: "execute\x0a\x09self model selectAllPackages",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectAllPackages", "model"]
 }),
 $globals.HLSUnitSelectAllPackagesCommand);
@@ -577,6 +603,7 @@ args: [],
 source: "isActive\x0a\x09^true",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitSelectAllPackagesCommand);
@@ -596,6 +623,7 @@ args: [],
 source: "key\x0a\x09^ 'p'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitSelectAllPackagesCommand.a$cls);
@@ -614,6 +642,7 @@ args: [],
 source: "label\x0a\x09^ 'Select all packages'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitSelectAllPackagesCommand.a$cls);

src/Helios-Debugger.js

@@ -23,6 +23,7 @@ args: [],
 source: "context\x0a\x09^ context",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLContextInspectorDecorator);
@@ -46,6 +47,7 @@ args: ["aString", "anEvaluator"],
 source: "evaluate: aString on: anEvaluator\x0a\x09^ self context evaluate: aString on: anEvaluator",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["evaluate:on:", "context"]
 }),
 $globals.HLContextInspectorDecorator);
@@ -65,6 +67,7 @@ args: ["aContext"],
 source: "initializeFromContext: aContext\x0a\x09context := aContext",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLContextInspectorDecorator);
@@ -134,6 +137,7 @@ args: ["anInspector"],
 source: "inspectOn: anInspector\x0a\x09| variables inspectedContext |\x0a\x09\x0a\x09variables := Dictionary new.\x0a\x09inspectedContext := self context.\x0a\x09\x0a\x09variables addAll: inspectedContext locals.\x0a\x09\x0a\x09[ inspectedContext notNil and: [ inspectedContext isBlockContext ] ] whileTrue: [\x0a\x09\x09inspectedContext := inspectedContext outerContext.\x0a\x09\x09inspectedContext ifNotNil: [\x0a\x09\x09\x09variables addAll: inspectedContext locals ] ].\x0a\x09\x0a\x09anInspector\x0a\x09\x09setLabel: 'Context';\x0a\x09\x09setVariables: variables",
 referencedClasses: ["Dictionary"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["new", "context", "addAll:", "locals", "whileTrue:", "and:", "notNil", "isBlockContext", "outerContext", "ifNotNil:", "setLabel:", "setVariables:"]
 }),
 $globals.HLContextInspectorDecorator);
@@ -161,6 +165,7 @@ args: ["aContext"],
 source: "on: aContext\x0a\x09^ self new\x0a\x09\x09initializeFromContext: aContext;\x0a\x09\x09yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["initializeFromContext:", "new", "yourself"]
 }),
 $globals.HLContextInspectorDecorator.a$cls);
@@ -213,6 +218,7 @@ args: [],
 source: "codeWidget\x0a\x09^ codeWidget ifNil: [ codeWidget := HLDebuggerCodeWidget new\x0a\x09\x09model: (HLDebuggerCodeModel new\x0a\x09\x09\x09debuggerModel: self model;\x0a\x09\x09\x09yourself);\x0a\x09\x09browserModel: self model;\x0a\x09\x09yourself ]",
 referencedClasses: ["HLDebuggerCodeWidget", "HLDebuggerCodeModel"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "model:", "new", "debuggerModel:", "model", "yourself", "browserModel:"]
 }),
 $globals.HLDebugger);
@@ -245,6 +251,7 @@ args: [],
 source: "cssClass\x0a\x09^ super cssClass, ' hl_debugger'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: [",", "cssClass"]
 }),
 $globals.HLDebugger);
@@ -269,6 +276,7 @@ args: [],
 source: "focus\x0a\x09self stackListWidget focus",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["focus", "stackListWidget"]
 }),
 $globals.HLDebugger);
@@ -294,6 +302,7 @@ args: ["anError"],
 source: "initializeFromError: anError\x0a\x09model := HLDebuggerModel on: anError.\x0a\x09self observeModel",
 referencedClasses: ["HLDebuggerModel"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:", "observeModel"]
 }),
 $globals.HLDebugger);
@@ -324,6 +333,7 @@ args: [],
 source: "inspectorWidget\x0a\x09^ inspectorWidget ifNil: [ \x0a\x09\x09inspectorWidget := HLInspectorWidget new ]",
 referencedClasses: ["HLInspectorWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLDebugger);
@@ -354,6 +364,7 @@ args: [],
 source: "model\x0a\x09^ model ifNil: [ model := HLDebuggerModel new ]",
 referencedClasses: ["HLDebuggerModel"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLDebugger);
@@ -388,6 +399,7 @@ args: [],
 source: "observeModel\x0a\x09self model announcer \x0a\x09\x09on: HLDebuggerContextSelected\x0a\x09\x09send: #onContextSelected:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLDebuggerStepped\x0a\x09\x09send: #onDebuggerStepped:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLDebuggerProceeded\x0a\x09\x09send: #onDebuggerProceeded\x0a\x09\x09to: self",
 referencedClasses: ["HLDebuggerContextSelected", "HLDebuggerStepped", "HLDebuggerProceeded"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:send:to:", "announcer", "model"]
 }),
 $globals.HLDebugger);
@@ -412,6 +424,7 @@ args: ["anAnnouncement"],
 source: "onContextSelected: anAnnouncement\x0a\x09self inspectorWidget inspect: (HLContextInspectorDecorator on: anAnnouncement context)",
 referencedClasses: ["HLContextInspectorDecorator"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["inspect:", "inspectorWidget", "on:", "context"]
 }),
 $globals.HLDebugger);
@@ -436,6 +449,7 @@ args: [],
 source: "onDebuggerProceeded\x0a\x09self removeTab",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["removeTab"]
 }),
 $globals.HLDebugger);
@@ -466,6 +480,7 @@ args: ["anAnnouncement"],
 source: "onDebuggerStepped: anAnnouncement\x0a\x09self model atEnd ifTrue: [ self removeTab ].\x0a\x09\x0a\x09self inspectorWidget inspect: (HLContextInspectorDecorator on: anAnnouncement context).\x0a\x09self stackListWidget refresh",
 referencedClasses: ["HLContextInspectorDecorator"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:", "atEnd", "model", "removeTab", "inspect:", "inspectorWidget", "on:", "context", "refresh", "stackListWidget"]
 }),
 $globals.HLDebugger);
@@ -490,6 +505,7 @@ args: ["aBindingGroup"],
 source: "registerBindingsOn: aBindingGroup\x0a\x09HLToolCommand \x0a\x09\x09registerConcreteClassesOn: aBindingGroup \x0a\x09\x09for: self model",
 referencedClasses: ["HLToolCommand"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["registerConcreteClassesOn:for:", "model"]
 }),
 $globals.HLDebugger);
@@ -524,6 +540,7 @@ args: ["html"],
 source: "renderContentOn: html\x0a\x09self renderHeadOn: html.\x0a\x09html with: (HLContainer with: (HLVerticalSplitter\x0a\x09\x09with: self codeWidget\x0a\x09\x09with: (HLHorizontalSplitter\x0a\x09\x09\x09with: self stackListWidget\x0a\x09\x09\x09with: self inspectorWidget)))",
 referencedClasses: ["HLContainer", "HLVerticalSplitter", "HLHorizontalSplitter"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["renderHeadOn:", "with:", "with:with:", "codeWidget", "stackListWidget", "inspectorWidget"]
 }),
 $globals.HLDebugger);
@@ -562,6 +579,7 @@ args: ["html"],
 source: "renderHeadOn: html\x0a\x09html div \x0a\x09\x09class: 'head'; \x0a\x09\x09with: [ html h2 with: self model error messageText ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "div", "with:", "h2", "messageText", "error", "model"]
 }),
 $globals.HLDebugger);
@@ -594,6 +612,7 @@ args: [],
 source: "stackListWidget\x0a\x09^ stackListWidget ifNil: [ \x0a\x09\x09stackListWidget := (HLStackListWidget on: self model)\x0a\x09\x09\x09next: self codeWidget;\x0a\x09\x09\x09yourself ]",
 referencedClasses: ["HLStackListWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "next:", "on:", "model", "codeWidget", "yourself"]
 }),
 $globals.HLDebugger);
@@ -629,6 +648,7 @@ args: [],
 source: "unregister\x0a\x09super unregister.\x0a\x09self inspectorWidget unregister",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["unregister", "inspectorWidget"]
 }),
 $globals.HLDebugger);
@@ -656,6 +676,7 @@ args: ["anError"],
 source: "on: anError\x0a\x09^ self new\x0a\x09\x09initializeFromError: anError;\x0a\x09\x09yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["initializeFromError:", "new", "yourself"]
 }),
 $globals.HLDebugger.a$cls);
@@ -674,6 +695,7 @@ args: [],
 source: "tabClass\x0a\x09^ 'debugger'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLDebugger.a$cls);
@@ -692,6 +714,7 @@ args: [],
 source: "tabLabel\x0a\x09^ 'Debugger'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLDebugger.a$cls);
@@ -712,6 +735,7 @@ args: [],
 source: "debuggerModel\x0a\x09^ debuggerModel",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLDebuggerCodeModel);
@@ -731,6 +755,7 @@ args: ["anObject"],
 source: "debuggerModel: anObject\x0a\x09debuggerModel := anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLDebuggerCodeModel);
@@ -771,6 +796,7 @@ args: ["aString"],
 source: "doIt: aString\x0a\x09^ [ self debuggerModel evaluate: aString ]\x0a\x09\x09tryCatch: [ :e | \x0a\x09\x09\x09ErrorHandler handleError: e.\x0a\x09\x09\x09nil ]",
 referencedClasses: ["ErrorHandler"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["tryCatch:", "evaluate:", "debuggerModel", "handleError:"]
 }),
 $globals.HLDebuggerCodeModel);
@@ -798,6 +824,7 @@ args: ["anInteger"],
 source: "addStopAt: anInteger\x0a\x09editor\x0a\x09\x09setGutterMarker: anInteger\x0a\x09\x09gutter: 'stops'\x0a\x09\x09value: '<div class=\x22stop\x22></div>' asJQuery toArray first",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["setGutterMarker:gutter:value:", "first", "toArray", "asJQuery"]
 }),
 $globals.HLDebuggerCodeWidget);
@@ -822,6 +849,7 @@ args: [],
 source: "clearHighlight\x0a\x09self editor clearGutter: 'stops'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["clearGutter:", "editor"]
 }),
 $globals.HLDebuggerCodeWidget);
@@ -854,6 +882,7 @@ args: ["aString"],
 source: "contents: aString\x0a\x09self clearHighlight.\x0a\x09super contents: aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["clearHighlight", "contents:"]
 }),
 $globals.HLDebuggerCodeWidget);
@@ -887,6 +916,7 @@ args: [],
 source: "editorOptions\x0a\x09^ super editorOptions\x0a\x09\x09at: 'gutters' put: #('CodeMirror-linenumbers' 'stops');\x0a\x09\x09yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["at:put:", "editorOptions", "yourself"]
 }),
 $globals.HLDebuggerCodeWidget);
@@ -919,6 +949,7 @@ args: [],
 source: "highlight\x0a\x09self browserModel nextNode ifNotNil: [ :node |\x0a\x09\x09self highlightNode: node ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNotNil:", "nextNode", "browserModel", "highlightNode:"]
 }),
 $globals.HLDebuggerCodeWidget);
@@ -992,6 +1023,7 @@ args: ["aNode"],
 source: "highlightNode: aNode\x0a\x09| token |\x0a\x09\x0a\x09aNode ifNotNil: [\x0a\x09\x09self\x0a\x09\x09\x09clearHighlight;\x0a\x09\x09\x09addStopAt: aNode positionStart x - 1.\x0a\x0a\x09\x09self editor \x0a\x09\x09\x09setSelection: #{ 'line' -> (aNode positionStart x - 1). 'ch' -> (aNode positionStart y - 1) }\x0a\x09\x09\x09to: #{ 'line' -> (aNode positionEnd x - 1). 'ch' -> (aNode positionEnd y) } ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNotNil:", "clearHighlight", "addStopAt:", "-", "x", "positionStart", "setSelection:to:", "editor", "y", "positionEnd"]
 }),
 $globals.HLDebuggerCodeWidget);
@@ -1049,6 +1081,7 @@ args: [],
 source: "observeBrowserModel\x0a\x09super observeBrowserModel.\x0a\x09\x0a\x09self browserModel announcer \x0a\x09\x09on: HLDebuggerContextSelected\x0a\x09\x09send: #onContextSelected\x0a\x09\x09to: self.\x0a\x09\x0a\x09self browserModel announcer \x0a\x09\x09on: HLDebuggerStepped\x0a\x09\x09send: #onContextSelected\x0a\x09\x09to: self.\x0a\x09\x0a\x09self browserModel announcer \x0a\x09\x09on: HLDebuggerWhere\x0a\x09\x09send: #onContextSelected\x0a\x09\x09to: self",
 referencedClasses: ["HLDebuggerContextSelected", "HLDebuggerStepped", "HLDebuggerWhere"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["observeBrowserModel", "on:send:to:", "announcer", "browserModel"]
 }),
 $globals.HLDebuggerCodeWidget);
@@ -1073,6 +1106,7 @@ args: [],
 source: "onContextSelected\x0a\x09self highlight",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["highlight"]
 }),
 $globals.HLDebuggerCodeWidget);
@@ -1105,6 +1139,7 @@ args: ["html"],
 source: "renderOn: html\x0a\x09super renderOn: html.\x0a\x09self contents: self browserModel selectedMethod source",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["renderOn:", "contents:", "source", "selectedMethod", "browserModel"]
 }),
 $globals.HLDebuggerCodeWidget);
@@ -1134,6 +1169,7 @@ args: [],
 source: "atEnd\x0a\x09^ self debugger atEnd",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["atEnd", "debugger"]
 }),
 $globals.HLDebuggerModel);
@@ -1179,6 +1215,7 @@ args: [],
 source: "contexts\x0a\x09| contexts context |\x0a\x09\x0a\x09contexts := OrderedCollection new.\x0a\x09context := self rootContext.\x0a\x09\x0a\x09[ context notNil ] whileTrue: [\x0a\x09\x09contexts add: context.\x0a\x09\x09context := context outerContext ].\x0a\x09\x09\x0a\x09^ contexts",
 referencedClasses: ["OrderedCollection"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["new", "rootContext", "whileTrue:", "notNil", "add:", "outerContext"]
 }),
 $globals.HLDebuggerModel);
@@ -1202,6 +1239,7 @@ args: [],
 source: "currentContext\x0a\x09^ self debugger context",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["context", "debugger"]
 }),
 $globals.HLDebuggerModel);
@@ -1244,6 +1282,7 @@ args: ["aContext"],
 source: "currentContext: aContext\x0a\x09self withChangesDo: [ \x0a\x09\x09self selectedMethod: aContext method.\x0a\x09\x09self debugger context: aContext.\x0a\x09\x09self announcer announce: (HLDebuggerContextSelected new\x0a\x09\x09\x09context: aContext;\x0a\x09\x09\x09yourself) ]",
 referencedClasses: ["HLDebuggerContextSelected"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["withChangesDo:", "selectedMethod:", "method", "context:", "debugger", "announce:", "announcer", "new", "yourself"]
 }),
 $globals.HLDebuggerModel);
@@ -1274,6 +1313,7 @@ args: [],
 source: "debugger\x0a\x09^ debugger ifNil: [ debugger := ASTDebugger new ]",
 referencedClasses: ["ASTDebugger"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLDebuggerModel);
@@ -1292,6 +1332,7 @@ args: [],
 source: "error\x0a\x09^ error",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLDebuggerModel);
@@ -1315,6 +1356,7 @@ args: ["aString"],
 source: "evaluate: aString\x0a\x09^ self environment \x0a\x09\x09evaluate: aString \x0a\x09\x09for: self currentContext",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["evaluate:for:", "environment", "currentContext"]
 }),
 $globals.HLDebuggerModel);
@@ -1346,6 +1388,7 @@ args: [],
 source: "flushInnerContexts\x0a\x09\x22When stepping, the inner contexts are not relevent anymore,\x0a\x09and can be flushed\x22\x0a\x09\x0a\x09self currentContext innerContext: nil.\x0a\x09rootContext := self currentContext.\x0a\x09self initializeContexts",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["innerContext:", "currentContext", "initializeContexts"]
 }),
 $globals.HLDebuggerModel);
@@ -1374,6 +1417,7 @@ args: ["anError"],
 source: "initializeFromError: anError\x0a\x09| errorContext |\x0a\x09\x0a\x09error := anError.\x0a\x09errorContext := (AIContext fromMethodContext: error context).\x0a\x09rootContext := error signalerContextFrom: errorContext.\x0a\x09self selectedMethod: rootContext method",
 referencedClasses: ["AIContext"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["fromMethodContext:", "context", "signalerContextFrom:", "selectedMethod:", "method"]
 }),
 $globals.HLDebuggerModel);
@@ -1397,6 +1441,7 @@ args: [],
 source: "nextNode\x0a\x09^ self debugger node",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["node", "debugger"]
 }),
 $globals.HLDebuggerModel);
@@ -1436,6 +1481,7 @@ args: [],
 source: "onStep\x0a\x09rootContext := self currentContext.\x0a\x09\x0a\x09\x22Force a refresh of the context list and code widget\x22\x0a\x09self selectedMethod: self currentContext method.\x0a\x09self announcer announce: (HLDebuggerContextSelected new\x0a\x09\x09context: self currentContext;\x0a\x09\x09yourself)",
 referencedClasses: ["HLDebuggerContextSelected"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["currentContext", "selectedMethod:", "method", "announce:", "announcer", "context:", "new", "yourself"]
 }),
 $globals.HLDebuggerModel);
@@ -1461,6 +1507,7 @@ args: [],
 source: "proceed\x0a\x09self debugger proceed.\x0a\x09\x0a\x09self announcer announce: HLDebuggerProceeded new",
 referencedClasses: ["HLDebuggerProceeded"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["proceed", "debugger", "announce:", "announcer", "new"]
 }),
 $globals.HLDebuggerModel);
@@ -1492,6 +1539,7 @@ args: [],
 source: "restart\x0a\x09self debugger restart.\x0a\x09self onStep.\x0a\x09\x0a\x09self announcer announce: (HLDebuggerStepped new\x0a\x09\x09context: self currentContext;\x0a\x09\x09yourself)",
 referencedClasses: ["HLDebuggerStepped"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["restart", "debugger", "onStep", "announce:", "announcer", "context:", "new", "currentContext", "yourself"]
 }),
 $globals.HLDebuggerModel);
@@ -1510,6 +1558,7 @@ args: [],
 source: "rootContext\x0a\x09^ rootContext",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLDebuggerModel);
@@ -1541,6 +1590,7 @@ args: [],
 source: "stepOver\x0a\x09self debugger stepOver.\x0a\x09self onStep.\x0a\x09\x0a\x09self announcer announce: (HLDebuggerStepped new\x0a\x09\x09context: self currentContext;\x0a\x09\x09yourself)",
 referencedClasses: ["HLDebuggerStepped"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["stepOver", "debugger", "onStep", "announce:", "announcer", "context:", "new", "currentContext", "yourself"]
 }),
 $globals.HLDebuggerModel);
@@ -1565,6 +1615,7 @@ args: [],
 source: "where\x0a\x09self announcer announce: HLDebuggerWhere new",
 referencedClasses: ["HLDebuggerWhere"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["announce:", "announcer", "new"]
 }),
 $globals.HLDebuggerModel);
@@ -1592,6 +1643,7 @@ args: ["anError"],
 source: "on: anError\x0a\x09^ self new\x0a\x09\x09initializeFromError: anError;\x0a\x09\x09yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["initializeFromError:", "new", "yourself"]
 }),
 $globals.HLDebuggerModel.a$cls);
@@ -1632,6 +1684,7 @@ args: ["anError"],
 source: "confirmDebugError: anError\x0a\x09HLConfirmationWidget new\x0a\x09\x09confirmationString: anError messageText;\x0a\x09\x09actionBlock: [ self debugError: anError ];\x0a\x09\x09cancelButtonLabel: 'Abandon';\x0a\x09\x09confirmButtonLabel: 'Debug';\x0a\x09\x09show",
 referencedClasses: ["HLConfirmationWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["confirmationString:", "new", "messageText", "actionBlock:", "debugError:", "cancelButtonLabel:", "confirmButtonLabel:", "show"]
 }),
 $globals.HLErrorHandler);
@@ -1672,6 +1725,7 @@ args: ["anError"],
 source: "debugError: anError\x0a\x0a\x09[ \x0a\x09\x09(HLDebugger on: anError) openAsTab \x0a\x09] \x0a\x09\x09on: Error \x0a\x09\x09do: [ :error | ConsoleErrorHandler new handleError: error ]",
 referencedClasses: ["HLDebugger", "Error", "ConsoleErrorHandler"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:do:", "openAsTab", "on:", "handleError:", "new"]
 }),
 $globals.HLErrorHandler);
@@ -1696,6 +1750,7 @@ args: ["anError"],
 source: "handleError: anError\x0a\x09self confirmDebugError: anError",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["confirmDebugError:"]
 }),
 $globals.HLErrorHandler);
@@ -1723,6 +1778,7 @@ args: [],
 source: "onErrorHandled\x0a\x09\x22when an error is handled, we need to make sure that\x0a\x09any progress bar widget gets removed. Because HLProgressBarWidget is asynchronous,\x0a\x09it has to be done here.\x22\x0a\x09\x0a\x09HLProgressWidget default \x0a\x09\x09flush; \x0a\x09\x09remove",
 referencedClasses: ["HLProgressWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["flush", "default", "remove"]
 }),
 $globals.HLErrorHandler);
@@ -1749,6 +1805,7 @@ args: [],
 source: "items\x0a\x09^ self model contexts",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["contexts", "model"]
 }),
 $globals.HLStackListWidget);
@@ -1767,6 +1824,7 @@ args: [],
 source: "label\x0a\x09^ 'Call stack'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLStackListWidget);
@@ -1799,6 +1857,7 @@ args: [],
 source: "observeModel\x0a\x09super observeModel.\x0a\x09\x0a\x09self model announcer \x0a\x09\x09on: HLDebuggerStepped\x0a\x09\x09send: #onDebuggerStepped:\x0a\x09\x09to: self",
 referencedClasses: ["HLDebuggerStepped"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["observeModel", "on:send:to:", "announcer", "model"]
 }),
 $globals.HLStackListWidget);
@@ -1824,6 +1883,7 @@ args: ["anAnnouncement"],
 source: "onDebuggerStepped: anAnnouncement\x0a\x09items := nil.\x0a\x09self refresh",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["refresh"]
 }),
 $globals.HLStackListWidget);
@@ -1848,6 +1908,7 @@ args: [],
 source: "proceed\x0a\x09self model proceed",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["proceed", "model"]
 }),
 $globals.HLStackListWidget);
@@ -1972,6 +2033,7 @@ args: ["html"],
 source: "renderButtonsOn: html\x0a\x09html div \x0a\x09\x09class: 'debugger_bar'; \x0a\x09\x09with: [\x0a\x09\x09\x09html button \x0a\x09\x09\x09\x09class: 'btn btn-default restart';\x0a\x09\x09\x09\x09with: 'Restart';\x0a\x09\x09\x09\x09onClick: [ self restart ].\x0a\x09\x09\x09html button \x0a\x09\x09\x09\x09class: 'btn btn-default where';\x0a\x09\x09\x09\x09with: 'Where';\x0a\x09\x09\x09\x09onClick: [ self where ].\x0a\x09\x09\x09html button \x0a\x09\x09\x09\x09class: 'btn btn-default stepOver';\x0a\x09\x09\x09\x09with: 'Step over';\x0a\x09\x09\x09\x09onClick: [ self stepOver ].\x0a\x09\x09\x09html button \x0a\x09\x09\x09\x09class: 'btn btn-default proceed';\x0a\x09\x09\x09\x09with: 'Proceed';\x0a\x09\x09\x09\x09onClick: [ self proceed ] ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "div", "with:", "button", "onClick:", "restart", "where", "stepOver", "proceed"]
 }),
 $globals.HLStackListWidget);
@@ -1996,6 +2058,7 @@ args: [],
 source: "restart\x0a\x09self model restart",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["restart", "model"]
 }),
 $globals.HLStackListWidget);
@@ -2028,6 +2091,7 @@ args: ["aContext"],
 source: "selectItem: aContext\x0a   \x09self model currentContext: aContext.\x0a\x09super selectItem: aContext",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["currentContext:", "model", "selectItem:"]
 }),
 $globals.HLStackListWidget);
@@ -2051,6 +2115,7 @@ args: [],
 source: "selectedItem\x0a   \x09^ self model currentContext",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["currentContext", "model"]
 }),
 $globals.HLStackListWidget);
@@ -2075,6 +2140,7 @@ args: [],
 source: "stepOver\x0a\x09self model stepOver",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["stepOver", "model"]
 }),
 $globals.HLStackListWidget);
@@ -2099,6 +2165,7 @@ args: [],
 source: "where\x0a\x09self model where",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["where", "model"]
 }),
 $globals.HLStackListWidget);

src/Helios-Helpers.js

@@ -42,6 +42,7 @@ args: [],
 source: "classify\x0a\x09self next ifNil: [ ^ false ].\x0a\x09\x0a\x09^ self doClassify\x0a\x09\x09ifTrue: [ true ]\x0a\x09\x09ifFalse: [ self next classify ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "next", "ifTrue:ifFalse:", "doClassify", "classify"]
 }),
 $globals.HLClassifier);
@@ -66,6 +67,7 @@ args: [],
 source: "doClassify\x0a\x09self subclassResponsibility",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["subclassResponsibility"]
 }),
 $globals.HLClassifier);
@@ -84,6 +86,7 @@ args: [],
 source: "method\x0a\x09^ method",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLClassifier);
@@ -117,6 +120,7 @@ args: ["anObject"],
 source: "method: anObject\x0a\x09method := anObject.\x0a\x09self next\x0a\x09\x09ifNotNil: [ :nextLink | nextLink method: anObject ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNotNil:", "next", "method:"]
 }),
 $globals.HLClassifier);
@@ -135,6 +139,7 @@ args: [],
 source: "next\x0a\x09^ next",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLClassifier);
@@ -154,6 +159,7 @@ args: ["anObject"],
 source: "next: anObject\x0a\x09next := anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLClassifier);
@@ -197,6 +203,7 @@ args: [],
 source: "doClassify\x0a\x09| names selector |\x0a\x09\x0a\x09names := method methodClass allInstanceVariableNames.\x0a\x09selector := method selector.\x0a\x09\x0a\x09(selector last = ':')\x0a\x09\x09ifTrue: [ \x22selector might be a setter\x22\x0a\x09\x09\x09selector := selector allButLast ].\x0a\x09\x0a\x09(names includes: selector)\x0a\x09\x09ifFalse: [ ^ false ].\x0a\x09\x09\x0a\x09method protocol: 'accessing'.\x0a\x09^ true.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["allInstanceVariableNames", "methodClass", "selector", "ifTrue:", "=", "last", "allButLast", "ifFalse:", "includes:", "protocol:"]
 }),
 $globals.HLAccessorClassifier);
@@ -264,6 +271,7 @@ args: [],
 source: "doClassify\x0a\x09| currentClass |\x0a\x09currentClass := method methodClass.\x0a\x09\x0a\x09[ currentClass superclass isNil ] whileFalse: [\x0a\x09\x09currentClass := currentClass superclass.\x0a\x09\x09(currentClass includesSelector: method selector)\x0a\x09\x09\x09ifTrue: [ \x0a\x09\x09\x09\x09method protocol: (currentClass >> method selector) protocol.\x0a\x09\x09\x09\x09^ true ]].\x0a\x09\x0a\x09^ false.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["methodClass", "whileFalse:", "isNil", "superclass", "ifTrue:", "includesSelector:", "selector", "protocol:", "protocol", ">>"]
 }),
 $globals.HLImplementorClassifier);
@@ -341,6 +349,7 @@ args: [],
 source: "buildPrefixDictionary\x0a\x09prefixMapping := Dictionary new.\x0a\x09prefixMapping \x0a\x09\x09at: 'test' put: 'tests';\x0a\x09 \x09at: 'bench' put: 'benchmarking';\x0a\x09 \x09at: 'copy' put: 'copying';\x0a\x09\x09at: 'initialize' put: 'initialization';\x0a\x09\x09at: 'accept' put: 'visitor';\x0a\x09\x09at: 'visit' put: 'visitor';\x0a\x09\x09at: 'signal' put: 'signalling';\x0a\x09\x09at: 'parse' put: 'parsing';\x0a\x09\x09at: 'add' put: 'adding';\x0a\x09\x09at: 'is' put: 'testing';\x0a\x09\x09at: 'as' put: 'converting';\x0a\x09\x09at: 'new' put: 'instance creation'.",
 referencedClasses: ["Dictionary"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["new", "at:put:"]
 }),
 $globals.HLPrefixClassifier);
@@ -382,6 +391,7 @@ args: [],
 source: "doClassify\x0a\x09prefixMapping keysAndValuesDo: [ :prefix :protocol |\x0a\x09\x09(method selector beginsWith: prefix)\x0a\x09\x09\x09ifTrue: [\x0a\x09\x09\x09\x09method protocol: protocol.\x0a\x09\x09\x09\x09^ true ]].\x0a\x09^ false.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["keysAndValuesDo:", "ifTrue:", "beginsWith:", "selector", "protocol:"]
 }),
 $globals.HLPrefixClassifier);
@@ -414,6 +424,7 @@ args: [],
 source: "initialize\x0a\x09super initialize.\x0a\x0a\x09self buildPrefixDictionary",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["initialize", "buildPrefixDictionary"]
 }),
 $globals.HLPrefixClassifier);
@@ -525,6 +536,7 @@ args: [],
 source: "doClassify\x0a\x09| protocolBag methods protocolToUse counter |\x0a\x09\x0a\x09protocolBag := Dictionary new.\x0a\x09methods := HLReferencesModel new implementorsOf: method selector.\x0a\x09methods\x0a\x09\x09ifEmpty: [ ^ false ]\x0a\x09\x09ifNotEmpty: [\x0a\x09\x09\x09methods \x0a\x09\x09\x09\x09do: [ :aMethod || protocol |\x0a\x09\x09\x09\x09\x09protocol := aMethod method protocol.\x0a\x09\x09\x09\x09\x09(method methodClass = aMethod methodClass)\x0a\x09\x09\x09\x09\x09\x09ifFalse: [\x0a\x09\x09\x09\x09\x09\x09((protocol first = '*') or: [ protocol = method defaultProtocol ])\x0a\x09\x09\x09\x09\x09\x09\x09ifFalse: [ \x0a\x09\x09\x09\x09\x09\x09\x09\x09protocolBag \x0a\x09\x09\x09\x09\x09\x09\x09\x09\x09at: protocol \x0a\x09\x09\x09\x09\x09\x09\x09\x09\x09put: (protocolBag at: protocol ifAbsent: [ 0 ]) + 1 ] ] ] ].\x0a\x09\x09\x09\x0a\x09protocolBag ifEmpty: [ ^ false ].\x0a\x09protocolToUse := nil.\x0a\x09counter := 0.\x0a\x09protocolBag keysAndValuesDo: [ :key :value | value > counter \x0a\x09\x09ifTrue: [\x0a\x09\x09\x09counter := value.\x0a\x09\x09\x09protocolToUse := key ] ].\x0a\x09method protocol: protocolToUse.\x0a\x09^ true",
 referencedClasses: ["Dictionary", "HLReferencesModel"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["new", "implementorsOf:", "selector", "ifEmpty:ifNotEmpty:", "do:", "protocol", "method", "ifFalse:", "=", "methodClass", "or:", "first", "defaultProtocol", "at:put:", "+", "at:ifAbsent:", "ifEmpty:", "keysAndValuesDo:", "ifTrue:", ">", "protocol:"]
 }),
 $globals.HLSuperclassClassifier);
@@ -555,6 +567,7 @@ args: ["aString"],
 source: "addSourceCode: aString\x0a\x09sourceCodes add: aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["add:"]
 }),
 $globals.HLGenerationOutput);
@@ -591,6 +604,7 @@ args: [],
 source: "compile\x0a\x09sourceCodes do: [ :methodSourceCode |\x0a\x09\x09(targetClass includesSelector: methodSourceCode selector)\x0a\x09\x09\x09ifFalse: [ \x0a\x09\x09\x09\x09targetClass \x0a\x09\x09\x09\x09\x09compile: methodSourceCode sourceCode\x0a\x09\x09\x09\x09\x09protocol: protocol ] ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["do:", "ifFalse:", "includesSelector:", "selector", "compile:protocol:", "sourceCode"]
 }),
 $globals.HLGenerationOutput);
@@ -623,6 +637,7 @@ args: [],
 source: "initialize\x0a\x09super initialize.\x0a\x09\x0a\x09sourceCodes := OrderedCollection new",
 referencedClasses: ["OrderedCollection"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["initialize", "new"]
 }),
 $globals.HLGenerationOutput);
@@ -641,6 +656,7 @@ args: [],
 source: "protocol\x0a\x09^ protocol",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGenerationOutput);
@@ -660,6 +676,7 @@ args: ["aString"],
 source: "protocol: aString\x0a\x09protocol := aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGenerationOutput);
@@ -678,6 +695,7 @@ args: [],
 source: "sourceCodes\x0a\x09^ sourceCodes",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGenerationOutput);
@@ -697,6 +715,7 @@ args: ["aCollection"],
 source: "sourceCodes: aCollection\x0a\x09sourceCodes := aCollection",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGenerationOutput);
@@ -715,6 +734,7 @@ args: [],
 source: "targetClass\x0a\x09^ targetClass",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGenerationOutput);
@@ -734,6 +754,7 @@ args: ["aClass"],
 source: "targetClass: aClass\x0a\x09targetClass := aClass",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLGenerationOutput);
@@ -765,6 +786,7 @@ args: ["aClassifier"],
 source: "addClassifier: aClassifier\x0a\x09aClassifier next: firstClassifier.\x0a\x09firstClassifier := aClassifier",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["next:"]
 }),
 $globals.HLMethodClassifier);
@@ -792,6 +814,7 @@ args: ["aMethod"],
 source: "classify: aMethod\x0a\x09firstClassifier\x0a\x09\x09method: aMethod;\x0a\x09\x09classify",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["method:", "classify"]
 }),
 $globals.HLMethodClassifier);
@@ -824,6 +847,7 @@ args: ["aCollectionOfMethods"],
 source: "classifyAll: aCollectionOfMethods\x0a\x09aCollectionOfMethods do: [ :method |\x0a\x09\x09self classify: method ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["do:", "classify:"]
 }),
 $globals.HLMethodClassifier);
@@ -856,6 +880,7 @@ args: [],
 source: "initialize\x0a\x09super initialize.\x0a\x09\x0a\x09self setupClassifiers",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["initialize", "setupClassifiers"]
 }),
 $globals.HLMethodClassifier);
@@ -905,6 +930,7 @@ args: [],
 source: "setupClassifiers\x0a\x09self addClassifier: HLImplementorClassifier new.\x0a\x09self addClassifier: HLPrefixClassifier new.\x0a\x09self addClassifier: HLSuperclassClassifier new.\x0a\x09self addClassifier: HLAccessorClassifier new",
 referencedClasses: ["HLImplementorClassifier", "HLPrefixClassifier", "HLSuperclassClassifier", "HLAccessorClassifier"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["addClassifier:", "new"]
 }),
 $globals.HLMethodClassifier);
@@ -935,6 +961,7 @@ args: ["aClass"],
 source: "class: aClass\x0a\x09output targetClass: aClass",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["targetClass:"]
 }),
 $globals.HLMethodGenerator);
@@ -965,6 +992,7 @@ args: [],
 source: "generate\x0a\x09output targetClass ifNil: [ self error: 'class should not be nil'].",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "targetClass", "error:"]
 }),
 $globals.HLMethodGenerator);
@@ -997,6 +1025,7 @@ args: [],
 source: "initialize\x0a\x09super initialize.\x0a\x09\x0a\x09output := HLGenerationOutput new",
 referencedClasses: ["HLGenerationOutput"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["initialize", "new"]
 }),
 $globals.HLMethodGenerator);
@@ -1015,6 +1044,7 @@ args: [],
 source: "output\x0a\x09^ output",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLMethodGenerator);
@@ -1045,6 +1075,7 @@ args: [],
 source: "accessorProtocolForObject\x0a\x09output protocol: 'accessing'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["protocol:"]
 }),
 $globals.HLAccessorsGenerator);
@@ -1086,6 +1117,7 @@ args: [],
 source: "accessorsForObject\x0a\x09| sources |\x0a\x09\x0a\x09sources := OrderedCollection new.\x0a\x09output targetClass instanceVariableNames sorted do: [ :each | \x0a\x09\x09sources \x0a\x09\x09\x09add: (self getterFor: each);\x0a\x09\x09\x09add: (self setterFor: each) ].\x0a\x09output sourceCodes: sources",
 referencedClasses: ["OrderedCollection"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["new", "do:", "sorted", "instanceVariableNames", "targetClass", "add:", "getterFor:", "setterFor:", "sourceCodes:"]
 }),
 $globals.HLAccessorsGenerator);
@@ -1121,6 +1153,7 @@ args: [],
 source: "generate\x0a\x09super generate.\x0a\x09\x0a\x09output targetClass \x0a\x09\x09accessorsSourceCodesWith: self;\x0a\x09\x09accessorProtocolWith: self",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["generate", "accessorsSourceCodesWith:", "targetClass", "accessorProtocolWith:"]
 }),
 $globals.HLAccessorsGenerator);
@@ -1163,6 +1196,7 @@ args: ["anInstanceVariable"],
 source: "getterFor: anInstanceVariable\x0a\x09^ HLMethodSourceCode new\x0a\x09\x09selector:anInstanceVariable;\x0a\x09\x09sourceCode: (String streamContents: [ :stream |\x0a\x09\x09stream << anInstanceVariable.\x0a\x09\x09stream cr tab.\x0a\x09\x09stream << '^ ' << anInstanceVariable ])",
 referencedClasses: ["HLMethodSourceCode", "String"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selector:", "new", "sourceCode:", "streamContents:", "<<", "tab", "cr"]
 }),
 $globals.HLAccessorsGenerator);
@@ -1209,6 +1243,7 @@ args: ["anInstanceVariable"],
 source: "setterFor: anInstanceVariable\x0a\x09^ HLMethodSourceCode new\x0a\x09\x09selector: anInstanceVariable, ':';\x0a\x09\x09sourceCode: (String streamContents: [ :stream |\x0a\x09\x09stream << anInstanceVariable << ': anObject'.\x0a\x09\x09stream cr tab.\x0a\x09\x09stream << anInstanceVariable << ' := anObject' ])",
 referencedClasses: ["HLMethodSourceCode", "String"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selector:", "new", ",", "sourceCode:", "streamContents:", "<<", "tab", "cr"]
 }),
 $globals.HLAccessorsGenerator);
@@ -1250,6 +1285,7 @@ args: [],
 source: "generate\x0a\x09super generate.\x0a\x09\x0a\x09output targetClass \x0a\x09\x09initializeSourceCodesWith: self;\x0a\x09\x09initializeProtocolWith: self",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["generate", "initializeSourceCodesWith:", "targetClass", "initializeProtocolWith:"]
 }),
 $globals.HLInitializeGenerator);
@@ -1339,6 +1375,7 @@ args: [],
 source: "generateInitializeCodeForObject\x09\x0a\x09^ String streamContents: [ :str || instVars size |\x0a\x09\x09instVars := output targetClass instanceVariableNames sorted.\x0a\x09\x09size := instVars size.\x0a\x09\x09str << 'initialize'.\x0a\x09\x09str cr tab << 'super initialize.';cr.\x0a\x09\x09str cr tab.\x0a\x09\x09instVars withIndexDo: [ :name :index |\x0a\x09\x09\x09index ~= 1 ifTrue: [ str cr tab ].\x0a\x09\x09\x09str << name << ' := nil'.\x0a\x09\x09\x09index ~= size ifTrue: [ str << '.' ] ] ].",
 referencedClasses: ["String"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["streamContents:", "sorted", "instanceVariableNames", "targetClass", "size", "<<", "tab", "cr", "withIndexDo:", "ifTrue:", "~="]
 }),
 $globals.HLInitializeGenerator);
@@ -1363,6 +1400,7 @@ args: [],
 source: "initializeForObject\x0a\x09output addSourceCode: self initializeMethodForObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["addSourceCode:", "initializeMethodForObject"]
 }),
 $globals.HLInitializeGenerator);
@@ -1390,6 +1428,7 @@ args: [],
 source: "initializeMethodForObject\x09\x0a\x09^ HLMethodSourceCode new\x0a\x09\x09selector: 'initialize';\x0a\x09\x09sourceCode: self generateInitializeCodeForObject;\x0a\x09\x09yourself",
 referencedClasses: ["HLMethodSourceCode"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selector:", "new", "sourceCode:", "generateInitializeCodeForObject", "yourself"]
 }),
 $globals.HLInitializeGenerator);
@@ -1414,6 +1453,7 @@ args: [],
 source: "initializeProtocolForObject\x0a\x09output protocol: 'initialization'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["protocol:"]
 }),
 $globals.HLInitializeGenerator);
@@ -1438,6 +1478,7 @@ args: [],
 source: "selector\x0a\x09^ selector",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLMethodSourceCode);
@@ -1457,6 +1498,7 @@ args: ["aSelector"],
 source: "selector: aSelector\x0a\x09selector := aSelector",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLMethodSourceCode);
@@ -1475,6 +1517,7 @@ args: [],
 source: "sourceCode\x0a\x09^ sourceCode",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLMethodSourceCode);
@@ -1494,6 +1537,7 @@ args: ["aString"],
 source: "sourceCode: aString\x0a\x09sourceCode := aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLMethodSourceCode);
@@ -1521,6 +1565,7 @@ args: [],
 source: "commitPackage\x0a\x09(HLCommitPackageCommand for: self model)\x0a\x09\x09execute",
 referencedClasses: ["HLCommitPackageCommand"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["execute", "for:", "model"]
 }),
 $globals.HLPackageCommitErrorHelper);
@@ -1546,6 +1591,7 @@ args: ["aString"],
 source: "commitToPath: aString\x0a\x09\x22We only take AMD package transport into account for now\x22\x0a\x09\x0a\x09self package transport setPath: aString.\x0a\x09\x0a\x09self commitPackage",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["setPath:", "transport", "package", "commitPackage"]
 }),
 $globals.HLPackageCommitErrorHelper);
@@ -1564,6 +1610,7 @@ args: [],
 source: "model\x0a\x09^ model",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLPackageCommitErrorHelper);
@@ -1583,6 +1630,7 @@ args: ["aToolModel"],
 source: "model: aToolModel\x0a\x09model := aToolModel",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLPackageCommitErrorHelper);
@@ -1606,6 +1654,7 @@ args: [],
 source: "package\x0a\x09^ self model packageToCommit",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["packageToCommit", "model"]
 }),
 $globals.HLPackageCommitErrorHelper);
@@ -1648,6 +1697,7 @@ args: [],
 source: "showHelp\x0a\x09HLConfirmationWidget new\x0a\x09\x09confirmationString: 'Commit failed for namespace \x22', self package transport namespace, '\x22. Do you want to commit to another path?';\x0a\x09\x09actionBlock: [ self showNewCommitPath ];\x0a\x09\x09cancelButtonLabel: 'Abandon';\x0a\x09\x09confirmButtonLabel: 'Set path';\x0a\x09\x09show",
 referencedClasses: ["HLConfirmationWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["confirmationString:", "new", ",", "namespace", "transport", "package", "actionBlock:", "showNewCommitPath", "cancelButtonLabel:", "confirmButtonLabel:", "show"]
 }),
 $globals.HLPackageCommitErrorHelper);
@@ -1687,6 +1737,7 @@ args: [],
 source: "showNewCommitPath\x0a\x09HLRequestWidget new\x0a\x09\x09beSingleline;\x0a\x09\x09confirmationString: 'Set commit path';\x0a\x09\x09actionBlock: [ :url | self commitToPath: url ];\x0a\x09\x09confirmButtonLabel: 'Commit with new path';\x0a\x09\x09value: '/src';\x0a\x09\x09show",
 referencedClasses: ["HLRequestWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["beSingleline", "new", "confirmationString:", "actionBlock:", "commitToPath:", "confirmButtonLabel:", "value:", "show"]
 }),
 $globals.HLPackageCommitErrorHelper);
@@ -1714,6 +1765,7 @@ args: ["aToolModel"],
 source: "on: aToolModel\x0a\x09^ self new\x0a\x09\x09model: aToolModel;\x0a\x09\x09yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["model:", "new", "yourself"]
 }),
 $globals.HLPackageCommitErrorHelper.a$cls);

src/Helios-Inspector.js

@@ -19,6 +19,7 @@ args: [],
 source: "inspector\x0a\x09^ inspector",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspectorDisplayWidget);
@@ -38,6 +39,7 @@ args: ["anInspector"],
 source: "inspector: anInspector\x0a\x09inspector := anInspector",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspectorDisplayWidget);
@@ -61,6 +63,7 @@ args: [],
 source: "model\x0a\x0a\x09^ self inspector model",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["model", "inspector"]
 }),
 $globals.HLInspectorDisplayWidget);
@@ -85,6 +88,7 @@ args: ["html"],
 source: "renderContentOn: html\x0a\x09\x0a    html div with: self selectionDisplayString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["with:", "div", "selectionDisplayString"]
 }),
 $globals.HLInspectorDisplayWidget);
@@ -125,6 +129,7 @@ args: [],
 source: "selectionDisplayString\x0a\x09|selection|\x0a\x09selection := self model selection.\x0a    ^ (self model variables includesKey: selection)\x0a    \x09ifTrue:[ (self model instVarObjectAt: selection) printString ]\x0a      \x09ifFalse:[ '' ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selection", "model", "ifTrue:ifFalse:", "includesKey:", "variables", "printString", "instVarObjectAt:"]
 }),
 $globals.HLInspectorDisplayWidget);
@@ -161,6 +166,7 @@ args: [],
 source: "code\x0a\x09\x22Answers the code model working for this workspace model\x22\x0a\x09^ code ifNil:[ code := HLCodeModel on: self environment ]",
 referencedClasses: ["HLCodeModel"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "on:", "environment"]
 }),
 $globals.HLInspectorModel);
@@ -187,6 +193,7 @@ args: ["anObject", "anInspector"],
 source: "inspect: anObject on: anInspector\x0a\x09inspectee := anObject.\x0a\x09variables := #().\x0a\x09inspectee inspectOn: anInspector",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["inspectOn:"]
 }),
 $globals.HLInspectorModel);
@@ -205,6 +212,7 @@ args: [],
 source: "inspectee \x0a\x09^ inspectee",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspectorModel);
@@ -224,6 +232,7 @@ args: ["anObject"],
 source: "inspectee: anObject \x0a\x09inspectee := anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspectorModel);
@@ -247,6 +256,7 @@ args: ["anInstVarName"],
 source: "instVarObjectAt: anInstVarName\x0a\x09^ self variables at: anInstVarName",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["at:", "variables"]
 }),
 $globals.HLInspectorModel);
@@ -276,6 +286,7 @@ args: [],
 source: "label\x0a    ^ label ifNil: [ self inspectee printString ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "printString", "inspectee"]
 }),
 $globals.HLInspectorModel);
@@ -295,6 +306,7 @@ args: ["aString"],
 source: "label: aString\x0a    label := aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspectorModel);
@@ -319,6 +331,7 @@ args: ["anInstVarName"],
 source: "selectedInstVar: anInstVarName\x0a    self selection: anInstVarName",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selection:"]
 }),
 $globals.HLInspectorModel);
@@ -342,6 +355,7 @@ args: [],
 source: "selectedInstVarObject\x0a\x09^ self instVarObjectAt: self selection",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["instVarObjectAt:", "selection"]
 }),
 $globals.HLInspectorModel);
@@ -371,6 +385,7 @@ args: [],
 source: "selection\x0a\x09^ selection ifNil:[ '' ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:"]
 }),
 $globals.HLInspectorModel);
@@ -396,6 +411,7 @@ args: ["anObject"],
 source: "selection: anObject\x0a\x09selection := anObject.\x0a\x0a\x09self announcer announce: (HLInstanceVariableSelected on: selection)",
 referencedClasses: ["HLInstanceVariableSelected"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["announce:", "announcer", "on:"]
 }),
 $globals.HLInspectorModel);
@@ -420,6 +436,7 @@ args: ["aWidget"],
 source: "subscribe: aWidget\x0a\x09aWidget subscribeTo: self announcer",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["subscribeTo:", "announcer"]
 }),
 $globals.HLInspectorModel);
@@ -449,6 +466,7 @@ args: [],
 source: "variables\x0a\x09^ variables ifNil: [ Dictionary new ]",
 referencedClasses: ["Dictionary"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLInspectorModel);
@@ -468,6 +486,7 @@ args: ["aCollection"],
 source: "variables: aCollection\x0a\x09variables := aCollection",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspectorModel);
@@ -495,6 +514,7 @@ args: ["anEnvironment"],
 source: "on: anEnvironment\x0a\x0a\x09^ self new\x0a    \x09environment: anEnvironment;\x0a        yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["environment:", "new", "yourself"]
 }),
 $globals.HLInspectorModel.a$cls);
@@ -527,6 +547,7 @@ args: [],
 source: "announcer\x0a\x09^ announcer ifNil:[ announcer := Announcer new ]",
 referencedClasses: ["Announcer"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLInspectorVariablesWidget);
@@ -550,6 +571,7 @@ args: [],
 source: "defaultItems\x0a\x09^ self variables",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["variables"]
 }),
 $globals.HLInspectorVariablesWidget);
@@ -574,6 +596,7 @@ args: [],
 source: "dive\x0a\x09self announcer announce: HLDiveRequested new",
 referencedClasses: ["HLDiveRequested"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["announce:", "announcer", "new"]
 }),
 $globals.HLInspectorVariablesWidget);
@@ -592,6 +615,7 @@ args: [],
 source: "inspector\x0a\x09^ inspector",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspectorVariablesWidget);
@@ -611,6 +635,7 @@ args: ["anInspector"],
 source: "inspector: anInspector\x0a\x09inspector := anInspector",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspectorVariablesWidget);
@@ -634,6 +659,7 @@ args: [],
 source: "label\x0a\x09^ self model label",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["label", "model"]
 }),
 $globals.HLInspectorVariablesWidget);
@@ -657,6 +683,7 @@ args: [],
 source: "model\x0a    ^ self inspector model",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["model", "inspector"]
 }),
 $globals.HLInspectorVariablesWidget);
@@ -693,6 +720,7 @@ args: [],
 source: "refresh\x0a\x09self variables = self items ifFalse: [\x0a\x09\x09self resetItems.\x0a    \x09super refresh ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifFalse:", "=", "variables", "items", "resetItems", "refresh"]
 }),
 $globals.HLInspectorVariablesWidget);
@@ -729,6 +757,7 @@ args: ["html"],
 source: "renderButtonsOn: html\x0a\x09diveButton := html button \x0a\x09\x09class: 'btn btn-default';\x0a\x09\x09with: 'Dive'; \x0a\x09\x09onClick: [ self dive ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "button", "with:", "onClick:", "dive"]
 }),
 $globals.HLInspectorVariablesWidget);
@@ -770,6 +799,7 @@ args: ["html"],
 source: "renderContentOn: html\x0a\x09self renderHeadOn: html.\x0a\x09super renderContentOn: html.\x0a\x09self wrapper onDblClick: [ self dive ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["renderHeadOn:", "renderContentOn:", "onDblClick:", "wrapper", "dive"]
 }),
 $globals.HLInspectorVariablesWidget);
@@ -797,6 +827,7 @@ args: ["html"],
 source: "renderHeadOn: html\x0a\x09html div \x0a\x09\x09class: 'list-label';\x0a\x09\x09with: self label",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "div", "with:", "label"]
 }),
 $globals.HLInspectorVariablesWidget);
@@ -816,6 +847,7 @@ args: [],
 source: "resetItems\x0a\x09items := nil",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspectorVariablesWidget);
@@ -848,6 +880,7 @@ args: ["anObject"],
 source: "selectItem: anObject\x0a\x09super selectItem: anObject.\x0a    self model selectedInstVar: anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectItem:", "selectedInstVar:", "model"]
 }),
 $globals.HLInspectorVariablesWidget);
@@ -871,6 +904,7 @@ args: [],
 source: "selection\x0a\x09^ self model selection",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selection", "model"]
 }),
 $globals.HLInspectorVariablesWidget);
@@ -894,6 +928,7 @@ args: [],
 source: "variables\x0a\x09^ self model variables keys",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["keys", "variables", "model"]
 }),
 $globals.HLInspectorVariablesWidget);
@@ -927,6 +962,7 @@ args: [],
 source: "codeWidget\x0a\x09^ codeWidget ifNil: [\x0a\x09\x09codeWidget := self defaultCodeWidget ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "defaultCodeWidget"]
 }),
 $globals.HLInspectorWidget);
@@ -946,6 +982,7 @@ args: ["aWidget"],
 source: "codeWidget: aWidget\x0a\x09codeWidget := aWidget",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspectorWidget);
@@ -978,6 +1015,7 @@ args: [],
 source: "defaultCodeWidget\x0a\x09^ HLCodeWidget new\x0a    \x09model: self model code;\x0a       \x09receiver: self model inspectee;\x0a       \x09yourself",
 referencedClasses: ["HLCodeWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["model:", "new", "code", "model", "receiver:", "inspectee", "yourself"]
 }),
 $globals.HLInspectorWidget);
@@ -1010,6 +1048,7 @@ args: [],
 source: "displayWidget\x0a\x09^ displayWidget ifNil: [\x0a\x09\x09displayWidget := HLInspectorDisplayWidget new\x0a    \x09\x09inspector: self;\x0a        \x09yourself ]",
 referencedClasses: ["HLInspectorDisplayWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "inspector:", "new", "yourself"]
 }),
 $globals.HLInspectorWidget);
@@ -1042,6 +1081,7 @@ args: [],
 source: "initialize\x0a\x09super initialize.\x0a\x09self register",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["initialize", "register"]
 }),
 $globals.HLInspectorWidget);
@@ -1069,6 +1109,7 @@ args: ["anObject"],
 source: "inspect: anObject\x0a\x09self model inspect: anObject on: self.\x0a\x09self codeWidget receiver: anObject.\x0a    \x0a\x09self \x0a    \x09refreshVariablesWidget;\x0a\x09\x09refreshDisplayWidget",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["inspect:on:", "model", "receiver:", "codeWidget", "refreshVariablesWidget", "refreshDisplayWidget"]
 }),
 $globals.HLInspectorWidget);
@@ -1092,6 +1133,7 @@ args: [],
 source: "inspectee\x0a\x09^ self model inspectee",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["inspectee", "model"]
 }),
 $globals.HLInspectorWidget);
@@ -1116,6 +1158,7 @@ args: ["anObject"],
 source: "inspectee: anObject\x0a\x09self model inspectee: anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["inspectee:", "model"]
 }),
 $globals.HLInspectorWidget);
@@ -1139,6 +1182,7 @@ args: [],
 source: "label\x0a    ^ self model label",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["label", "model"]
 }),
 $globals.HLInspectorWidget);
@@ -1169,6 +1213,7 @@ args: [],
 source: "model\x0a\x09^ model ifNil: [ \x0a    \x09self model: HLInspectorModel new.\x0a\x09\x09model ]",
 referencedClasses: ["HLInspectorModel"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "model:", "new"]
 }),
 $globals.HLInspectorWidget);
@@ -1197,6 +1242,7 @@ args: ["aModel"],
 source: "model: aModel\x0a\x09model := aModel. \x0a    self codeWidget model: aModel code.\x0a    \x0a    self \x0a        observeCodeWidget;\x0a    \x09observeVariablesWidget;\x0a        observeModel",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["model:", "codeWidget", "code", "observeCodeWidget", "observeVariablesWidget", "observeModel"]
 }),
 $globals.HLInspectorWidget);
@@ -1229,6 +1275,7 @@ args: [],
 source: "observeCodeWidget\x0a\x09self codeWidget announcer \x0a    \x09on: HLDoItExecuted \x0a        do: [ self onDoneIt ]",
 referencedClasses: ["HLDoItExecuted"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:do:", "announcer", "codeWidget", "onDoneIt"]
 }),
 $globals.HLInspectorWidget);
@@ -1253,6 +1300,7 @@ args: [],
 source: "observeModel\x0a\x09self model announcer\x0a        on: HLInstanceVariableSelected\x0a\x09\x09send: #onInstanceVariableSelected\x0a\x09\x09to: self",
 referencedClasses: ["HLInstanceVariableSelected"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:send:to:", "announcer", "model"]
 }),
 $globals.HLInspectorWidget);
@@ -1277,6 +1325,7 @@ args: [],
 source: "observeVariablesWidget\x0a\x09self variablesWidget announcer \x0a        on: HLDiveRequested \x0a\x09\x09send: #onDive\x0a\x09\x09to: self",
 referencedClasses: ["HLDiveRequested"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:send:to:", "announcer", "variablesWidget"]
 }),
 $globals.HLInspectorWidget);
@@ -1304,6 +1353,7 @@ args: [],
 source: "onDive\x0a\x09HLInspector new \x0a\x09\x09inspect: self model selectedInstVarObject;\x0a\x09\x09openAsTab",
 referencedClasses: ["HLInspector"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["inspect:", "new", "selectedInstVarObject", "model", "openAsTab"]
 }),
 $globals.HLInspectorWidget);
@@ -1328,6 +1378,7 @@ args: [],
 source: "onDoneIt\x0a\x0a\x09self refresh",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["refresh"]
 }),
 $globals.HLInspectorWidget);
@@ -1346,6 +1397,7 @@ args: [],
 source: "onInspectIt",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspectorWidget);
@@ -1370,6 +1422,7 @@ args: [],
 source: "onInstanceVariableSelected\x0a\x09self refreshDisplayWidget",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["refreshDisplayWidget"]
 }),
 $globals.HLInspectorWidget);
@@ -1388,6 +1441,7 @@ args: [],
 source: "onPrintIt",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspectorWidget);
@@ -1412,6 +1466,7 @@ args: [],
 source: "refresh\x0a\x09self inspect: self inspectee",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["inspect:", "inspectee"]
 }),
 $globals.HLInspectorWidget);
@@ -1436,6 +1491,7 @@ args: [],
 source: "refreshDisplayWidget\x0a\x09self displayWidget refresh",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["refresh", "displayWidget"]
 }),
 $globals.HLInspectorWidget);
@@ -1460,6 +1516,7 @@ args: [],
 source: "refreshVariablesWidget\x0a\x09self variablesWidget refresh",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["refresh", "variablesWidget"]
 }),
 $globals.HLInspectorWidget);
@@ -1484,6 +1541,7 @@ args: [],
 source: "register\x0a\x09HLInspector register: self",
 referencedClasses: ["HLInspector"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["register:"]
 }),
 $globals.HLInspectorWidget);
@@ -1513,6 +1571,7 @@ args: ["html"],
 source: "renderContentOn: html\x0a   \x09html with: (HLHorizontalSplitter\x0a    \x09with: (HLVerticalSplitter \x0a            with: self variablesWidget\x0a            with: self displayWidget)\x0a        with: self codeWidget)",
 referencedClasses: ["HLHorizontalSplitter", "HLVerticalSplitter"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["with:", "with:with:", "variablesWidget", "displayWidget", "codeWidget"]
 }),
 $globals.HLInspectorWidget);
@@ -1537,6 +1596,7 @@ args: ["aString"],
 source: "setLabel: aString\x0a\x09self model label: aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["label:", "model"]
 }),
 $globals.HLInspectorWidget);
@@ -1561,6 +1621,7 @@ args: ["aDictionary"],
 source: "setVariables: aDictionary\x0a\x09self model variables: aDictionary",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["variables:", "model"]
 }),
 $globals.HLInspectorWidget);
@@ -1579,6 +1640,7 @@ args: [],
 source: "tabLabel\x0a    ^ 'Inspector'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspectorWidget);
@@ -1611,6 +1673,7 @@ args: [],
 source: "unregister\x0a\x09super unregister.\x0a\x09HLInspector unregister: self",
 referencedClasses: ["HLInspector"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["unregister", "unregister:"]
 }),
 $globals.HLInspectorWidget);
@@ -1643,6 +1706,7 @@ args: [],
 source: "variablesWidget\x0a\x09^ variablesWidget ifNil: [\x0a\x09\x09variablesWidget := HLInspectorVariablesWidget new\x0a    \x09\x09inspector: self;\x0a        \x09yourself ]",
 referencedClasses: ["HLInspectorVariablesWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "inspector:", "new", "yourself"]
 }),
 $globals.HLInspectorWidget);
@@ -1678,6 +1742,7 @@ args: ["anObject"],
 source: "inspect: anObject\x0a\x09self setTabLabel: anObject printString.\x0a\x09super inspect: anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["setTabLabel:", "printString", "inspect:"]
 }),
 $globals.HLInspector);
@@ -1717,6 +1782,7 @@ args: ["html"],
 source: "renderContentOn: html\x0a   \x09html with: (HLContainer with: (HLHorizontalSplitter\x0a    \x09with: (HLVerticalSplitter \x0a            with: self variablesWidget\x0a            with: self displayWidget)\x0a        with: self codeWidget)).\x0a\x09\x0a\x09self variablesWidget focus",
 referencedClasses: ["HLContainer", "HLHorizontalSplitter", "HLVerticalSplitter"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["with:", "with:with:", "variablesWidget", "displayWidget", "codeWidget", "focus"]
 }),
 $globals.HLInspector);
@@ -1737,6 +1803,7 @@ args: [],
 source: "canBeOpenAsTab\x0a\x09^ false",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspector.a$cls);
@@ -1769,6 +1836,7 @@ args: [],
 source: "initialize\x0a\x09super initialize.\x0a\x09self watchChanges",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["initialize", "watchChanges"]
 }),
 $globals.HLInspector.a$cls);
@@ -1796,6 +1864,7 @@ args: ["anObject"],
 source: "inspect: anObject\x0a\x09self new\x0a\x09\x09openAsTab;\x0a\x09\x09inspect: anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["openAsTab", "new", "inspect:"]
 }),
 $globals.HLInspector.a$cls);
@@ -1826,6 +1895,7 @@ args: [],
 source: "inspectors\x0a\x09^ inspectors ifNil: [ inspectors := OrderedCollection new ]",
 referencedClasses: ["OrderedCollection"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLInspector.a$cls);
@@ -1850,6 +1920,7 @@ args: ["anInspector"],
 source: "register: anInspector\x0a\x09self inspectors add: anInspector",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["add:", "inspectors"]
 }),
 $globals.HLInspector.a$cls);
@@ -1868,6 +1939,7 @@ args: [],
 source: "tabClass\x0a\x09^ 'inspector'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspector.a$cls);
@@ -1886,6 +1958,7 @@ args: [],
 source: "tabLabel\x0a\x09^ 'Inspector'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspector.a$cls);
@@ -1904,6 +1977,7 @@ args: [],
 source: "tabPriority\x0a\x09^ 10",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLInspector.a$cls);
@@ -1928,6 +2002,7 @@ args: ["anInspector"],
 source: "unregister: anInspector\x0a\x09self inspectors remove: anInspector",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["remove:", "inspectors"]
 }),
 $globals.HLInspector.a$cls);
@@ -1968,6 +2043,7 @@ args: [],
 source: "watchChanges\x0a\x09[ self inspectors do: [ :each | each refresh ] ]\x0a\x09\x09valueWithInterval: 500",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["valueWithInterval:", "do:", "inspectors", "refresh"]
 }),
 $globals.HLInspector.a$cls);

src/Helios-KeyBindings.js

@@ -22,6 +22,7 @@ args: [],
 source: "apply",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBinding);
@@ -40,6 +41,7 @@ args: ["aKey"],
 source: "atKey: aKey\x0a\x09\x22Answer the sub-binding at key aKey.\x0a\x09Always answer nil here. See HLBindingGroup for more.\x22\x0a\x09\x0a\x09^ nil",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBinding);
@@ -63,6 +65,7 @@ args: [],
 source: "displayLabel\x0a\x09^ self label",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["label"]
 }),
 $globals.HLBinding);
@@ -86,6 +89,7 @@ args: [],
 source: "isActive\x0a\x09^ self subclassResponsibility",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["subclassResponsibility"]
 }),
 $globals.HLBinding);
@@ -104,6 +108,7 @@ args: [],
 source: "key\x0a\x09^ key",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBinding);
@@ -123,6 +128,7 @@ args: ["anInteger"],
 source: "key: anInteger\x0a\x09key := anInteger",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBinding);
@@ -141,6 +147,7 @@ args: [],
 source: "label\x0a\x09^ label",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBinding);
@@ -160,6 +167,7 @@ args: ["aString"],
 source: "label: aString\x0a\x09label := aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBinding);
@@ -178,6 +186,7 @@ args: [],
 source: "release",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBinding);
@@ -196,6 +205,7 @@ args: ["aBindingHelper", "html"],
 source: "renderOn: aBindingHelper html: html",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBinding);
@@ -219,6 +229,7 @@ args: [],
 source: "shortcut\x0a\x09^ String fromCharCode: self key",
 referencedClasses: ["String"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["fromCharCode:", "key"]
 }),
 $globals.HLBinding);
@@ -247,6 +258,7 @@ args: ["anInteger", "aString"],
 source: "on: anInteger labelled: aString\x0a\x09^ self new\x0a    \x09key: anInteger;\x0a        label: aString;\x0a        yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["key:", "new", "label:", "yourself"]
 }),
 $globals.HLBinding.a$cls);
@@ -282,6 +294,7 @@ args: [],
 source: "apply\x0a\x09self command isInputRequired\x0a\x09\x09ifTrue: [ HLKeyBinder current helper showWidget: self inputWidget ]\x0a\x09\x09ifFalse: [ self executeCommand ]",
 referencedClasses: ["HLKeyBinder"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:ifFalse:", "isInputRequired", "command", "showWidget:", "helper", "current", "inputWidget", "executeCommand"]
 }),
 $globals.HLBindingAction);
@@ -300,6 +313,7 @@ args: [],
 source: "command\x0a\x09^ command",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBindingAction);
@@ -319,6 +333,7 @@ args: ["aCommand"],
 source: "command: aCommand\x0a\x09command := aCommand",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBindingAction);
@@ -344,6 +359,7 @@ args: [],
 source: "executeCommand\x0a\x09self command execute.\x0a\x09HLKeyBinder current deactivate",
 referencedClasses: ["HLKeyBinder"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["execute", "command", "deactivate", "current"]
 }),
 $globals.HLBindingAction);
@@ -368,6 +384,7 @@ args: ["aString"],
 source: "input: aString\x0a\x09self command input: aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["input:", "command"]
 }),
 $globals.HLBindingAction);
@@ -428,6 +445,7 @@ args: [],
 source: "inputBinding\x0a\x09^ HLBindingInput new\x0a\x09\x09label: self command inputLabel;\x0a\x09\x09ghostText: self command displayLabel;\x0a\x09\x09defaultValue: self command defaultInput;\x0a\x09\x09inputCompletion: self command inputCompletion;\x0a\x09\x09callback: [ :val | \x0a\x09\x09\x09self command \x0a\x09\x09\x09\x09input: val;\x0a\x09\x09\x09\x09execute ];\x0a\x09\x09yourself",
 referencedClasses: ["HLBindingInput"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["label:", "new", "inputLabel", "command", "ghostText:", "displayLabel", "defaultValue:", "defaultInput", "inputCompletion:", "inputCompletion", "callback:", "input:", "execute", "yourself"]
 }),
 $globals.HLBindingAction);
@@ -476,6 +494,7 @@ args: [],
 source: "inputWidget\x0a\x09^ HLBindingActionInputWidget new\x0a\x09\x09ghostText: self command displayLabel;\x0a\x09\x09defaultValue: self command defaultInput;\x0a\x09\x09inputCompletion: self command inputCompletion;\x0a\x09\x09callback: [ :value | \x0a\x09\x09\x09self \x0a\x09\x09\x09\x09input: value;\x0a\x09\x09\x09\x09executeCommand ];\x0a\x09\x09yourself",
 referencedClasses: ["HLBindingActionInputWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ghostText:", "new", "displayLabel", "command", "defaultValue:", "defaultInput", "inputCompletion:", "inputCompletion", "callback:", "input:", "executeCommand", "yourself"]
 }),
 $globals.HLBindingAction);
@@ -499,6 +518,7 @@ args: [],
 source: "isActive\x0a\x09^ self command isActive",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["isActive", "command"]
 }),
 $globals.HLBindingAction);
@@ -536,6 +556,7 @@ args: [],
 source: "activeBindings\x0a\x09^ self bindings select: [ :each | each isActive ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["select:", "bindings", "isActive"]
 }),
 $globals.HLBindingGroup);
@@ -559,6 +580,7 @@ args: ["aBinding"],
 source: "add: aBinding\x0a\x09^ self bindings add: aBinding",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["add:", "bindings"]
 }),
 $globals.HLBindingGroup);
@@ -587,6 +609,7 @@ args: ["anInteger", "aString", "aBlock"],
 source: "addActionKey: anInteger labelled: aString callback: aBlock\x0a\x09self add: ((HLBindingAction on: anInteger labelled: aString)\x0a    \x09callback: aBlock;\x0a        yourself)",
 referencedClasses: ["HLBindingAction"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["add:", "callback:", "on:labelled:", "yourself"]
 }),
 $globals.HLBindingGroup);
@@ -611,6 +634,7 @@ args: ["anInteger", "aString"],
 source: "addGroupKey: anInteger labelled: aString\x0a\x09self add: (HLBindingGroup on: anInteger labelled: aString)",
 referencedClasses: ["HLBindingGroup"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["add:", "on:labelled:"]
 }),
 $globals.HLBindingGroup);
@@ -645,6 +669,7 @@ args: ["aString"],
 source: "at: aString\x0a\x09^ self bindings \x0a    \x09detect: [ :each | each label = aString ]\x0a      \x09ifNone: [ nil ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["detect:ifNone:", "bindings", "=", "label"]
 }),
 $globals.HLBindingGroup);
@@ -678,6 +703,7 @@ args: ["aString", "aBinding"],
 source: "at: aString add: aBinding\x0a\x09| binding |\x0a\x09\x0a\x09binding := self at: aString.\x0a\x09binding ifNil: [ ^ self ].\x0a\x09\x09\x0a\x09binding add: aBinding",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["at:", "ifNil:", "add:"]
 }),
 $globals.HLBindingGroup);
@@ -712,6 +738,7 @@ args: ["anInteger"],
 source: "atKey: anInteger\x0a\x09^ self bindings \x0a    \x09detect: [ :each | each key = anInteger ]\x0a      \x09ifNone: [ nil ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["detect:ifNone:", "bindings", "=", "key"]
 }),
 $globals.HLBindingGroup);
@@ -742,6 +769,7 @@ args: [],
 source: "bindings\x0a\x09^ bindings ifNil: [ bindings := OrderedCollection new ]",
 referencedClasses: ["OrderedCollection"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLBindingGroup);
@@ -774,6 +802,7 @@ args: [],
 source: "displayLabel\x0a\x09^ super displayLabel, '...'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: [",", "displayLabel"]
 }),
 $globals.HLBindingGroup);
@@ -797,6 +826,7 @@ args: [],
 source: "isActive\x0a\x09^ self activeBindings notEmpty",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["notEmpty", "activeBindings"]
 }),
 $globals.HLBindingGroup);
@@ -829,6 +859,7 @@ args: [],
 source: "release\x0a\x09self bindings do: [ :each | each release ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["do:", "bindings", "release"]
 }),
 $globals.HLBindingGroup);
@@ -857,6 +888,7 @@ args: ["aBindingHelper", "html"],
 source: "renderOn: aBindingHelper html: html\x0a\x09self isActive ifTrue: [\x0a\x09\x09aBindingHelper renderBindingGroup: self on: html ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:", "isActive", "renderBindingGroup:on:"]
 }),
 $globals.HLBindingGroup);
@@ -895,6 +927,7 @@ args: [],
 source: "callback\x0a\x09^ callback ifNil: [ callback := [ :value | ] ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:"]
 }),
 $globals.HLBindingActionInputWidget);
@@ -914,6 +947,7 @@ args: ["aBlock"],
 source: "callback: aBlock\x0a\x09callback := aBlock",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBindingActionInputWidget);
@@ -940,6 +974,7 @@ args: [],
 source: "clearStatus\x0a\x09self status: 'info'.\x0a\x09self message: ''.\x0a\x09self refresh",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["status:", "message:", "refresh"]
 }),
 $globals.HLBindingActionInputWidget);
@@ -969,6 +1004,7 @@ args: [],
 source: "defaultValue\x0a\x09^ defaultValue ifNil: [ '' ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:"]
 }),
 $globals.HLBindingActionInputWidget);
@@ -988,6 +1024,7 @@ args: ["aString"],
 source: "defaultValue: aString\x0a\x09defaultValue := aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBindingActionInputWidget);
@@ -1013,6 +1050,7 @@ args: [],
 source: "errorStatus\x0a\x09self status: 'error'.\x0a\x09self refresh",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["status:", "refresh"]
 }),
 $globals.HLBindingActionInputWidget);
@@ -1063,6 +1101,7 @@ args: ["aString"],
 source: "evaluate: aString\x09\x0a\x09[ self callback value: aString ]\x0a\x09\x09on: Error\x0a\x09\x09do: [ :ex |\x0a\x09\x09\x09self input asJQuery \x0a\x09\x09\x09\x09one: 'keydown' \x0a\x09\x09\x09\x09do: [ self clearStatus ].\x0a\x09\x09\x09self message: ex messageText.\x0a\x09\x09\x09self errorStatus ]",
 referencedClasses: ["Error"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:do:", "value:", "callback", "one:do:", "asJQuery", "input", "clearStatus", "message:", "messageText", "errorStatus"]
 }),
 $globals.HLBindingActionInputWidget);
@@ -1081,6 +1120,7 @@ args: [],
 source: "ghostText\x0a\x09^ ghostText",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBindingActionInputWidget);
@@ -1100,6 +1140,7 @@ args: ["aText"],
 source: "ghostText: aText\x0a\x09ghostText := aText",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBindingActionInputWidget);
@@ -1118,6 +1159,7 @@ args: [],
 source: "input\x0a\x09^ input",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBindingActionInputWidget);
@@ -1147,6 +1189,7 @@ args: [],
 source: "inputCompletion\x0a\x09^ inputCompletion ifNil: [ #() ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:"]
 }),
 $globals.HLBindingActionInputWidget);
@@ -1166,6 +1209,7 @@ args: ["aCollection"],
 source: "inputCompletion: aCollection\x0a\x09inputCompletion := aCollection",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBindingActionInputWidget);
@@ -1196,6 +1240,7 @@ args: [],
 source: "message\x0a\x09^ message ifNil: [ message := '' ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:"]
 }),
 $globals.HLBindingActionInputWidget);
@@ -1215,6 +1260,7 @@ args: ["aString"],
 source: "message: aString\x0a\x09message := aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBindingActionInputWidget);
@@ -1247,6 +1293,7 @@ args: [],
 source: "refresh\x0a\x09wrapper ifNil: [ ^ self ].\x0a    \x0a\x09wrapper class: self status.\x0a\x09messageTag contents: self message",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "class:", "status", "contents:", "message"]
 }),
 $globals.HLBindingActionInputWidget);
@@ -1342,6 +1389,7 @@ args: ["html"],
 source: "renderOn: html\x0a\x09wrapper ifNil: [ wrapper := html span ].\x0a\x0a\x09wrapper \x0a\x09\x09class: self status;\x0a\x09\x09with: [\x0a\x09\x09\x09input := html input\x0a\x09\x09\x09\x09placeholder: self ghostText;\x0a\x09\x09\x09\x09value: self defaultValue;\x0a\x09\x09\x09\x09onKeyDown: [ :event | \x0a\x09\x09\x09\x09\x09event which = 13 ifTrue: [\x0a\x09\x09\x09\x09\x09\x09self evaluate: input asJQuery val ] ]\x0a\x09\x09\x09\x09yourself.\x0a\x09\x09\x09input asJQuery \x0a\x09\x09\x09\x09typeahead: #{ 'source' -> self inputCompletion }.\x0a\x09\x09\x09messageTag := (html span\x0a\x09\x09\x09\x09class: 'help-inline';\x0a\x09\x09\x09\x09with: self message;\x0a\x09\x09\x09\x09yourself) ].\x0a\x09\x0a\x09\x22Evaluate with a timeout to ensure focus.\x0a\x09Commands can be executed from a menu, clicking on the menu to\x0a\x09evaluate the command would give it the focus otherwise\x22\x0a\x09\x0a\x09[ input asJQuery focus; select ] fork",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "span", "class:", "status", "with:", "placeholder:", "input", "ghostText", "value:", "defaultValue", "onKeyDown:", "yourself", "ifTrue:", "=", "which", "evaluate:", "val", "asJQuery", "typeahead:", "inputCompletion", "message", "fork", "focus", "select"]
 }),
 $globals.HLBindingActionInputWidget);
@@ -1372,6 +1420,7 @@ args: [],
 source: "status\x0a\x09^ status ifNil: [ status := 'info' ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:"]
 }),
 $globals.HLBindingActionInputWidget);
@@ -1391,6 +1440,7 @@ args: ["aStatus"],
 source: "status: aStatus\x0a\x09status := aStatus",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBindingActionInputWidget);
@@ -1421,6 +1471,7 @@ args: [],
 source: "activate\x0a\x09self helper show",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["show", "helper"]
 }),
 $globals.HLKeyBinder);
@@ -1444,6 +1495,7 @@ args: [],
 source: "activateSpotlight\x0a\x09^ '.spotlight' asJQuery focus",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["focus", "asJQuery"]
 }),
 $globals.HLKeyBinder);
@@ -1462,6 +1514,7 @@ args: [],
 source: "activationKey\x0a\x09\x22SPACE\x22\x0a\x09^ 32",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLKeyBinder);
@@ -1480,6 +1533,7 @@ args: [],
 source: "activationKeyLabel\x0a\x09^ 'ctrl + space'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLKeyBinder);
@@ -1510,6 +1564,7 @@ args: ["aBinding"],
 source: "applyBinding: aBinding\x0a\x09aBinding isActive ifFalse: [ ^ self ].\x0a\x09\x0a\x09self selectBinding: aBinding.\x0a    aBinding apply",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifFalse:", "isActive", "selectBinding:", "apply"]
 }),
 $globals.HLKeyBinder);
@@ -1540,6 +1595,7 @@ args: [],
 source: "bindings\x0a\x09^ bindings ifNil: [ bindings := self defaultBindings ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "defaultBindings"]
 }),
 $globals.HLKeyBinder);
@@ -1572,6 +1628,7 @@ args: [],
 source: "deactivate\x0a\x09selectedBinding ifNotNil: [ selectedBinding release ].\x0a    selectedBinding := nil.\x0a\x09self helper hide",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNotNil:", "release", "hide", "helper"]
 }),
 $globals.HLKeyBinder);
@@ -1616,6 +1673,7 @@ args: [],
 source: "defaultBindings\x0a\x09| group |\x0a\x09\x0a\x09group := HLBindingGroup new\x0a\x09\x09add: HLCloseTabCommand new asBinding;\x0a\x09\x09add: HLSwitchTabCommand new asBinding;\x0a\x09\x09yourself.\x0a\x09\x09\x0a\x09HLOpenCommand registerConcreteClassesOn: group.\x0a\x09\x09\x09\x09\x0a\x09^ group",
 referencedClasses: ["HLBindingGroup", "HLCloseTabCommand", "HLSwitchTabCommand", "HLOpenCommand"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["add:", "new", "asBinding", "yourself", "registerConcreteClassesOn:"]
 }),
 $globals.HLKeyBinder);
@@ -1634,6 +1692,7 @@ args: [],
 source: "escapeKey\x0a\x09\x22ESC\x22\x0a\x09^ 27",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLKeyBinder);
@@ -1653,6 +1712,7 @@ args: [],
 source: "flushBindings\x0a\x09bindings := nil",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLKeyBinder);
@@ -1727,6 +1787,7 @@ args: ["event"],
 source: "handleActiveKeyDown: event\x0a\x0a\x09\x22ESC, ctrl+g ctrl+space deactivate the keyBinder\x22\x0a\x09(event which = self escapeKey or: [\x0a\x09\x09(event which = 71 or: [ event which = self activationKey ]) \x0a\x09\x09\x09and: [ event ctrlKey ] ])\x0a        \x09\x09ifTrue: [ \x0a           \x09\x09\x09self deactivate.\x0a\x09\x09\x09\x09\x09event preventDefault.\x0a\x09\x09\x09\x09\x09^ false ].\x0a            \x0a    \x22Handle the keybinding\x22\x0a    ^ self handleBindingFor: event",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:", "or:", "=", "which", "escapeKey", "and:", "activationKey", "ctrlKey", "deactivate", "preventDefault", "handleBindingFor:"]
 }),
 $globals.HLKeyBinder);
@@ -1761,6 +1822,7 @@ args: ["anEvent"],
 source: "handleBindingFor: anEvent\x0a\x09| binding |\x0a    binding := self selectedBinding atKey: anEvent which.\x0a    \x0a    binding ifNotNil: [ \x0a    \x09self applyBinding: binding.\x0a\x09\x09anEvent preventDefault.\x0a\x09\x09^ false ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["atKey:", "selectedBinding", "which", "ifNotNil:", "applyBinding:", "preventDefault"]
 }),
 $globals.HLKeyBinder);
@@ -1816,6 +1878,7 @@ args: ["event"],
 source: "handleInactiveKeyDown: event\x0a\x09event which = self activationKey ifTrue: [\x0a    \x09event ctrlKey ifTrue: [\x0a\x09\x09\x09self activate. \x0a            event preventDefault. \x0a            ^ false ] ].\x0a\x09\x09\x09\x0a\x09event which = self spotlightActivationKey ifTrue: [\x0a    \x09event ctrlKey ifTrue: [\x0a\x09\x09\x09self activateSpotlight. \x0a            event preventDefault. \x0a            ^ false ] ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:", "=", "which", "activationKey", "ctrlKey", "activate", "preventDefault", "spotlightActivationKey", "activateSpotlight"]
 }),
 $globals.HLKeyBinder);
@@ -1845,6 +1908,7 @@ args: ["event"],
 source: "handleKeyDown: event\x0a\x09^ self isActive\x0a    \x09ifTrue: [ self handleActiveKeyDown: event ]\x0a      \x09ifFalse: [ self handleInactiveKeyDown: event ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:ifFalse:", "isActive", "handleActiveKeyDown:", "handleInactiveKeyDown:"]
 }),
 $globals.HLKeyBinder);
@@ -1863,6 +1927,7 @@ args: [],
 source: "helper\x0a\x09^ helper",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLKeyBinder);
@@ -1895,6 +1960,7 @@ args: [],
 source: "initialize\x0a\x09super initialize.\x0a\x09helper := HLKeyBinderHelperWidget on: self",
 referencedClasses: ["HLKeyBinderHelperWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["initialize", "on:"]
 }),
 $globals.HLKeyBinder);
@@ -1918,6 +1984,7 @@ args: [],
 source: "isActive\x0a\x09^ ('.', self helper cssClass) asJQuery is: ':visible'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["is:", "asJQuery", ",", "cssClass", "helper"]
 }),
 $globals.HLKeyBinder);
@@ -1948,6 +2015,7 @@ args: ["aBinding"],
 source: "selectBinding: aBinding\x0a\x09aBinding = selectedBinding ifTrue: [ ^ self ].\x0a\x09\x0a\x09selectedBinding := aBinding.\x0a\x09self helper refresh",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:", "=", "refresh", "helper"]
 }),
 $globals.HLKeyBinder);
@@ -1977,6 +2045,7 @@ args: [],
 source: "selectedBinding\x0a\x09^ selectedBinding ifNil: [ self bindings ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "bindings"]
 }),
 $globals.HLKeyBinder);
@@ -2009,6 +2078,7 @@ args: [],
 source: "setupEvents\x0a\x09'body' asJQuery keydown: [ :event | self handleKeyDown: event ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["keydown:", "asJQuery", "handleKeyDown:"]
 }),
 $globals.HLKeyBinder);
@@ -2027,6 +2097,7 @@ args: [],
 source: "spotlightActivationKey\x0a\x09\x22f\x22\x0a\x09^ 70",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLKeyBinder);
@@ -2050,6 +2121,7 @@ args: [],
 source: "systemIsMac\x0a\x09^ navigator platform match: 'Mac'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["match:", "platform"]
 }),
 $globals.HLKeyBinder);
@@ -2089,6 +2161,7 @@ args: [],
 source: "current\x0a\x09^ current ifNil: [ current := super new ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLKeyBinder.a$cls);
@@ -2113,6 +2186,7 @@ args: [],
 source: "new\x0a\x09self shouldNotImplement",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["shouldNotImplement"]
 }),
 $globals.HLKeyBinder.a$cls);
@@ -2136,6 +2210,7 @@ args: [],
 source: "cssClass\x0a\x09^ 'key_helper'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2160,6 +2235,7 @@ args: [],
 source: "deactivate\x0a\x09self keyBinder deactivate",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["deactivate", "keyBinder"]
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2194,6 +2270,7 @@ args: [],
 source: "hide\x0a\x09('.', self cssClass) asJQuery remove.\x0a\x09'.helper_overlay' asJQuery remove.\x0a\x09self showCog",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["remove", "asJQuery", ",", "cssClass", "showCog"]
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2218,6 +2295,7 @@ args: [],
 source: "hideCog\x0a\x09'#cog-helper' asJQuery hide",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["hide", "asJQuery"]
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2236,6 +2314,7 @@ args: [],
 source: "keyBinder\x0a\x09^ keyBinder",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2255,6 +2334,7 @@ args: ["aKeyBinder"],
 source: "keyBinder: aKeyBinder\x0a\x09keyBinder := aKeyBinder",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2273,6 +2353,7 @@ args: [],
 source: "mainId\x0a\x09^ 'binding-helper-main'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2334,6 +2415,7 @@ args: ["aBinding", "html"],
 source: "renderBindingActionFor: aBinding on: html\x0a\x09html span class: 'command'; with: [\x0a\x09\x09html strong \x0a\x09\x09\x09class: 'label'; \x0a\x09\x09\x09with: aBinding shortcut asLowercase.\x0a  \x09\x09html a \x0a        \x09class: 'action'; \x0a            with: aBinding displayLabel;\x0a  \x09\x09\x09onClick: [ self keyBinder applyBinding: aBinding ] ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "span", "with:", "strong", "asLowercase", "shortcut", "a", "displayLabel", "onClick:", "applyBinding:", "keyBinder"]
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2379,6 +2461,7 @@ args: ["aBindingGroup", "html"],
 source: "renderBindingGroup: aBindingGroup on: html\x0a\x09(aBindingGroup activeBindings \x0a    \x09sorted: [ :a :b | a key < b key ])\x0a        do: [ :each | self renderBindingActionFor: each on: html ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["do:", "sorted:", "activeBindings", "<", "key", "renderBindingActionFor:on:"]
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2426,6 +2509,7 @@ args: ["html"],
 source: "renderCloseOn: html\x0a\x09html a\x0a\x09\x09class: 'close';\x0a\x09\x09with: [ (html tag: 'i') class: 'glyphicon glyphicon-remove' ];\x0a\x09\x09onClick: [ self keyBinder deactivate ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "a", "with:", "tag:", "onClick:", "deactivate", "keyBinder"]
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2501,6 +2585,7 @@ args: ["html"],
 source: "renderContentOn: html\x0a\x09html div \x0a\x09\x09id: 'overlay';\x0a\x09\x09class: 'helper_overlay';\x0a\x09\x09onClick: [ self deactivate ].\x0a\x09\x0a\x09html div class: self cssClass; with: [\x0a      \x09self renderLabelOn: html.\x0a\x09\x09html div\x0a\x09\x09\x09id: self mainId;\x0a\x09\x09\x09with: [ self renderSelectedBindingOn: html ].\x0a\x09\x09self renderCloseOn: html ].\x0a\x09\x09\x0a\x09':focus' asJQuery blur",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["id:", "div", "class:", "onClick:", "deactivate", "cssClass", "with:", "renderLabelOn:", "mainId", "renderSelectedBindingOn:", "renderCloseOn:", "blur", "asJQuery"]
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2534,6 +2619,7 @@ args: ["html"],
 source: "renderLabelOn: html\x0a\x09\x09html span \x0a        \x09class: 'selected'; \x0a            with: (self selectedBinding label ifNil: [ 'Action' ])",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "span", "with:", "ifNil:", "label", "selectedBinding"]
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2558,6 +2644,7 @@ args: ["html"],
 source: "renderSelectedBindingOn: html\x0a\x09self selectedBinding renderOn: self html: html",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["renderOn:html:", "selectedBinding"]
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2581,6 +2668,7 @@ args: [],
 source: "selectedBinding\x0a\x09^ self keyBinder selectedBinding",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectedBinding", "keyBinder"]
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2606,6 +2694,7 @@ args: [],
 source: "show\x0a\x09self hideCog.\x0a\x09self appendToJQuery: 'body' asJQuery",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["hideCog", "appendToJQuery:", "asJQuery"]
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2630,6 +2719,7 @@ args: [],
 source: "showCog\x0a\x09'#cog-helper' asJQuery show",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["show", "asJQuery"]
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2668,6 +2758,7 @@ args: ["aWidget"],
 source: "showWidget: aWidget\x0a\x09\x22Some actions need to display more info to the user or request input.\x0a\x09This method is the right place for that\x22\x0a\x09\x0a\x09('#', self mainId) asJQuery empty.\x0a\x09aWidget appendToJQuery: ('#', self mainId) asJQuery",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["empty", "asJQuery", ",", "mainId", "appendToJQuery:"]
 }),
 $globals.HLKeyBinderHelperWidget);
@@ -2695,6 +2786,7 @@ args: ["aKeyBinder"],
 source: "on: aKeyBinder\x0a\x09^ self new\x0a    \x09keyBinder: aKeyBinder;\x0a        yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["keyBinder:", "new", "yourself"]
 }),
 $globals.HLKeyBinderHelperWidget.a$cls);
@@ -2740,6 +2832,7 @@ args: [],
 source: "bindKeys\x0a\x09self widget \x0a\x09\x09bindKeyDown: [ :e | self handleKeyDown: e ] \x0a\x09\x09keyUp: [ :e | self handleKeyUp ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["bindKeyDown:keyUp:", "widget", "handleKeyDown:", "handleKeyUp"]
 }),
 $globals.HLRepeatedKeyDownHandler);
@@ -2758,6 +2851,7 @@ args: [],
 source: "defaultRepeatInterval\x0a\x09^ 70",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLRepeatedKeyDownHandler);
@@ -2794,6 +2888,7 @@ args: ["anEvent", "anInteger", "aBlock"],
 source: "handleEvent: anEvent forKey: anInteger action: aBlock\x0a\x09(anEvent which = anInteger and: [ self isKeyDown not ])\x0a\x09\x09ifTrue: [ self whileKeyDownDo: aBlock ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:", "and:", "=", "which", "not", "isKeyDown", "whileKeyDownDo:"]
 }),
 $globals.HLRepeatedKeyDownHandler);
@@ -2826,6 +2921,7 @@ args: ["anEvent"],
 source: "handleKeyDown: anEvent\x0a\x09self keyBindings keysAndValuesDo: [ :key :action | \x0a\x09\x09self handleEvent: anEvent forKey: key action: action ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["keysAndValuesDo:", "keyBindings", "handleEvent:forKey:action:"]
 }),
 $globals.HLRepeatedKeyDownHandler);
@@ -2866,6 +2962,7 @@ args: [],
 source: "handleKeyUp\x0a\x09self isKeyDown ifTrue: [\x0a\x09\x09keyDown := false.\x0a\x09\x09interval ifNotNil: [ interval clearInterval ].\x0a\x09\x09delay ifNotNil: [ delay clearTimeout ] ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:", "isKeyDown", "ifNotNil:", "clearInterval", "clearTimeout"]
 }),
 $globals.HLRepeatedKeyDownHandler);
@@ -2895,6 +2992,7 @@ args: [],
 source: "isKeyDown\x0a\x09^ keyDown ifNil: [ false ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:"]
 }),
 $globals.HLRepeatedKeyDownHandler);
@@ -2925,6 +3023,7 @@ args: [],
 source: "keyBindings\x0a\x09^ keyBindings ifNil: [ keyBindings := Dictionary new ]",
 referencedClasses: ["Dictionary"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLRepeatedKeyDownHandler);
@@ -2950,6 +3049,7 @@ args: [],
 source: "rebindKeys\x0a\x09self \x0a\x09\x09unbindKeys;\x0a\x09\x09bindKeys",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["unbindKeys", "bindKeys"]
 }),
 $globals.HLRepeatedKeyDownHandler);
@@ -2979,6 +3079,7 @@ args: [],
 source: "repeatInterval\x0a\x09^ repeatInterval ifNil: [ self defaultRepeatInterval ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "defaultRepeatInterval"]
 }),
 $globals.HLRepeatedKeyDownHandler);
@@ -2998,6 +3099,7 @@ args: ["anInteger"],
 source: "repeatInterval: anInteger\x0a\x09repeatInterval := anInteger",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLRepeatedKeyDownHandler);
@@ -3035,6 +3137,7 @@ args: ["aBlock"],
 source: "startRepeatingAction: aBlock\x0a\x09^ [ (self widget hasFocus)\x0a\x09\x09ifTrue: [ aBlock value ]\x0a\x09\x09ifFalse: [ self handleKeyUp ] ] valueWithInterval: self repeatInterval",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["valueWithInterval:", "ifTrue:ifFalse:", "hasFocus", "widget", "value", "handleKeyUp", "repeatInterval"]
 }),
 $globals.HLRepeatedKeyDownHandler);
@@ -3059,6 +3162,7 @@ args: [],
 source: "unbindKeys\x0a\x09self widget unbindKeyDownKeyUp",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["unbindKeyDownKeyUp", "widget"]
 }),
 $globals.HLRepeatedKeyDownHandler);
@@ -3083,6 +3187,7 @@ args: ["aKey", "aBlock"],
 source: "whileKeyDown: aKey do: aBlock\x0a\x09self keyBindings at: aKey put: aBlock",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["at:put:", "keyBindings"]
 }),
 $globals.HLRepeatedKeyDownHandler);
@@ -3118,6 +3223,7 @@ args: ["aBlock"],
 source: "whileKeyDownDo: aBlock\x0a\x09keyDown := true.\x0a\x09aBlock value.\x0a\x09delay := [ interval := self startRepeatingAction: aBlock ] \x0a\x09\x09valueWithTimeout: 300",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["value", "valueWithTimeout:", "startRepeatingAction:"]
 }),
 $globals.HLRepeatedKeyDownHandler);
@@ -3136,6 +3242,7 @@ args: [],
 source: "widget\x0a\x09^ widget",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLRepeatedKeyDownHandler);
@@ -3155,6 +3262,7 @@ args: ["aWidget"],
 source: "widget: aWidget\x0a\x09widget := aWidget",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLRepeatedKeyDownHandler);
@@ -3182,6 +3290,7 @@ args: ["aWidget"],
 source: "on: aWidget\x0a\x09^ self new\x0a\x09\x09widget: aWidget;\x0a\x09\x09yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["widget:", "new", "yourself"]
 }),
 $globals.HLRepeatedKeyDownHandler.a$cls);

src/Helios-Layout.js

@@ -28,6 +28,7 @@ args: ["html"],
 source: "renderOn: html\x0a\x09html div \x0a    \x09class: 'tool_container'; \x0a        with: self splitter",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "div", "with:", "splitter"]
 }),
 $globals.HLContainer);
@@ -46,6 +47,7 @@ args: [],
 source: "splitter\x0a\x09^ splitter",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLContainer);
@@ -65,6 +67,7 @@ args: ["aSplitter"],
 source: "splitter: aSplitter\x0a\x09splitter := aSplitter",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLContainer);
@@ -92,6 +95,7 @@ args: ["aSplitter"],
 source: "with: aSplitter\x0a\x09^ self new \x0a    \x09splitter: aSplitter; \x0a        yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["splitter:", "new", "yourself"]
 }),
 $globals.HLContainer.a$cls);
@@ -112,6 +116,7 @@ args: [],
 source: "cssClass\x0a\x09^ 'splitter'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSplitter);
@@ -130,6 +135,7 @@ args: [],
 source: "firstWidget\x0a\x09^ firstWidget",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSplitter);
@@ -149,6 +155,7 @@ args: ["aWidget"],
 source: "firstWidget: aWidget\x0a\x09firstWidget := aWidget",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSplitter);
@@ -167,6 +174,7 @@ args: [],
 source: "isHeliosSplitter\x0a\x09^ true",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSplitter);
@@ -185,6 +193,7 @@ args: [],
 source: "panesCssClass\x0a\x09^ 'panes'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSplitter);
@@ -254,6 +263,7 @@ args: ["html"],
 source: "renderOn: html\x0a\x09html div class: self panesCssClass; with: [\x0a\x09\x09firstPane := html div class: 'pane'; with: self firstWidget.\x0a    \x09splitter := html div class: self cssClass.\x0a    \x09secondPane := html div class: 'pane'; with: self secondWidget ].\x0a        \x0a\x09self setupSplitter",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "div", "panesCssClass", "with:", "firstWidget", "cssClass", "secondWidget", "setupSplitter"]
 }),
 $globals.HLSplitter);
@@ -272,6 +282,7 @@ args: [],
 source: "resize",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSplitter);
@@ -290,6 +301,7 @@ args: [],
 source: "secondWidget\x0a\x09^ secondWidget",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSplitter);
@@ -309,6 +321,7 @@ args: ["aWidget"],
 source: "secondWidget: aWidget\x0a\x09secondWidget := aWidget",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSplitter);
@@ -327,6 +340,7 @@ args: [],
 source: "setupSplitter",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSplitter);
@@ -355,6 +369,7 @@ args: ["aWidget", "anotherWidget"],
 source: "with: aWidget with: anotherWidget\x0a\x09^ self new\x0a    \x09\x09firstWidget: aWidget;\x0a            secondWidget: anotherWidget;\x0a            yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["firstWidget:", "new", "secondWidget:", "yourself"]
 }),
 $globals.HLSplitter.a$cls);
@@ -389,6 +404,7 @@ args: [],
 source: "cssClass\x0a\x09^ super cssClass, ' horizontal'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: [",", "cssClass"]
 }),
 $globals.HLHorizontalSplitter);
@@ -421,6 +437,7 @@ args: [],
 source: "panesCssClass\x0a\x09^ super panesCssClass, ' horizontal'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: [",", "panesCssClass"]
 }),
 $globals.HLHorizontalSplitter);
@@ -445,6 +462,7 @@ args: [],
 source: "resize\x0a\x09self resize: (splitter asJQuery css: 'top')",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["resize:", "css:", "asJQuery"]
 }),
 $globals.HLHorizontalSplitter);
@@ -531,6 +549,7 @@ args: ["anInteger"],
 source: "resize: anInteger\x0a\x09| container size offset percentage |\x0a    \x0a    container := firstPane asJQuery parent.\x0a\x09offset := firstPane asJQuery offset top.\x0a    size := container height.\x0a\x09\x0a\x09percentage := (size - (anInteger - offset)) / size * 100.\x0a\x09percentage := 80 min: (percentage max: 20).\x0a\x09\x0a    firstPane asJQuery css: 'bottom' put: percentage asString, '%'.\x0a\x09\x0a\x09splitter asJQuery css: 'top' put: (100 - percentage) asString, '%'.\x0a\x09secondPane asJQuery css: 'top' put: (100 - percentage) asString, '%'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["parent", "asJQuery", "top", "offset", "height", "*", "/", "-", "min:", "max:", "css:put:", ",", "asString"]
 }),
 $globals.HLHorizontalSplitter);
@@ -576,6 +595,7 @@ args: [],
 source: "setupSplitter\x0a\x09splitter asJQuery draggable: #{ \x0a    \x09'axis' -> 'y'. \x0a        'containment' -> splitter asJQuery parent.\x0a        'helper' -> 'clone'.\x0a        'start' -> [ :e :ui | self startResizing: ui helper ].\x0a        'drag' -> [ :e :ui | self resize: ui offset top ] }",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["draggable:", "asJQuery", "parent", "startResizing:", "helper", "resize:", "top", "offset"]
 }),
 $globals.HLHorizontalSplitter);
@@ -600,6 +620,7 @@ args: ["aSplitter"],
 source: "startResizing: aSplitter\x0a\x09aSplitter width: splitter asJQuery width",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["width:", "width", "asJQuery"]
 }),
 $globals.HLHorizontalSplitter);
@@ -635,6 +656,7 @@ args: [],
 source: "cssClass\x0a\x09^ super cssClass, ' vertical'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: [",", "cssClass"]
 }),
 $globals.HLVerticalSplitter);
@@ -667,6 +689,7 @@ args: [],
 source: "panesCssClass\x0a\x09^ super panesCssClass, ' vertical'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: [",", "panesCssClass"]
 }),
 $globals.HLVerticalSplitter);
@@ -691,6 +714,7 @@ args: [],
 source: "resize\x0a\x09self resize: (splitter asJQuery css: 'left')",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["resize:", "css:", "asJQuery"]
 }),
 $globals.HLVerticalSplitter);
@@ -777,6 +801,7 @@ args: ["anInteger"],
 source: "resize: anInteger\x0a\x09| container size offset percentage |\x0a    \x0a    container := firstPane asJQuery parent.\x0a\x09offset := firstPane asJQuery offset left.\x0a    size := container width.\x0a\x09\x0a\x09percentage := (size - (anInteger - offset)) / size * 100.\x0a\x09percentage := 80 min: (percentage max: 20).\x0a\x09\x0a    firstPane asJQuery css: 'right' put: percentage asString, '%'.\x0a\x09\x0a\x09splitter asJQuery css: 'left' put: (100 - percentage) asString, '%'.\x0a\x09secondPane asJQuery css: 'left' put: (100 - percentage) asString, '%'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["parent", "asJQuery", "left", "offset", "width", "*", "/", "-", "min:", "max:", "css:put:", ",", "asString"]
 }),
 $globals.HLVerticalSplitter);
@@ -822,6 +847,7 @@ args: [],
 source: "setupSplitter\x0a\x09splitter asJQuery draggable: #{ \x0a    \x09'axis' -> 'x'. \x0a        'containment' -> splitter asJQuery parent.\x0a        'helper' -> 'clone'.\x0a        'start' -> [ :e :ui | self startResizing: ui helper ].\x0a        'drag' -> [ :e :ui | self resize: (ui offset left) ] }",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["draggable:", "asJQuery", "parent", "startResizing:", "helper", "resize:", "left", "offset"]
 }),
 $globals.HLVerticalSplitter);
@@ -846,6 +872,7 @@ args: ["aSplitter"],
 source: "startResizing: aSplitter\x0a\x09aSplitter height: splitter asJQuery height",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["height:", "height", "asJQuery"]
 }),
 $globals.HLVerticalSplitter);
@@ -865,6 +892,7 @@ args: [],
 source: "isHeliosSplitter\x0a\x09^ false",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.Object);

src/Helios-References.js

@@ -26,6 +26,7 @@ args: ["aCompiledMethod"],
 source: "initializeFromMethod: aCompiledMethod\x0a\x09self\x0a\x09\x09selector: aCompiledMethod selector;\x0a\x09\x09methodClass: aCompiledMethod methodClass",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selector:", "selector", "methodClass:", "methodClass"]
 }),
 $globals.HLMethodReference);
@@ -49,6 +50,7 @@ args: [],
 source: "method\x0a\x09^ self methodClass methodAt: self selector",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["methodAt:", "methodClass", "selector"]
 }),
 $globals.HLMethodReference);
@@ -67,6 +69,7 @@ args: [],
 source: "methodClass\x0a\x09^ methodClass",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLMethodReference);
@@ -86,6 +89,7 @@ args: ["aClass"],
 source: "methodClass: aClass\x0a\x09methodClass := aClass",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLMethodReference);
@@ -104,6 +108,7 @@ args: [],
 source: "selector\x0a\x09^ selector",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLMethodReference);
@@ -123,6 +128,7 @@ args: ["aString"],
 source: "selector: aString\x0a\x09selector := aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLMethodReference);
@@ -146,6 +152,7 @@ args: [],
 source: "source\x0a\x09^ self method source",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["source", "method"]
 }),
 $globals.HLMethodReference);
@@ -173,6 +180,7 @@ args: ["aCompiledMethod"],
 source: "on: aCompiledMethod\x0a\x09^ self new\x0a\x09\x09initializeFromMethod: aCompiledMethod;\x0a\x09\x09yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["initializeFromMethod:", "new", "yourself"]
 }),
 $globals.HLMethodReference.a$cls);
@@ -205,6 +213,7 @@ args: [],
 source: "classReferencesListWidget\x0a\x09^ classReferencesListWidget ifNil: [\x0a      \x09classReferencesListWidget := HLClassReferencesListWidget on: self model.\x0a\x09\x09classReferencesListWidget next: self regexpListWidget ]",
 referencedClasses: ["HLClassReferencesListWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "on:", "model", "next:", "regexpListWidget"]
 }),
 $globals.HLReferences);
@@ -235,6 +244,7 @@ args: [],
 source: "implementorsListWidget\x0a\x09^ implementorsListWidget ifNil: [\x0a      \x09implementorsListWidget := HLImplementorsListWidget on: self model.\x0a\x09\x09implementorsListWidget next: self classReferencesListWidget ]",
 referencedClasses: ["HLImplementorsListWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "on:", "model", "next:", "classReferencesListWidget"]
 }),
 $globals.HLReferences);
@@ -267,6 +277,7 @@ args: [],
 source: "model\x0a\x09^ model ifNil: [\x0a\x09\x09model := (HLReferencesModel new\x0a\x09\x09\x09environment: self manager environment;\x0a\x09\x09\x09yourself) ]",
 referencedClasses: ["HLReferencesModel"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "environment:", "new", "environment", "manager", "yourself"]
 }),
 $globals.HLReferences);
@@ -286,6 +297,7 @@ args: ["aModel"],
 source: "model: aModel\x0a\x09model := aModel",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLReferences);
@@ -316,6 +328,7 @@ args: [],
 source: "regexpListWidget\x0a\x09^ regexpListWidget ifNil: [\x0a      \x09regexpListWidget := HLRegexpListWidget on: self model.\x0a\x09\x09regexpListWidget next: self sourceCodeWidget ]",
 referencedClasses: ["HLRegexpListWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "on:", "model", "next:", "sourceCodeWidget"]
 }),
 $globals.HLReferences);
@@ -340,6 +353,7 @@ args: ["aBindingGroup"],
 source: "registerBindingsOn: aBindingGroup\x0a\x09HLToolCommand \x0a\x09\x09registerConcreteClassesOn: aBindingGroup \x0a\x09\x09for: self model",
 referencedClasses: ["HLToolCommand"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["registerConcreteClassesOn:for:", "model"]
 }),
 $globals.HLReferences);
@@ -386,6 +400,7 @@ args: ["html"],
 source: "renderContentOn: html\x0a\x09html with: (HLContainer with: (HLHorizontalSplitter \x0a    \x09with: (HLVerticalSplitter\x0a        \x09with: (HLVerticalSplitter\x0a            \x09with: self sendersListWidget\x0a                with: self implementorsListWidget)\x0a            with: (HLVerticalSplitter\x0a            \x09with: self classReferencesListWidget\x0a                with: self regexpListWidget)) \x0a        with: self sourceCodeWidget)).\x0a\x09\x0a\x09self sendersListWidget focus",
 referencedClasses: ["HLContainer", "HLHorizontalSplitter", "HLVerticalSplitter"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["with:", "with:with:", "sendersListWidget", "implementorsListWidget", "classReferencesListWidget", "regexpListWidget", "sourceCodeWidget", "focus"]
 }),
 $globals.HLReferences);
@@ -411,6 +426,7 @@ args: ["aString"],
 source: "search: aString\x0a\x09self model search: aString.\x0a\x09self setTabLabel: aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["search:", "model", "setTabLabel:"]
 }),
 $globals.HLReferences);
@@ -441,6 +457,7 @@ args: [],
 source: "sendersListWidget\x0a\x09^ sendersListWidget ifNil: [\x0a      \x09sendersListWidget := HLSendersListWidget on: self model.\x0a\x09\x09sendersListWidget next: self implementorsListWidget ]",
 referencedClasses: ["HLSendersListWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "on:", "model", "next:", "implementorsListWidget"]
 }),
 $globals.HLReferences);
@@ -473,6 +490,7 @@ args: [],
 source: "sourceCodeWidget\x0a\x09^ sourceCodeWidget ifNil: [\x0a      \x09sourceCodeWidget := HLBrowserCodeWidget new\x0a\x09\x09\x09browserModel: self model;\x0a\x09\x09\x09yourself ]",
 referencedClasses: ["HLBrowserCodeWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "browserModel:", "new", "model", "yourself"]
 }),
 $globals.HLReferences);
@@ -492,6 +510,7 @@ args: [],
 source: "canBeOpenAsTab\x0a\x09^ false",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLReferences.a$cls);
@@ -510,6 +529,7 @@ args: [],
 source: "tabClass\x0a\x09^ 'references'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLReferences.a$cls);
@@ -528,6 +548,7 @@ args: [],
 source: "tabLabel\x0a\x09^ 'References'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLReferences.a$cls);
@@ -546,6 +567,7 @@ args: [],
 source: "tabPriority\x0a\x09^ 100",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLReferences.a$cls);
@@ -587,6 +609,7 @@ args: ["anItem"],
 source: "activateListItem: anItem\x0a\x09self model withChangesDo: [ super activateListItem: anItem ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["withChangesDo:", "model", "activateListItem:"]
 }),
 $globals.HLReferencesListWidget);
@@ -605,6 +628,7 @@ args: [],
 source: "commandCategory\x0a\x09^ 'Methods'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLReferencesListWidget);
@@ -623,6 +647,7 @@ args: [],
 source: "label\x0a\x09^ 'List'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLReferencesListWidget);
@@ -669,6 +694,7 @@ args: [],
 source: "observeModel\x0a\x09self model announcer\x0a\x09\x09on: HLSearchReferences\x0a\x09\x09do: [ :ann | self onSearchReferences: ann searchString ];\x0a\x09\x09on: HLMethodSelected\x0a\x09\x09do: [ :ann | self onMethodSelected: ann item ]",
 referencedClasses: ["HLSearchReferences", "HLMethodSelected"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:do:", "announcer", "model", "onSearchReferences:", "searchString", "onMethodSelected:", "item"]
 }),
 $globals.HLReferencesListWidget);
@@ -724,6 +750,7 @@ args: ["aMethod"],
 source: "onMethodSelected: aMethod\x0a\x09aMethod ifNil: [ ^ self ].\x0a\x09self items detect: [ :each | each = aMethod selector ] ifNone: [ ^ self ].\x0a\x09\x0a\x09self \x0a\x09\x09selectedItem: aMethod selector;\x0a\x09\x09activateItem: aMethod selector",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "detect:ifNone:", "items", "=", "selector", "selectedItem:", "activateItem:"]
 }),
 $globals.HLReferencesListWidget);
@@ -748,6 +775,7 @@ args: ["aString"],
 source: "onSearchReferences: aString\x0a\x09self subclassResponsibility",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["subclassResponsibility"]
 }),
 $globals.HLReferencesListWidget);
@@ -777,6 +805,7 @@ args: ["aMethod", "html"],
 source: "renderItemLabel: aMethod on: html\x0a\x09html with: aMethod methodClass name, ' >> #', aMethod selector",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["with:", ",", "name", "methodClass", "selector"]
 }),
 $globals.HLReferencesListWidget);
@@ -812,6 +841,7 @@ args: ["aMethod"],
 source: "selectItem: aMethod\x0a\x09super selectItem: aMethod.\x0a\x09self model selectedClass: nil; selectedMethod: aMethod",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectItem:", "selectedClass:", "model", "selectedMethod:"]
 }),
 $globals.HLReferencesListWidget);
@@ -839,6 +869,7 @@ args: ["aModel"],
 source: "on: aModel\x0a\x09^ self new \x0a\x09\x09model: aModel; \x0a\x09\x09yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["model:", "new", "yourself"]
 }),
 $globals.HLReferencesListWidget.a$cls);
@@ -859,6 +890,7 @@ args: [],
 source: "label\x0a\x09^ 'Class references'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLClassReferencesListWidget);
@@ -885,6 +917,7 @@ args: ["aString"],
 source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model classReferencesOf: aString).\x0a\x09self refresh",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectItem:", "items:", "classReferencesOf:", "model", "refresh"]
 }),
 $globals.HLClassReferencesListWidget);
@@ -906,6 +939,7 @@ args: [],
 source: "label\x0a\x09^ 'Implementors'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLImplementorsListWidget);
@@ -932,6 +966,7 @@ args: ["aString"],
 source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model implementorsOf: aString).\x0a\x09self refresh",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectItem:", "items:", "implementorsOf:", "model", "refresh"]
 }),
 $globals.HLImplementorsListWidget);
@@ -953,6 +988,7 @@ args: [],
 source: "label\x0a\x09^ 'Source search'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLRegexpListWidget);
@@ -979,6 +1015,7 @@ args: ["aString"],
 source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model regexpReferencesOf: aString).\x0a\x09self refresh",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectItem:", "items:", "regexpReferencesOf:", "model", "refresh"]
 }),
 $globals.HLRegexpListWidget);
@@ -1000,6 +1037,7 @@ args: [],
 source: "label\x0a\x09^ 'Senders'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSendersListWidget);
@@ -1026,6 +1064,7 @@ args: ["aString"],
 source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model sendersOf: aString).\x0a\x09self refresh",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectItem:", "items:", "sendersOf:", "model", "refresh"]
 }),
 $globals.HLSendersListWidget);
@@ -1052,6 +1091,7 @@ args: [],
 source: "allMethods\x0a\x09^ self methodsCache",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["methodsCache"]
 }),
 $globals.HLReferencesModel);
@@ -1083,6 +1123,7 @@ args: ["aString"],
 source: "classReferencesOf: aString\x0a\x09\x22Answer all methods referencing the class named aString\x22\x0a\x09\x0a\x09^self allMethods select: [ :each |\x0a\x09\x09\x09(each referencedClasses includes: aString) ].",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["select:", "allMethods", "includes:", "referencedClasses"]
 }),
 $globals.HLReferencesModel);
@@ -1106,6 +1147,7 @@ args: [],
 source: "classesAndMetaclasses\x0a\x09^ self classesAndMetaclassesCache",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["classesAndMetaclassesCache"]
 }),
 $globals.HLReferencesModel);
@@ -1136,6 +1178,7 @@ args: [],
 source: "classesAndMetaclassesCache\x0a\x09classesAndMetaclassesCache ifNil: [ self updateClassesAndMetaclassesCache ].\x0a\x09^ classesAndMetaclassesCache",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "updateClassesAndMetaclassesCache"]
 }),
 $globals.HLReferencesModel);
@@ -1175,6 +1218,7 @@ args: ["aString"],
 source: "implementorsOf: aString\x0a\x09^ (self allMethods select: [ :each |\x0a\x09\x09each selector = aString ])\x0a\x09\x09\x09collect: [ :each | self methodReferenceOn: each ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["collect:", "select:", "allMethods", "=", "selector", "methodReferenceOn:"]
 }),
 $globals.HLReferencesModel);
@@ -1193,6 +1237,7 @@ args: [],
 source: "isReferencesModel\x0a\x09^ true",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLReferencesModel);
@@ -1216,6 +1261,7 @@ args: ["aCompiledMethod"],
 source: "methodReferenceOn: aCompiledMethod\x0a\x09^ HLMethodReference on: aCompiledMethod",
 referencedClasses: ["HLMethodReference"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:"]
 }),
 $globals.HLReferencesModel);
@@ -1246,6 +1292,7 @@ args: [],
 source: "methodsCache\x0a\x09methodsCache ifNil: [ self updateMethodsCache ].\x0a\x09^ methodsCache",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "updateMethodsCache"]
 }),
 $globals.HLReferencesModel);
@@ -1280,6 +1327,7 @@ args: ["aString"],
 source: "openClassNamed: aString\x0a\x09| browser |\x0a\x09\x0a\x09self withChangesDo: [\x0a\x09\x09browser := HLBrowser openAsTab.\x0a\x09\x09browser openClassNamed: aString ]",
 referencedClasses: ["HLBrowser"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["withChangesDo:", "openAsTab", "openClassNamed:"]
 }),
 $globals.HLReferencesModel);
@@ -1324,6 +1372,7 @@ args: [],
 source: "openMethod\x0a\x09| browser |\x0a\x09\x0a\x09self selectedMethod ifNil: [ ^ self ].\x0a\x09\x0a\x09self withChangesDo: [\x0a\x09\x09browser := HLBrowser openAsTab.\x0a\x09\x09browser openMethod: self selectedMethod ]",
 referencedClasses: ["HLBrowser"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "selectedMethod", "withChangesDo:", "openAsTab", "openMethod:"]
 }),
 $globals.HLReferencesModel);
@@ -1363,6 +1412,7 @@ args: ["aString"],
 source: "regexpReferencesOf: aString\x0a\x09^ (self allMethods select: [ :each |\x0a\x09\x09each source match: aString ])\x0a\x09\x09\x09collect: [ :each | self methodReferenceOn: each ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["collect:", "select:", "allMethods", "match:", "source", "methodReferenceOn:"]
 }),
 $globals.HLReferencesModel);
@@ -1393,6 +1443,7 @@ args: ["aString"],
 source: "search: aString\x0a\x09self updateCaches.\x0a\x09\x0a\x09self announcer announce: (HLSearchReferences new\x0a\x09\x09searchString: aString;\x0a\x09\x09yourself)",
 referencedClasses: ["HLSearchReferences"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["updateCaches", "announce:", "announcer", "searchString:", "new", "yourself"]
 }),
 $globals.HLReferencesModel);
@@ -1432,6 +1483,7 @@ args: ["aString"],
 source: "sendersOf: aString\x0a\x09^ (self allMethods select: [ :each |\x0a\x09\x09each messageSends includes: aString ])\x0a\x09\x09\x09collect: [ :each | self methodReferenceOn: each ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["collect:", "select:", "allMethods", "includes:", "messageSends", "methodReferenceOn:"]
 }),
 $globals.HLReferencesModel);
@@ -1457,6 +1509,7 @@ args: [],
 source: "updateCaches\x0a\x09self \x0a\x09\x09updateClassesAndMetaclassesCache;\x0a\x09\x09updateMethodsCache",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["updateClassesAndMetaclassesCache", "updateMethodsCache"]
 }),
 $globals.HLReferencesModel);
@@ -1502,6 +1555,7 @@ args: [],
 source: "updateClassesAndMetaclassesCache\x0a\x09classesAndMetaclassesCache := OrderedCollection new.\x0a\x09\x0a\x09self environment classes do: [ :each |\x0a\x09\x09classesAndMetaclassesCache add: each.\x0a\x09\x09each theMetaClass ifNotNil: [ :meta | classesAndMetaclassesCache add: meta ] ]",
 referencedClasses: ["OrderedCollection"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["new", "do:", "classes", "environment", "add:", "ifNotNil:", "theMetaClass"]
 }),
 $globals.HLReferencesModel);
@@ -1535,6 +1589,7 @@ args: [],
 source: "updateMethodsCache\x0a\x09methodsCache := OrderedCollection new.\x0a\x09\x0a\x09self classesAndMetaclasses\x0a\x09\x09do: [ :each | methodsCache addAll: each methods ]",
 referencedClasses: ["OrderedCollection"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["new", "do:", "classesAndMetaclasses", "addAll:", "methods"]
 }),
 $globals.HLReferencesModel);

src/Helios-SUnit-Tests.js

@@ -36,6 +36,7 @@ args: [],
 source: "setUp\x0a\x09super setUp.\x0a\x09model := HLSUnitModel new",
 referencedClasses: ["HLSUnitModel"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["setUp", "new"]
 }),
 $globals.HLSUnitModelTest);
@@ -71,6 +72,7 @@ args: [],
 source: "testClassBecomesAvailable\x0a\x09self assert: model testClasses isEmpty.\x0a\x09model selectPackage: self thisPackage.\x0a\x09self assert: (model testClasses includes: self class).",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["assert:", "isEmpty", "testClasses", "selectPackage:", "thisPackage", "includes:", "class"]
 }),
 $globals.HLSUnitModelTest);
@@ -95,6 +97,7 @@ args: [],
 source: "testEmptyTestResults\x0a\x09self assert: (model testResult isKindOf: TestResult)",
 referencedClasses: ["TestResult"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["assert:", "isKindOf:", "testResult"]
 }),
 $globals.HLSUnitModelTest);
@@ -161,6 +164,7 @@ args: [],
 source: "testInvertSelectedClasses\x0a\x09model selectAllPackages.\x0a\x09model selectAllClasses.\x0a\x09model unselectClass: self class.\x0a\x09self assert: model selectedClasses notEmpty.\x0a\x09self assert: model selectedClasses size equals: model testClasses size - 1.\x0a\x09model invertSelectedClasses.\x0a\x09self assert: model selectedClasses size equals: 1.\x0a\x09self assert: model selectedClasses anyOne equals: self class.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectAllPackages", "selectAllClasses", "unselectClass:", "class", "assert:", "notEmpty", "selectedClasses", "assert:equals:", "size", "-", "testClasses", "invertSelectedClasses", "anyOne"]
 }),
 $globals.HLSUnitModelTest);
@@ -226,6 +230,7 @@ args: [],
 source: "testInvertSelectedPackages\x0a\x09model selectAllPackages.\x0a\x09model unselectPackage: self thisPackage.\x0a\x09self assert: model selectedPackages notEmpty.\x0a\x09self assert: model selectedPackages size equals: model testPackages size - 1.\x0a\x09model invertSelectedPackages.\x0a\x09self assert: model selectedPackages size equals: 1.\x0a\x09self assert: model selectedPackages anyOne equals: self thisPackage.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectAllPackages", "unselectPackage:", "thisPackage", "assert:", "notEmpty", "selectedPackages", "assert:equals:", "size", "-", "testPackages", "invertSelectedPackages", "anyOne"]
 }),
 $globals.HLSUnitModelTest);
@@ -263,6 +268,7 @@ args: [],
 source: "testSelectAllClasses\x0a\x09model selectAllPackages.\x0a\x09self assert: model testClasses notEmpty.\x0a\x09model selectAllClasses.\x0a\x09self assert: model selectedClasses size equals: model testClasses size",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectAllPackages", "assert:", "notEmpty", "testClasses", "selectAllClasses", "assert:equals:", "size", "selectedClasses"]
 }),
 $globals.HLSUnitModelTest);
@@ -299,6 +305,7 @@ args: [],
 source: "testSelectAllPackages\x0a\x09self assert: model selectedPackages isEmpty.\x0a\x09model selectAllPackages.\x0a\x09self assert: model selectedPackages size equals: model testPackages size",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["assert:", "isEmpty", "selectedPackages", "selectAllPackages", "assert:equals:", "size", "testPackages"]
 }),
 $globals.HLSUnitModelTest);
@@ -347,6 +354,7 @@ args: [],
 source: "testSelectClass\x0a\x09| announcementFired |\x0a\x09model selectPackage: self thisPackage.\x0a\x09self assert: model selectedClasses isEmpty.\x0a\x09model announcer on: HLClassSelected\x0a\x09\x09do: [ announcementFired := true ]\x0a\x09\x09for: self.\x0a\x09model selectClass: self class.\x0a\x09self assert: model selectedClasses anyOne equals: self class.\x0a\x09self assert: announcementFired.",
 referencedClasses: ["HLClassSelected"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectPackage:", "thisPackage", "assert:", "isEmpty", "selectedClasses", "on:do:for:", "announcer", "selectClass:", "class", "assert:equals:", "anyOne"]
 }),
 $globals.HLSUnitModelTest);
@@ -394,6 +402,7 @@ args: [],
 source: "testSelectPackage\x0a\x09| announcementFired |\x0a\x09self assert: model selectedPackages isEmpty.\x0a\x09model announcer on: HLPackageSelected\x0a\x09\x09do: [ announcementFired := true ]\x0a\x09\x09for: self.\x0a\x09model selectPackage: self thisPackage.\x0a\x09self assert: model selectedPackages anyOne equals: self thisPackage.\x0a\x09self assert: announcementFired",
 referencedClasses: ["HLPackageSelected"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["assert:", "isEmpty", "selectedPackages", "on:do:for:", "announcer", "selectPackage:", "thisPackage", "assert:equals:", "anyOne"]
 }),
 $globals.HLSUnitModelTest);
@@ -438,6 +447,7 @@ args: [],
 source: "testSelectedClassNotListedIfPackageUnselected\x0a\x09model selectPackage: self thisPackage.\x0a\x09model selectClass: self class.\x0a\x09self assert: model selectedClasses anyOne equals: self class.\x0a\x09model unselectPackage: self thisPackage.\x0a\x09self assert: model selectedClasses isEmpty.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectPackage:", "thisPackage", "selectClass:", "class", "assert:equals:", "anyOne", "selectedClasses", "unselectPackage:", "assert:", "isEmpty"]
 }),
 $globals.HLSUnitModelTest);
@@ -466,6 +476,7 @@ args: [],
 source: "testTestClassHasOnlyTestClasses\x0a\x09| notATestClass |\x0a\x09notATestClass := Object subclass: #HLNotATestClass\x0a\x09\x09instanceVariableNames: ''\x0a\x09\x09package: self class category.\x0a\x09model selectPackage: self thisPackage.\x0a\x09self deny: (model testClasses includes: notATestClass).\x0a\x09Smalltalk removeClass: notATestClass.",
 referencedClasses: ["Object", "Smalltalk"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["subclass:instanceVariableNames:package:", "category", "class", "selectPackage:", "thisPackage", "deny:", "includes:", "testClasses", "removeClass:"]
 }),
 $globals.HLSUnitModelTest);
@@ -508,6 +519,7 @@ args: [],
 source: "testTestPackages\x0a\x09self assert: model testPackages notEmpty.\x0a\x09self assert: (model testPackages anySatisfy: [:each | each = self thisPackage]).",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["assert:", "notEmpty", "testPackages", "anySatisfy:", "=", "thisPackage"]
 }),
 $globals.HLSUnitModelTest);
@@ -551,6 +563,7 @@ args: [],
 source: "testUnselectClass\x0a\x09| announcementFired |\x0a\x09model selectPackage: self thisPackage.\x0a\x09model selectClass: self class.\x0a\x09model announcer on: HLClassUnselected\x0a\x09\x09do: [ announcementFired := true ]\x0a\x09\x09for: self.\x0a\x09model unselectClass: self class.\x0a\x09self assert: model selectedClasses isEmpty.\x0a\x09self assert: announcementFired",
 referencedClasses: ["HLClassUnselected"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectPackage:", "thisPackage", "selectClass:", "class", "on:do:for:", "announcer", "unselectClass:", "assert:", "isEmpty", "selectedClasses"]
 }),
 $globals.HLSUnitModelTest);
@@ -593,6 +606,7 @@ args: [],
 source: "testUnselectPackage\x0a\x09| announcementFired |\x0a\x09model selectPackage: self thisPackage.\x0a\x09model announcer on: HLPackageUnselected\x0a\x09\x09do: [ announcementFired := true ]\x0a\x09\x09for: self.\x0a\x09model unselectPackage: self thisPackage.\x0a\x09self assert: model selectedPackages isEmpty.\x0a\x09self assert: announcementFired.",
 referencedClasses: ["HLPackageUnselected"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectPackage:", "thisPackage", "on:do:for:", "announcer", "unselectPackage:", "assert:", "isEmpty", "selectedPackages"]
 }),
 $globals.HLSUnitModelTest);
@@ -616,6 +630,7 @@ args: [],
 source: "thisPackage\x0a\x09^self class package",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["package", "class"]
 }),
 $globals.HLSUnitModelTest);

src/Helios-SUnit.js

@@ -22,6 +22,7 @@ args: [],
 source: "activeItemCssClass\x0a\x09^'selector'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLMultiSelectToolListWidget);
@@ -46,6 +47,7 @@ args: ["anObject"],
 source: "isSelected: anObject\x0a\x09self subclassResponsibility",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["subclassResponsibility"]
 }),
 $globals.HLMultiSelectToolListWidget);
@@ -64,6 +66,7 @@ args: [],
 source: "listCssClass \x0a\x09^'nav nav-multiselect nav-pills nav-stacked'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLMultiSelectToolListWidget);
@@ -102,6 +105,7 @@ args: ["anObject"],
 source: "listCssClassForItem: anObject\x0a\x09^(super listCssClassForItem: anObject), ((self isSelected: anObject)\x0a\x09\x09ifTrue: [' active']\x0a\x09\x09ifFalse: ['']).",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: [",", "listCssClassForItem:", "ifTrue:ifFalse:", "isSelected:"]
 }),
 $globals.HLMultiSelectToolListWidget);
@@ -132,6 +136,7 @@ args: ["anObject"],
 source: "reselectItem: anObject\x0a\x09anObject ifNil: [^self].\x0a\x09self toggleSelection: anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "toggleSelection:"]
 }),
 $globals.HLMultiSelectToolListWidget);
@@ -156,6 +161,7 @@ args: ["anObject"],
 source: "select: anObject\x0a\x09self subclassResponsibility",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["subclassResponsibility"]
 }),
 $globals.HLMultiSelectToolListWidget);
@@ -189,6 +195,7 @@ args: ["aListItem"],
 source: "toggleListItem: aListItem\x0a\x09| item |\x0a\x09\x0a\x09(aListItem get: 0) ifNil: [ ^ self ].\x0a\x09\x22Find item\x22\x0a\x09item := aListItem data: 'item'.\x0a\x09self toggleSelection: item",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "get:", "data:", "toggleSelection:"]
 }),
 $globals.HLMultiSelectToolListWidget);
@@ -219,6 +226,7 @@ args: ["anObject"],
 source: "toggleSelection: anObject\x0a\x09(self isSelected: anObject) \x0a\x09\x09ifTrue: [ self unselect: anObject ]\x0a\x09\x09ifFalse: [self select: anObject ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:ifFalse:", "isSelected:", "unselect:", "select:"]
 }),
 $globals.HLMultiSelectToolListWidget);
@@ -243,6 +251,7 @@ args: ["anObject"],
 source: "unselect: anObject\x0a\x09self subclassResponsibility",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["subclassResponsibility"]
 }),
 $globals.HLMultiSelectToolListWidget);
@@ -267,6 +276,7 @@ args: [],
 source: "buttonsDivCssClass\x0a\x09^ 'buttons_bar'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitClassesListWidget);
@@ -299,6 +309,7 @@ args: ["aClass"],
 source: "cssClassForItem: aClass\x0a\x09| nonMeta |\x0a\x09nonMeta := aClass theNonMetaClass.\x0a\x09(nonMeta respondsTo: #classTag)\x0a\x09\x09ifTrue: [ ^ nonMeta classTag ]\x0a\x09\x09ifFalse: [ ^ nonMeta heliosClass ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["theNonMetaClass", "ifTrue:ifFalse:", "respondsTo:", "classTag", "heliosClass"]
 }),
 $globals.HLSUnitClassesListWidget);
@@ -325,6 +336,7 @@ args: [],
 source: "initializeItems\x0a\x09^items := model testClasses",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["testClasses"]
 }),
 $globals.HLSUnitClassesListWidget);
@@ -348,6 +360,7 @@ args: ["anObject"],
 source: "isSelected: anObject\x0a\x09^model selectedClasses includes: anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["includes:", "selectedClasses"]
 }),
 $globals.HLSUnitClassesListWidget);
@@ -377,6 +390,7 @@ args: [],
 source: "items\x0a\x09^ items ifNil: [ self initializeItems ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "initializeItems"]
 }),
 $globals.HLSUnitClassesListWidget);
@@ -395,6 +409,7 @@ args: [],
 source: "label\x0a\x09^ 'Classes'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitClassesListWidget);
@@ -433,6 +448,7 @@ args: [],
 source: "observeModel\x0a    self model announcer \x0a\x09\x09on: HLPackageSelected\x0a\x09\x09send: #onPackageSelected:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLPackageUnselected\x0a\x09\x09send: #onPackageUnselected:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLClassSelected\x0a\x09\x09send: #onClassSelected:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLClassUnselected\x0a\x09\x09send: #onClassUnselected:\x0a\x09\x09to: self.",
 referencedClasses: ["HLPackageSelected", "HLPackageUnselected", "HLClassSelected", "HLClassUnselected"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:send:to:", "announcer", "model"]
 }),
 $globals.HLSUnitClassesListWidget);
@@ -457,6 +473,7 @@ args: [],
 source: "observeSystem\x0a    self model systemAnnouncer \x0a\x09\x09on: ClassAdded \x0a\x09\x09send: #onClassAdded:\x0a\x09\x09to: self.",
 referencedClasses: ["ClassAdded"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:send:to:", "systemAnnouncer", "model"]
 }),
 $globals.HLSUnitClassesListWidget);
@@ -486,6 +503,7 @@ args: ["anAnnouncement"],
 source: "onClassAdded: anAnnouncement\x09\x0a\x09(self model selectedPackages includes: anAnnouncement theClass package)\x0a\x09\x09ifTrue: [ \x0a\x09\x09\x09self \x0a\x09\x09\x09\x09initializeItems;\x0a\x09\x09\x09\x09refresh ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:", "includes:", "selectedPackages", "model", "package", "theClass", "initializeItems", "refresh"]
 }),
 $globals.HLSUnitClassesListWidget);
@@ -512,6 +530,7 @@ args: ["anAnnouncement"],
 source: "onClassSelected: anAnnouncement\x0a\x09| listItem |\x0a\x09listItem := self findListItemFor: anAnnouncement item.\x0a\x09listItem addClass: 'active'.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["findListItemFor:", "item", "addClass:"]
 }),
 $globals.HLSUnitClassesListWidget);
@@ -538,6 +557,7 @@ args: ["anAnnouncement"],
 source: "onClassUnselected: anAnnouncement\x0a\x09| listItem |\x0a\x09listItem := self findListItemFor: anAnnouncement item.\x0a\x09listItem removeClass: 'active'.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["findListItemFor:", "item", "removeClass:"]
 }),
 $globals.HLSUnitClassesListWidget);
@@ -563,6 +583,7 @@ args: ["anAnnouncement"],
 source: "onPackageSelected: anAnnouncement\x0a\x09self initializeItems;\x0a\x09\x09refresh",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["initializeItems", "refresh"]
 }),
 $globals.HLSUnitClassesListWidget);
@@ -588,6 +609,7 @@ args: ["anAnnouncement"],
 source: "onPackageUnselected: anAnnouncement\x0a\x09self initializeItems;\x0a\x09\x09refresh",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["initializeItems", "refresh"]
 }),
 $globals.HLSUnitClassesListWidget);
@@ -624,6 +646,7 @@ args: ["html"],
 source: "renderButtonsOn: html\x0a\x09html button\x0a\x09\x09class: 'button'; \x0a\x09\x09with: 'Select all';\x0a\x09\x09onClick: [ self model selectAllClasses ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "button", "with:", "onClick:", "selectAllClasses", "model"]
 }),
 $globals.HLSUnitClassesListWidget);
@@ -648,6 +671,7 @@ args: ["aClass", "html"],
 source: "renderItemLabel: aClass on: html\x0a\x09html with: aClass name",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["with:", "name"]
 }),
 $globals.HLSUnitClassesListWidget);
@@ -672,6 +696,7 @@ args: ["anObject"],
 source: "select: anObject\x0a\x09model selectClass: anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectClass:"]
 }),
 $globals.HLSUnitClassesListWidget);
@@ -696,6 +721,7 @@ args: ["anObject"],
 source: "unselect: anObject\x0a\x09model unselectClass: anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["unselectClass:"]
 }),
 $globals.HLSUnitClassesListWidget);
@@ -720,6 +746,7 @@ args: [],
 source: "buttonsDivCssClass\x0a\x09^ 'buttons_bar'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitPackagesListWidget);
@@ -749,6 +776,7 @@ args: ["anItem"],
 source: "cssClassForItem: anItem\x09\x0a\x09^ anItem isDirty \x0a\x09\x09ifTrue: [ 'package_dirty' ]\x0a\x09\x09ifFalse: [ 'package' ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:ifFalse:", "isDirty"]
 }),
 $globals.HLSUnitPackagesListWidget);
@@ -787,6 +815,7 @@ args: [],
 source: "initializeItems\x0a\x09^items := model testPackages \x0a\x09\x09sort: [:a :b | a name < b name]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["sort:", "testPackages", "<", "name"]
 }),
 $globals.HLSUnitPackagesListWidget);
@@ -810,6 +839,7 @@ args: ["anObject"],
 source: "isSelected: anObject\x0a\x09^model selectedPackages includes: anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["includes:", "selectedPackages"]
 }),
 $globals.HLSUnitPackagesListWidget);
@@ -839,6 +869,7 @@ args: [],
 source: "items\x0a\x09^ items ifNil: [ self initializeItems ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "initializeItems"]
 }),
 $globals.HLSUnitPackagesListWidget);
@@ -857,6 +888,7 @@ args: [],
 source: "label\x0a\x09^ 'Packages'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitPackagesListWidget);
@@ -887,6 +919,7 @@ args: [],
 source: "observeModel\x0a    self model announcer \x0a\x09\x09on: HLPackageSelected\x0a\x09\x09send: #onPackageSelected:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLPackageUnselected\x0a\x09\x09send: #onPackageUnselected:\x0a\x09\x09to: self",
 referencedClasses: ["HLPackageSelected", "HLPackageUnselected"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:send:to:", "announcer", "model"]
 }),
 $globals.HLSUnitPackagesListWidget);
@@ -911,6 +944,7 @@ args: [],
 source: "observeSystem\x0a    self model systemAnnouncer \x0a\x09\x09on: ClassAdded \x0a\x09\x09send: #onClassAdded:\x0a\x09\x09to: self.",
 referencedClasses: ["ClassAdded"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:send:to:", "systemAnnouncer", "model"]
 }),
 $globals.HLSUnitPackagesListWidget);
@@ -959,6 +993,7 @@ args: ["anAnnouncement"],
 source: "onClassAdded: anAnnouncement\x0a\x09((self items includes: anAnnouncement theClass package) not and: [anAnnouncement theClass package isTestPackage])\x0a\x09\x09ifTrue: [ \x0a\x09\x09\x09self \x0a\x09\x09\x09\x09initializeItems;\x0a\x09\x09\x09\x09refresh ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:", "and:", "not", "includes:", "items", "package", "theClass", "isTestPackage", "initializeItems", "refresh"]
 }),
 $globals.HLSUnitPackagesListWidget);
@@ -985,6 +1020,7 @@ args: ["anAnnouncement"],
 source: "onPackageSelected: anAnnouncement\x0a\x09| listItem |\x0a\x09listItem := self findListItemFor: anAnnouncement item.\x0a\x09listItem addClass: 'active'.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["findListItemFor:", "item", "addClass:"]
 }),
 $globals.HLSUnitPackagesListWidget);
@@ -1011,6 +1047,7 @@ args: ["anAnnouncement"],
 source: "onPackageUnselected: anAnnouncement\x0a\x09| listItem |\x0a\x09listItem := self findListItemFor: anAnnouncement item.\x0a\x09listItem removeClass: 'active'.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["findListItemFor:", "item", "removeClass:"]
 }),
 $globals.HLSUnitPackagesListWidget);
@@ -1075,6 +1112,7 @@ args: ["html"],
 source: "renderButtonsOn: html\x0a\x09html button\x0a\x09\x09class: 'button';\x0a\x09\x09with: 'Run Tests';\x0a\x09\x09onClick: [ self model runTests ].\x0a\x09html button\x0a\x09\x09class: 'button';\x0a\x09\x09with: 'Select all';\x0a\x09\x09onClick: [ self model selectAllPackages ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "button", "with:", "onClick:", "runTests", "model", "selectAllPackages"]
 }),
 $globals.HLSUnitPackagesListWidget);
@@ -1099,6 +1137,7 @@ args: ["aPackage", "html"],
 source: "renderItemLabel: aPackage on: html\x0a\x09html with: aPackage name",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["with:", "name"]
 }),
 $globals.HLSUnitPackagesListWidget);
@@ -1123,6 +1162,7 @@ args: ["anObject"],
 source: "select: anObject\x0a\x09model selectPackage: anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectPackage:"]
 }),
 $globals.HLSUnitPackagesListWidget);
@@ -1147,6 +1187,7 @@ args: ["anObject"],
 source: "unselect: anObject\x0a\x09model unselectPackage: anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["unselectPackage:"]
 }),
 $globals.HLSUnitPackagesListWidget);
@@ -1183,6 +1224,7 @@ args: [],
 source: "classesListWidget\x0a\x09^ classesListWidget ifNil: [ \x0a\x09\x09classesListWidget := HLSUnitClassesListWidget on: self model.\x0a\x09\x09classesListWidget next: self failuresWidget ]",
 referencedClasses: ["HLSUnitClassesListWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "on:", "model", "next:", "failuresWidget"]
 }),
 $globals.HLSUnit);
@@ -1213,6 +1255,7 @@ args: [],
 source: "errorsWidget\x0a\x09^ errorsWidget ifNil: [errorsWidget := HLSUnitErrorsListWidget on: self model]",
 referencedClasses: ["HLSUnitErrorsListWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "on:", "model"]
 }),
 $globals.HLSUnit);
@@ -1243,6 +1286,7 @@ args: [],
 source: "failuresWidget\x0a\x09^ failuresWidget ifNil: [\x0a\x09\x09failuresWidget := HLSUnitFailuresListWidget on: self model.\x0a\x09\x09failuresWidget next: self errorsWidget]",
 referencedClasses: ["HLSUnitFailuresListWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "on:", "model", "next:", "errorsWidget"]
 }),
 $globals.HLSUnit);
@@ -1273,6 +1317,7 @@ args: [],
 source: "model\x0a\x09^ model ifNil: [ model := HLSUnitModel new ]",
 referencedClasses: ["HLSUnitModel"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLSUnit);
@@ -1303,6 +1348,7 @@ args: [],
 source: "packagesListWidget\x0a\x09^ packagesListWidget ifNil: [ \x0a\x09\x09packagesListWidget := HLSUnitPackagesListWidget on: self model.\x0a\x09\x09packagesListWidget next: self classesListWidget]",
 referencedClasses: ["HLSUnitPackagesListWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "on:", "model", "next:", "classesListWidget"]
 }),
 $globals.HLSUnit);
@@ -1327,6 +1373,7 @@ args: ["aBindingGroup"],
 source: "registerBindingsOn: aBindingGroup\x0a\x09HLToolCommand \x0a\x09\x09registerConcreteClassesOn: aBindingGroup \x0a\x09\x09for: self model",
 referencedClasses: ["HLToolCommand"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["registerConcreteClassesOn:for:", "model"]
 }),
 $globals.HLSUnit);
@@ -1378,6 +1425,7 @@ args: ["html"],
 source: "renderContentOn: html\x0a\x09| resultSection |\x0a\x09html with: (HLContainer with:  (\x0a\x09\x09HLVerticalSplitter \x0a\x09\x09\x09with: (HLVerticalSplitter\x0a\x09\x09\x09\x09with: self packagesListWidget \x0a        \x09\x09with: self classesListWidget)\x0a\x09\x09\x09with: (resultSection := self resultSection))).\x0a\x09\x0a\x09[resultSection resize: 0] valueWithTimeout: 100.\x0a\x09\x0a\x09self packagesListWidget focus",
 referencedClasses: ["HLContainer", "HLVerticalSplitter"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["with:", "with:with:", "packagesListWidget", "classesListWidget", "resultSection", "valueWithTimeout:", "resize:", "focus"]
 }),
 $globals.HLSUnit);
@@ -1406,6 +1454,7 @@ args: [],
 source: "resultSection\x0a\x09^HLHorizontalSplitter \x0a\x09\x09with: self resultWidget\x0a\x09\x09with: (HLHorizontalSplitter \x0a\x09\x09\x09with: self failuresWidget\x0a\x09\x09\x09with: self errorsWidget)",
 referencedClasses: ["HLHorizontalSplitter"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["with:with:", "resultWidget", "failuresWidget", "errorsWidget"]
 }),
 $globals.HLSUnit);
@@ -1438,6 +1487,7 @@ args: [],
 source: "resultWidget\x0a\x09^ resultWidget ifNil: [\x0a\x09\x09resultWidget := HLSUnitResults new\x0a\x09\x09\x09model: self model;\x0a\x09\x09\x09yourself]",
 referencedClasses: ["HLSUnitResults"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "model:", "new", "model", "yourself"]
 }),
 $globals.HLSUnit);
@@ -1481,6 +1531,7 @@ args: [],
 source: "unregister\x0a\x09super unregister.\x0a\x0a\x09{ \x0a\x09\x09self packagesListWidget.\x0a\x09\x09self classesListWidget.\x0a\x09\x09self resultWidget.\x0a\x09\x09self errorsWidget.\x0a\x09\x09self failuresWidget\x0a\x09} \x0a\x09\x09do: [ :each | each unregister ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["unregister", "do:", "packagesListWidget", "classesListWidget", "resultWidget", "errorsWidget", "failuresWidget"]
 }),
 $globals.HLSUnit);
@@ -1500,6 +1551,7 @@ args: [],
 source: "canBeOpenAsTab\x0a\x09^ true",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnit.a$cls);
@@ -1518,6 +1570,7 @@ args: [],
 source: "tabClass\x0a\x09^ 'sunit'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnit.a$cls);
@@ -1536,6 +1589,7 @@ args: [],
 source: "tabLabel\x0a\x09^ 'SUnit'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnit.a$cls);
@@ -1554,6 +1608,7 @@ args: [],
 source: "tabPriority\x0a\x09^ 1000",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnit.a$cls);
@@ -1577,6 +1632,7 @@ args: [],
 source: "currentSuite\x0a\x09^currentSuite",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitModel);
@@ -1615,6 +1671,7 @@ args: [],
 source: "invertSelectedClasses\x0a\x09self testClasses do: [:each | \x0a\x09\x09(self unfilteredSelectedClasses includes: each)\x0a\x09\x09\x09ifTrue: [ self unselectClass: each ]\x0a\x09\x09\x09ifFalse: [ self selectClass: each ]].",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["do:", "testClasses", "ifTrue:ifFalse:", "includes:", "unfilteredSelectedClasses", "unselectClass:", "selectClass:"]
 }),
 $globals.HLSUnitModel);
@@ -1653,6 +1710,7 @@ args: [],
 source: "invertSelectedPackages\x0a\x09self testPackages do: [:each | \x0a\x09\x09(self selectedPackages includes: each)\x0a\x09\x09\x09ifTrue: [ self unselectPackage: each ]\x0a\x09\x09\x09ifFalse: [ self selectPackage: each ]].",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["do:", "testPackages", "ifTrue:ifFalse:", "includes:", "selectedPackages", "unselectPackage:", "selectPackage:"]
 }),
 $globals.HLSUnitModel);
@@ -1677,6 +1735,7 @@ args: ["announcement"],
 source: "onResultAnnouncement: announcement\x0a\x09\x22Propogate announcement\x22\x0a\x09self announcer announce: announcement.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["announce:", "announcer"]
 }),
 $globals.HLSUnitModel);
@@ -1709,6 +1768,7 @@ args: [],
 source: "runTests\x0a\x09| worker |\x0a\x09worker := (self environment classNamed: #TestSuiteRunner) on: self testCases.\x0a\x09testResult := worker result.\x0a\x09self announcer announce: (HLRunTests on: worker).\x0a\x09self subscribeToTestSuite: worker.\x0a\x09worker run",
 referencedClasses: ["HLRunTests"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:", "classNamed:", "environment", "testCases", "result", "announce:", "announcer", "subscribeToTestSuite:", "run"]
 }),
 $globals.HLSUnitModel);
@@ -1741,6 +1801,7 @@ args: [],
 source: "selectAllClasses\x0a\x09self testClasses do: [:each | self selectClass: each].",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["do:", "testClasses", "selectClass:"]
 }),
 $globals.HLSUnitModel);
@@ -1773,6 +1834,7 @@ args: [],
 source: "selectAllPackages\x0a\x09self testPackages do: [:each | self selectPackage: each].",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["do:", "testPackages", "selectPackage:"]
 }),
 $globals.HLSUnitModel);
@@ -1798,6 +1860,7 @@ args: ["aClass"],
 source: "selectClass: aClass\x0a\x09self unfilteredSelectedClasses add: aClass.\x0a\x09self announcer announce: (HLClassSelected on: aClass).",
 referencedClasses: ["HLClassSelected"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["add:", "unfilteredSelectedClasses", "announce:", "announcer", "on:"]
 }),
 $globals.HLSUnitModel);
@@ -1823,6 +1886,7 @@ args: ["aPackage"],
 source: "selectPackage: aPackage\x0a\x09self selectedPackages add: aPackage.\x0a\x09self announcer announce: (HLPackageSelected on: aPackage).",
 referencedClasses: ["HLPackageSelected"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["add:", "selectedPackages", "announce:", "announcer", "on:"]
 }),
 $globals.HLSUnitModel);
@@ -1854,6 +1918,7 @@ args: [],
 source: "selectedClasses\x0a\x09^ (self unfilteredSelectedClasses) select: [ :each |\x0a\x09\x09self selectedPackages includes: each package ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["select:", "unfilteredSelectedClasses", "includes:", "selectedPackages", "package"]
 }),
 $globals.HLSUnitModel);
@@ -1884,6 +1949,7 @@ args: [],
 source: "selectedPackages\x0a\x09^ selectedPackages ifNil: [ selectedPackages := Set new ]",
 referencedClasses: ["Set"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLSUnitModel);
@@ -1920,6 +1986,7 @@ args: ["aTestSuiteRunner"],
 source: "subscribeToTestSuite: aTestSuiteRunner\x0a\x09currentSuite ifNotNil: [ currentSuite announcer unsubscribe: self].\x0a\x09currentSuite := aTestSuiteRunner.\x0a\x09currentSuite announcer \x0a\x09\x09on: ResultAnnouncement\x0a\x09\x09send: #onResultAnnouncement:\x0a\x09\x09to: self",
 referencedClasses: ["ResultAnnouncement"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNotNil:", "unsubscribe:", "announcer", "on:send:to:"]
 }),
 $globals.HLSUnitModel);
@@ -1954,6 +2021,7 @@ args: [],
 source: "testCases\x0a\x09| testCases |\x0a\x09testCases := #().\x0a\x09self selectedClasses\x0a\x09\x09do: [ :each | testCases addAll: each buildSuite ].\x0a\x09^ testCases",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["do:", "selectedClasses", "addAll:", "buildSuite"]
 }),
 $globals.HLSUnitModel);
@@ -1996,6 +2064,7 @@ args: [],
 source: "testClasses\x0a\x09\x22Answer all concrete subclasses of TestCase in selected packages\x22\x0a\x09\x0a\x09| stream |\x0a\x09stream := Array new writeStream.\x0a\x09self selectedPackages do: [ :package |\x0a\x09\x09stream nextPutAll: (package classes select:  [ :each |\x0a\x09\x09\x09each isTestClass ] ) ].\x0a\x09^ stream contents",
 referencedClasses: ["Array"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["writeStream", "new", "do:", "selectedPackages", "nextPutAll:", "select:", "classes", "isTestClass", "contents"]
 }),
 $globals.HLSUnitModel);
@@ -2027,6 +2096,7 @@ args: [],
 source: "testPackages\x0a\x09\x22Answer all packages containing concrete subclasses of TestCase\x22\x0a\x09\x0a\x09^ self environment packages \x0a\x09\x09select: [ :each | each isTestPackage ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["select:", "packages", "environment", "isTestPackage"]
 }),
 $globals.HLSUnitModel);
@@ -2057,6 +2127,7 @@ args: [],
 source: "testResult\x0a\x09^testResult ifNil: [testResult := TestResult new]",
 referencedClasses: ["TestResult"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLSUnitModel);
@@ -2087,6 +2158,7 @@ args: [],
 source: "unfilteredSelectedClasses\x0a\x09^ (selectedClasses ifNil: [ selectedClasses := Set new ])",
 referencedClasses: ["Set"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLSUnitModel);
@@ -2119,6 +2191,7 @@ args: ["aClass"],
 source: "unselectClass: aClass\x0a\x09self unfilteredSelectedClasses remove: aClass ifAbsent: [^self].\x0a\x09self announcer announce: (HLClassUnselected on: aClass).",
 referencedClasses: ["HLClassUnselected"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["remove:ifAbsent:", "unfilteredSelectedClasses", "announce:", "announcer", "on:"]
 }),
 $globals.HLSUnitModel);
@@ -2151,6 +2224,7 @@ args: ["aPackage"],
 source: "unselectPackage: aPackage\x0a\x09self selectedPackages remove: aPackage ifAbsent: [^self].\x0a\x09self announcer announce: (HLPackageUnselected on: aPackage).",
 referencedClasses: ["HLPackageUnselected"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["remove:ifAbsent:", "selectedPackages", "announce:", "announcer", "on:"]
 }),
 $globals.HLSUnitModel);
@@ -2181,6 +2255,7 @@ args: [],
 source: "observeModel\x0a\x09self model announcer \x0a\x09\x09on: ResultAnnouncement\x0a\x09\x09send: #onResultAnnouncement:\x0a\x09\x09to: self",
 referencedClasses: ["ResultAnnouncement"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:send:to:", "announcer", "model"]
 }),
 $globals.HLSUnitResultListWidget);
@@ -2205,6 +2280,7 @@ args: ["announcement"],
 source: "onResultAnnouncement: announcement\x0a\x09self refresh.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["refresh"]
 }),
 $globals.HLSUnitResultListWidget);
@@ -2229,6 +2305,7 @@ args: ["aTestCase"],
 source: "performFailure: aTestCase\x0a\x09aTestCase runCase",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["runCase"]
 }),
 $globals.HLSUnitResultListWidget);
@@ -2258,6 +2335,7 @@ args: ["anObject", "html"],
 source: "renderItemLabel: anObject on: html\x0a\x09html with: anObject class name, ' >> ', anObject selector",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["with:", ",", "name", "class", "selector"]
 }),
 $globals.HLSUnitResultListWidget);
@@ -2282,6 +2360,7 @@ args: ["anObject"],
 source: "reselectItem: anObject\x0a\x09self performFailure: anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["performFailure:"]
 }),
 $globals.HLSUnitResultListWidget);
@@ -2311,6 +2390,7 @@ args: [],
 source: "items\x0a\x09^self model testResult errors",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["errors", "testResult", "model"]
 }),
 $globals.HLSUnitErrorsListWidget);
@@ -2329,6 +2409,7 @@ args: [],
 source: "label\x0a\x09^'Errors'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitErrorsListWidget);
@@ -2358,6 +2439,7 @@ args: [],
 source: "items\x0a\x09^self model testResult failures",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["failures", "testResult", "model"]
 }),
 $globals.HLSUnitFailuresListWidget);
@@ -2376,6 +2458,7 @@ args: [],
 source: "label\x0a\x09^'Failures'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitFailuresListWidget);
@@ -2412,6 +2495,7 @@ args: [],
 source: "model\x0a\x09^ model ifNil: [model := TestResult new]",
 referencedClasses: ["TestResult"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLSUnitResultStatus);
@@ -2437,6 +2521,7 @@ args: ["anObject"],
 source: "model: anObject\x0a\x09model := anObject.\x0a\x09self observeModel.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["observeModel"]
 }),
 $globals.HLSUnitResultStatus);
@@ -2461,6 +2546,7 @@ args: [],
 source: "observeModel\x0a\x09self model announcer \x0a\x09\x09on: ResultAnnouncement\x0a\x09\x09send: #onResultAnnouncement:\x0a\x09\x09to: self",
 referencedClasses: ["ResultAnnouncement"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:send:to:", "announcer", "model"]
 }),
 $globals.HLSUnitResultStatus);
@@ -2485,6 +2571,7 @@ args: ["announcement"],
 source: "onResultAnnouncement: announcement\x0a\x09self refresh.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["refresh"]
 }),
 $globals.HLSUnitResultStatus);
@@ -2508,6 +2595,7 @@ args: [],
 source: "printErrors\x0a\x09^ self result errors size asString , ' errors, '",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: [",", "asString", "size", "errors", "result"]
 }),
 $globals.HLSUnitResultStatus);
@@ -2531,6 +2619,7 @@ args: [],
 source: "printFailures\x0a\x09^ self result failures size asString, ' failures'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: [",", "asString", "size", "failures", "result"]
 }),
 $globals.HLSUnitResultStatus);
@@ -2575,6 +2664,7 @@ args: [],
 source: "printPasses\x0a\x09^ (self result runs - self result errors size - self result failures size) asString , ' passes, '",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: [",", "asString", "-", "runs", "result", "size", "errors", "failures"]
 }),
 $globals.HLSUnitResultStatus);
@@ -2598,6 +2688,7 @@ args: [],
 source: "printTotal\x0a\x09^ self result total asString, ' runs, '",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: [",", "asString", "total", "result"]
 }),
 $globals.HLSUnitResultStatus);
@@ -2636,6 +2727,7 @@ args: ["html"],
 source: "renderContentOn: html\x0a\x09html div\x0a\x09\x09class: self statusCssClass;\x0a\x09\x09with: [ html span with: self statusInfo ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "div", "statusCssClass", "with:", "span", "statusInfo"]
 }),
 $globals.HLSUnitResultStatus);
@@ -2659,6 +2751,7 @@ args: [],
 source: "result\x0a\x09^ self model testResult",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["testResult", "model"]
 }),
 $globals.HLSUnitResultStatus);
@@ -2682,6 +2775,7 @@ args: [],
 source: "statusCssClass\x0a\x09^'sunit status ', self result status",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: [",", "status", "result"]
 }),
 $globals.HLSUnitResultStatus);
@@ -2714,6 +2808,7 @@ args: [],
 source: "statusInfo\x0a\x09^ self printTotal, self printPasses, self printErrors, self printFailures",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: [",", "printTotal", "printPasses", "printErrors", "printFailures"]
 }),
 $globals.HLSUnitResultStatus);
@@ -2746,6 +2841,7 @@ args: [],
 source: "unregister\x0a\x09super unregister.\x0a\x09self model announcer unsubscribe: self.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["unregister", "unsubscribe:", "announcer", "model"]
 }),
 $globals.HLSUnitResultStatus);
@@ -2770,6 +2866,7 @@ args: [],
 source: "model\x0a\x09^model",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLSUnitResults);
@@ -2795,6 +2892,7 @@ args: ["anObject"],
 source: "model: anObject\x0a\x09model := anObject.\x0a\x09self observeModel",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["observeModel"]
 }),
 $globals.HLSUnitResults);
@@ -2825,6 +2923,7 @@ args: [],
 source: "observeModel\x0a    self model announcer \x0a\x09\x09on: HLRunTests\x0a\x09\x09send: #onRunTests:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: ResultAnnouncement\x0a\x09\x09send: #onResultAnnouncement:\x0a\x09\x09to: self",
 referencedClasses: ["HLRunTests", "ResultAnnouncement"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:send:to:", "announcer", "model"]
 }),
 $globals.HLSUnitResults);
@@ -2871,6 +2970,7 @@ args: ["announcement"],
 source: "onResultAnnouncement: announcement\x0a\x09[self progressBarWidget \x0a\x09\x09updateProgress: (self model testResult runs / self model testResult total * 100) rounded] fork",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["fork", "updateProgress:", "progressBarWidget", "rounded", "*", "/", "runs", "testResult", "model", "total"]
 }),
 $globals.HLSUnitResults);
@@ -2898,6 +2998,7 @@ args: ["announcement"],
 source: "onRunTests: announcement\x0a\x09self progressBarWidget updateProgress: 0;\x0a\x09\x09refresh.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["updateProgress:", "progressBarWidget", "refresh"]
 }),
 $globals.HLSUnitResults);
@@ -2930,6 +3031,7 @@ args: [],
 source: "progressBarWidget\x0a\x09^progressBarWidget ifNil: [progressBarWidget := HLProgressBarWidget new\x0a\x09\x09label: '';\x0a\x09\x09yourself]",
 referencedClasses: ["HLProgressBarWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "label:", "new", "yourself"]
 }),
 $globals.HLSUnitResults);
@@ -2958,6 +3060,7 @@ args: ["html"],
 source: "renderContentOn: html\x0a\x09html with: self resultStatusWidget;\x0a\x09\x09with: self progressBarWidget",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["with:", "resultStatusWidget", "progressBarWidget"]
 }),
 $globals.HLSUnitResults);
@@ -2990,6 +3093,7 @@ args: [],
 source: "resultStatusWidget\x0a\x09^resultStatusWidget ifNil: [resultStatusWidget := HLSUnitResultStatus new\x0a\x09\x09model: self model;\x0a\x09\x09yourself]",
 referencedClasses: ["HLSUnitResultStatus"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "model:", "new", "model", "yourself"]
 }),
 $globals.HLSUnitResults);
@@ -3026,6 +3130,7 @@ args: [],
 source: "unregister\x0a\x09super unregister.\x0a\x09self model announcer unsubscribe: self.\x0a\x09self resultStatusWidget unregister.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["unregister", "unsubscribe:", "announcer", "model", "resultStatusWidget"]
 }),
 $globals.HLSUnitResults);

src/Helios-Transcript.js

@@ -28,6 +28,7 @@ args: [],
 source: "clear\x0a\x09textarea asJQuery text: ''",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["text:", "asJQuery"]
 }),
 $globals.HLTranscript);
@@ -60,6 +61,7 @@ args: [],
 source: "initialize\x0a\x09super initialize.\x0a\x09self register",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["initialize", "register"]
 }),
 $globals.HLTranscript);
@@ -84,6 +86,7 @@ args: [],
 source: "register\x0a\x09HLTranscriptHandler register: self",
 referencedClasses: ["HLTranscriptHandler"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["register:"]
 }),
 $globals.HLTranscript);
@@ -120,6 +123,7 @@ args: ["html"],
 source: "renderOn: html\x0a\x09html div\x0a\x09\x09class: 'transcript';\x0a\x09\x09with: [ textarea := html textarea ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "div", "with:", "textarea"]
 }),
 $globals.HLTranscript);
@@ -150,6 +154,7 @@ args: ["aString"],
 source: "show: aString\x0a\x09textarea ifNotNil: [\x0a \x09\x09textarea append: aString asString ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNotNil:", "append:", "asString"]
 }),
 $globals.HLTranscript);
@@ -182,6 +187,7 @@ args: [],
 source: "unregister\x0a\x09super unregister.\x0a\x09HLTranscriptHandler unregister: self",
 referencedClasses: ["HLTranscriptHandler"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["unregister", "unregister:"]
 }),
 $globals.HLTranscript);
@@ -222,6 +228,7 @@ args: [],
 source: "clear\x0a\x09self transcripts do: [ :each |\x0a\x09\x09each clear ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["do:", "transcripts", "clear"]
 }),
 $globals.HLTranscriptHandler.a$cls);
@@ -254,6 +261,7 @@ args: [],
 source: "cr\x0a\x09self transcripts do: [ :each | each cr ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["do:", "transcripts", "cr"]
 }),
 $globals.HLTranscriptHandler.a$cls);
@@ -278,6 +286,7 @@ args: ["aTranscript"],
 source: "register: aTranscript\x0a\x09self transcripts add: aTranscript",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["add:", "transcripts"]
 }),
 $globals.HLTranscriptHandler.a$cls);
@@ -310,6 +319,7 @@ args: ["aString"],
 source: "show: aString\x0a\x09self transcripts do: [ :each |\x0a\x09\x09each show: aString ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["do:", "transcripts", "show:"]
 }),
 $globals.HLTranscriptHandler.a$cls);
@@ -340,6 +350,7 @@ args: [],
 source: "transcripts\x0a\x09^ transcripts ifNil: [ transcripts := OrderedCollection new ]",
 referencedClasses: ["OrderedCollection"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLTranscriptHandler.a$cls);
@@ -364,6 +375,7 @@ args: ["aTranscript"],
 source: "unregister: aTranscript\x0a\x09self transcripts remove: aTranscript",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["remove:", "transcripts"]
 }),
 $globals.HLTranscriptHandler.a$cls);

src/Helios-Workspace-Tests.js

@@ -34,6 +34,7 @@ args: [],
 source: "testKeyMap\x0a\x09\x22Key maps are a collection of associations.\x22\x0a\x09self assert: (HLCodeWidget pcKeyMap isKindOf: HashedCollection).\x0a\x09self assert: (HLCodeWidget macKeyMap isKindOf: HashedCollection)",
 referencedClasses: ["HLCodeWidget", "HashedCollection"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["assert:", "isKindOf:", "pcKeyMap", "macKeyMap"]
 }),
 $globals.HLCodeWidgetTest);

src/Helios-Workspace.js

@@ -36,6 +36,7 @@ args: [],
 source: "announcer\x0a\x09^ announcer ifNil: [ announcer := Announcer new ]",
 referencedClasses: ["Announcer"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLCodeModel);
@@ -60,6 +61,7 @@ args: ["anObject"],
 source: "browse: anObject\x0a\x09anObject browse",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["browse"]
 }),
 $globals.HLCodeModel);
@@ -83,6 +85,7 @@ args: [],
 source: "defaultReceiver\x0a\x09^ self environment doItReceiver",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["doItReceiver", "environment"]
 }),
 $globals.HLCodeModel);
@@ -123,6 +126,7 @@ args: ["aString"],
 source: "doIt: aString\x0a\x09\x22Evaluate aString in the receiver's `environment`.\x0a\x09\x0a\x09Note: Catch any error and handle it manually, bypassing\x0a\x09boot.js behavior to avoid the browser default action on\x0a\x09ctrl+d/ctrl+p.\x0a\x09\x0a\x09See https://lolg.it/amber/amber/issues/882\x22\x0a\x0a\x09^ [ self environment evaluate: aString for: self receiver ]\x0a\x09\x09tryCatch: [ :e | \x0a\x09\x09\x09ErrorHandler handleError: e.\x0a\x09\x09\x09nil ]",
 referencedClasses: ["ErrorHandler"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["tryCatch:", "evaluate:for:", "environment", "receiver", "handleError:"]
 }),
 $globals.HLCodeModel);
@@ -152,6 +156,7 @@ args: [],
 source: "environment\x0a\x09^ environment ifNil: [ HLManager current environment ]",
 referencedClasses: ["HLManager"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "environment", "current"]
 }),
 $globals.HLCodeModel);
@@ -171,6 +176,7 @@ args: ["anEnvironment"],
 source: "environment: anEnvironment\x0a\x09environment := anEnvironment",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCodeModel);
@@ -195,6 +201,7 @@ args: ["anObject"],
 source: "inspect: anObject\x0a\x09self environment inspect: anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["inspect:", "environment"]
 }),
 $globals.HLCodeModel);
@@ -225,6 +232,7 @@ args: [],
 source: "receiver\x0a\x09^ receiver ifNil: [ receiver := self defaultReceiver ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "defaultReceiver"]
 }),
 $globals.HLCodeModel);
@@ -244,6 +252,7 @@ args: ["anObject"],
 source: "receiver: anObject\x0a\x09receiver := anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCodeModel);
@@ -271,6 +280,7 @@ args: ["anEnvironment"],
 source: "on: anEnvironment\x0a\x0a\x09^ self new\x0a    \x09environment: anEnvironment;\x0a        yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["environment:", "new", "yourself"]
 }),
 $globals.HLCodeModel.a$cls);
@@ -296,6 +306,7 @@ args: [],
 source: "announcer\x0a\x09^ self model announcer",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["announcer", "model"]
 }),
 $globals.HLCodeWidget);
@@ -342,6 +353,7 @@ args: [],
 source: "browseIt\x0a\x09| result |\x0a\x09\x0a\x09result := [ self doIt ] on: Error do: [ :exception | \x0a\x09\x09^ ErrorHandler handleError: exception ].\x0a\x09\x09\x0a\x09self model browse: result",
 referencedClasses: ["Error", "ErrorHandler"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:do:", "doIt", "handleError:", "browse:", "model"]
 }),
 $globals.HLCodeWidget);
@@ -360,6 +372,7 @@ args: [],
 source: "canHaveFocus\x0a\x09^ true",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCodeWidget);
@@ -384,6 +397,7 @@ args: [],
 source: "clear\x0a\x09self contents: ''",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["contents:"]
 }),
 $globals.HLCodeWidget);
@@ -441,6 +455,7 @@ args: [],
 source: "configureEditor\x0a\x09self editor at: 'amberCodeWidget' put: self.\x0a\x09self editor on: 'change' do: [ self onChange ].\x0a\x0a\x09self wrapper asJQuery on: 'mousedown' in: '.CodeMirror pre' do: [ :event | | position node |\x0a\x09\x09(event at: 'ctrlKey') ifTrue: [\x0a\x09\x09\x09position := self editor coordsChar: #{ \x0a\x09\x09\x09\x09'left' -> event clientX.\x0a\x09\x09\x09\x09'top' -> event clientY\x0a\x09\x09\x09}.\x0a\x09\x09\x09self onCtrlClickAt: (position line @ position ch) + 1.\x0a\x09\x09\x09event preventDefault ] ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["at:put:", "editor", "on:do:", "onChange", "on:in:do:", "asJQuery", "wrapper", "ifTrue:", "at:", "coordsChar:", "clientX", "clientY", "onCtrlClickAt:", "+", "@", "line", "ch", "preventDefault"]
 }),
 $globals.HLCodeWidget);
@@ -464,6 +479,7 @@ args: [],
 source: "contents\x0a\x09^ editor getValue",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["getValue"]
 }),
 $globals.HLCodeWidget);
@@ -495,6 +511,7 @@ args: ["aString"],
 source: "contents: aString\x0a\x09editor setValue: aString.\x0a\x09state ifNotNil: [ self updateState ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["setValue:", "ifNotNil:", "updateState"]
 }),
 $globals.HLCodeWidget);
@@ -518,6 +535,7 @@ args: [],
 source: "currentLine\x0a    ^editor getLine: (editor getCursor line)",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["getLine:", "line", "getCursor"]
 }),
 $globals.HLCodeWidget);
@@ -547,6 +565,7 @@ args: [],
 source: "currentLineOrSelection\x0a    ^editor somethingSelected\x0a\x09\x09ifFalse: [ self currentLine ]\x0a\x09\x09ifTrue: [ self selection ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifFalse:ifTrue:", "somethingSelected", "currentLine", "selection"]
 }),
 $globals.HLCodeWidget);
@@ -578,6 +597,7 @@ args: [],
 source: "doIt\x0a\x09| result |\x0a\x0a\x09result := self model doIt: self currentLineOrSelection.\x0a\x09self model announcer announce: (HLDoItExecuted on: model).\x0a\x0a\x09^ result",
 referencedClasses: ["HLDoItExecuted"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["doIt:", "model", "currentLineOrSelection", "announce:", "announcer", "on:"]
 }),
 $globals.HLCodeWidget);
@@ -596,6 +616,7 @@ args: [],
 source: "editor\x0a\x09^ editor",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCodeWidget);
@@ -624,6 +645,7 @@ args: [],
 source: "editorOptions\x0a\x09^ #{\x0a\x09\x09'theme' -> ('helios.editorTheme' settingValueIfAbsent: 'default').\x0a\x09\x09'mode' -> 'text/x-stsrc'.\x0a\x09\x09'inputStyle' -> 'contenteditable'.\x0a        'lineNumbers' -> true.\x0a        'enterMode' -> 'flat'.\x0a        'indentWithTabs' -> true.\x0a\x09\x09'indentUnit' -> 4.\x0a        'matchBrackets' -> true.\x0a        'electricChars' -> false.\x0a\x09\x09'keyMap' -> 'Amber'.\x0a\x09\x09'extraKeys' -> (HashedCollection with: ('helios.completionKey' settingValueIfAbsent: 'Shift-Space') -> 'autocomplete')\x0a\x09}",
 referencedClasses: ["HashedCollection"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["settingValueIfAbsent:", "with:", "->"]
 }),
 $globals.HLCodeWidget);
@@ -648,6 +670,7 @@ args: [],
 source: "focus\x0a\x09editor focus",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["focus"]
 }),
 $globals.HLCodeWidget);
@@ -671,6 +694,7 @@ args: [],
 source: "hasFocus\x0a\x09^ code asJQuery is: ':active'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["is:", "asJQuery"]
 }),
 $globals.HLCodeWidget);
@@ -689,6 +713,7 @@ args: [],
 source: "hasModification\x0a\x09^ false",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCodeWidget);
@@ -713,6 +738,7 @@ args: [],
 source: "inspectIt\x0a\x09self model inspect: self doIt",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["inspect:", "model", "doIt"]
 }),
 $globals.HLCodeWidget);
@@ -757,6 +783,7 @@ args: ["anEditor", "aToken"],
 source: "messageHintFor: anEditor token: aToken\x0a\x09^ (Smalltalk core allSelectors asArray \x0a\x09\x09select: [ :each | each includesSubString: aToken string ])\x0a\x09\x09reject: [ :each | each = aToken string ]",
 referencedClasses: ["Smalltalk"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["reject:", "select:", "asArray", "allSelectors", "core", "includesSubString:", "string", "="]
 }),
 $globals.HLCodeWidget);
@@ -787,6 +814,7 @@ args: [],
 source: "model\x0a\x09^ model ifNil: [ model := HLCodeModel new ]",
 referencedClasses: ["HLCodeModel"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLCodeWidget);
@@ -806,6 +834,7 @@ args: ["aModel"],
 source: "model: aModel\x0a\x09model := aModel",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCodeWidget);
@@ -830,6 +859,7 @@ args: ["aString"],
 source: "navigateTo: aString\x0a\x09Finder findString: aString",
 referencedClasses: ["Finder"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["findString:"]
 }),
 $globals.HLCodeWidget);
@@ -854,6 +884,7 @@ args: ["aString"],
 source: "navigateToReference: aString\x0a\x09(HLReferences openAsTab)\x0a\x09\x09search: aString",
 referencedClasses: ["HLReferences"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["search:", "openAsTab"]
 }),
 $globals.HLCodeWidget);
@@ -878,6 +909,7 @@ args: [],
 source: "onChange\x0a\x09self updateState",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["updateState"]
 }),
 $globals.HLCodeWidget);
@@ -923,6 +955,7 @@ args: ["aPoint"],
 source: "onCtrlClickAt: aPoint\x0a\x09| ast node |\x0a\x09\x0a\x09ast := [ Smalltalk parse: self editor getValue ] \x0a\x09\x09on: Error \x0a\x09\x09do: [ :error | ^ self ].\x0a\x09\x0a\x09node := ast \x0a\x09\x09navigationNodeAt: aPoint \x0a\x09\x09ifAbsent: [ ^ nil ].\x0a\x09\x09\x0a\x09self navigateTo: node navigationLink",
 referencedClasses: ["Smalltalk", "Error"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:do:", "parse:", "getValue", "editor", "navigationNodeAt:ifAbsent:", "navigateTo:", "navigationLink"]
 }),
 $globals.HLCodeWidget);
@@ -947,6 +980,7 @@ args: [],
 source: "onInspectIt\x0a\x0a\x09self inspectIt",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["inspectIt"]
 }),
 $globals.HLCodeWidget);
@@ -971,6 +1005,7 @@ args: [],
 source: "onPrintIt\x0a\x0a\x09self printIt",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["printIt"]
 }),
 $globals.HLCodeWidget);
@@ -989,6 +1024,7 @@ args: [],
 source: "onSaveIt\x0a\x09\x22I do not do anything\x22",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCodeWidget);
@@ -1085,6 +1121,7 @@ args: ["aString"],
 source: "print: aString\x0a\x09| start stop currentLine |\x0a    currentLine := (editor getCursor: false) line.\x0a\x09start := HashedCollection new.\x0a\x09start at: 'line' put: currentLine.\x0a\x09start at: 'ch' put: (editor getCursor: false) ch.\x0a    (editor getSelection) ifEmpty: [\x0a    \x09\x22select current line if selection is empty\x22\x0a    \x09start at: 'ch' put: (editor getLine: currentLine) size.\x0a        editor setSelection: #{'line' -> currentLine. 'ch' -> 0} end: start.\x0a    ].\x0a\x09stop := HashedCollection new.\x0a\x09stop at: 'line' put: currentLine.\x0a\x09stop at: 'ch' put: ((start at: 'ch') + aString size + 2).\x0a\x0a\x09editor replaceSelection: (editor getSelection, ' ', aString, ' ').\x0a\x09editor setCursor: (editor getCursor: true).\x0a\x09editor setSelection: stop end: start",
 referencedClasses: ["HashedCollection"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["line", "getCursor:", "new", "at:put:", "ch", "ifEmpty:", "getSelection", "size", "getLine:", "setSelection:end:", "+", "at:", "replaceSelection:", ",", "setCursor:"]
 }),
 $globals.HLCodeWidget);
@@ -1109,6 +1146,7 @@ args: [],
 source: "printIt\x0a\x09self print: self doIt printString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["print:", "printString", "doIt"]
 }),
 $globals.HLCodeWidget);
@@ -1132,6 +1170,7 @@ args: [],
 source: "receiver\x0a\x09^ self model receiver",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["receiver", "model"]
 }),
 $globals.HLCodeWidget);
@@ -1156,6 +1195,7 @@ args: ["anObject"],
 source: "receiver: anObject\x0a\x09self model receiver: anObject",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["receiver:", "model"]
 }),
 $globals.HLCodeWidget);
@@ -1264,6 +1304,7 @@ args: ["html"],
 source: "renderButtonsOn: html\x0a\x09html button \x0a\x09\x09class: 'button';\x0a\x09\x09with: 'DoIt';\x0a\x09\x09onClick: [ self doIt ].\x0a\x09html button \x0a\x09\x09class: 'button';\x0a\x09\x09with: 'PrintIt';\x0a\x09\x09onClick: [ self printIt ].\x0a\x09html button \x0a\x09\x09class: 'button';\x0a\x09\x09with: 'InspectIt';\x0a\x09\x09onClick: [ self inspectIt ].\x0a\x09html button \x0a\x09\x09class: 'button';\x0a\x09\x09with: 'BrowseIt';\x0a\x09\x09onClick: [ self browseIt ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "button", "with:", "onClick:", "doIt", "printIt", "inspectIt", "browseIt"]
 }),
 $globals.HLCodeWidget);
@@ -1331,6 +1372,7 @@ args: ["html"],
 source: "renderContentOn: html\x0a\x09html div class: 'editor'; with: [\x0a\x09\x09code := html textarea ].\x0a\x09state := html div class: 'state'.\x0a\x09\x0a\x09html div \x0a\x09\x09class: 'buttons_bar';\x0a\x09\x09with: [ self renderButtonsOn: html ].\x0a\x09\x0a\x09self \x0a\x09\x09setEditorOn: code asDomNode;\x0a\x09\x09configureEditor;\x0a\x09\x09updateState",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "div", "with:", "textarea", "renderButtonsOn:", "setEditorOn:", "asDomNode", "configureEditor", "updateState"]
 }),
 $globals.HLCodeWidget);
@@ -1349,6 +1391,7 @@ args: [],
 source: "saveIt\x0a\x09\x22I do not do anything\x22",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCodeWidget);
@@ -1372,6 +1415,7 @@ args: [],
 source: "selection\x0a\x09^editor getSelection",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["getSelection"]
 }),
 $globals.HLCodeWidget);
@@ -1395,6 +1439,7 @@ args: [],
 source: "selectionEnd\x0a   ^ code asDomNode selectionEnd",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectionEnd", "asDomNode"]
 }),
 $globals.HLCodeWidget);
@@ -1419,6 +1464,7 @@ args: ["anInteger"],
 source: "selectionEnd: anInteger\x0a   code asDomNode selectionEnd: anInteger",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectionEnd:", "asDomNode"]
 }),
 $globals.HLCodeWidget);
@@ -1442,6 +1488,7 @@ args: [],
 source: "selectionStart\x0a   ^ code asDomNode selectionStart",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectionStart", "asDomNode"]
 }),
 $globals.HLCodeWidget);
@@ -1466,6 +1513,7 @@ args: ["anInteger"],
 source: "selectionStart: anInteger\x0a   code asDomNode selectionStart: anInteger",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["selectionStart:", "asDomNode"]
 }),
 $globals.HLCodeWidget);
@@ -1490,6 +1538,7 @@ args: ["aTextarea"],
 source: "setEditorOn: aTextarea\x0a\x09editor := codeMirrorLib provided fromTextArea: aTextarea options: self editorOptions",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["fromTextArea:options:", "provided", "editorOptions"]
 }),
 $globals.HLCodeWidget);
@@ -1524,6 +1573,7 @@ args: [],
 source: "updateState\x0a\x09self hasModification \x0a\x09\x09ifTrue: [ state asJQuery addClass: 'modified' ]\x0a\x09\x09ifFalse: [ state asJQuery removeClass: 'modified' ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:ifFalse:", "hasModification", "addClass:", "asJQuery", "removeClass:"]
 }),
 $globals.HLCodeWidget);
@@ -1605,6 +1655,7 @@ args: ["anEditor", "aToken"],
 source: "variableHintFor: anEditor token: aToken\x0a\x09| variables classNames pseudoVariables |\x0a\x09\x0a\x09variables := (anEditor display wrapper asJQuery find: 'span.cm-variable') get\x0a\x09\x09collect: [ :each | each asJQuery html ].\x0a\x09\x0a\x09classNames := Smalltalk classes collect: [ :each | each name ].\x0a\x09pseudoVariables := Smalltalk pseudoVariableNames.\x0a\x09\x0a\x09^ ((variables, classNames, pseudoVariables) asSet asArray sort\x0a\x09\x09select: [ :each | each includesSubString: aToken string ])\x0a\x09\x09reject: [ :each | each = aToken string ]",
 referencedClasses: ["Smalltalk"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["collect:", "get", "find:", "asJQuery", "wrapper", "display", "html", "classes", "name", "pseudoVariableNames", "reject:", "select:", "sort", "asArray", "asSet", ",", "includesSubString:", "string", "="]
 }),
 $globals.HLCodeWidget);
@@ -1663,6 +1714,7 @@ args: ["anEditor", "options"],
 source: "hintFor: anEditor options: options\x0a\x09| cursor token completions |\x0a\x09\x0a\x09cursor := anEditor getCursor.\x0a\x09token := anEditor getTokenAt: cursor.\x0a\x09token at: 'state' put: ((codeMirrorLib basicAt: 'innerMode')\x0a\x09\x09value: anEditor getMode value: (token at: 'state')) state.\x0a\x09\x0a\x09completions := token type = 'variable' \x0a\x09\x09ifTrue: [ HLCodeWidget variableHintFor: anEditor token: token ]\x0a\x09\x09ifFalse: [ HLCodeWidget messageHintFor: anEditor token: token ].\x0a\x09\x0a\x09^ #{\x0a\x09\x09'list' -> completions.\x0a\x09\x09'from' -> ((codeMirrorLib basicAt: 'Pos') value: cursor line value: token end).\x0a\x09\x09'to' -> ((codeMirrorLib basicAt: 'Pos') value: cursor line value: token start)\x0a\x09}",
 referencedClasses: ["HLCodeWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["getCursor", "getTokenAt:", "at:put:", "state", "value:value:", "basicAt:", "getMode", "at:", "ifTrue:ifFalse:", "=", "type", "variableHintFor:token:", "messageHintFor:token:", "line", "end", "start"]
 }),
 $globals.HLCodeWidget.a$cls);
@@ -1697,6 +1749,7 @@ args: [],
 source: "initialize\x0a\x09super initialize.\x0a\x09self \x0a\x09\x09setupCodeMirror;\x0a\x09\x09setupCommands;\x0a\x09\x09setupKeyMaps.",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["initialize", "setupCodeMirror", "setupCommands", "setupKeyMaps"]
 }),
 $globals.HLCodeWidget.a$cls);
@@ -1726,6 +1779,7 @@ args: [],
 source: "keyMap\x0a\x09^ HLManager current keyBinder systemIsMac\x0a\x09\x09ifTrue: [ self macKeyMap ]\x0a\x09\x09ifFalse: [ self pcKeyMap ]",
 referencedClasses: ["HLManager"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:ifFalse:", "systemIsMac", "keyBinder", "current", "macKeyMap", "pcKeyMap"]
 }),
 $globals.HLCodeWidget.a$cls);
@@ -1744,6 +1798,7 @@ args: [],
 source: "macKeyMap\x0a\x09^ #{\x0a\x09\x09'Alt-Backspace'\x09\x09\x09-> 'delWordBefore'.\x0a\x09\x09'Alt-Delete'\x09\x09\x09-> 'delWordAfter'. \x0a\x09\x09'Alt-Left'\x09\x09\x09\x09-> 'goWordLeft'.\x0a\x09\x09'Alt-Right'\x09\x09\x09\x09-> 'goWordRight'. \x0a\x09\x09'Cmd-A'\x09\x09\x09\x09\x09-> 'selectAll'. \x0a\x09\x09'Cmd-Alt-F'\x09\x09\x09\x09-> 'replace'. \x0a\x09\x09'Cmd-D'\x09\x09\x09\x09\x09-> 'doIt'. \x0a\x09\x09'Cmd-B'\x09\x09\x09\x09\x09-> 'browseIt'. \x0a\x09\x09'Cmd-Down'\x09\x09\x09\x09-> 'goDocEnd'. \x0a\x09\x09'Cmd-End'\x09\x09\x09\x09-> 'goDocEnd'. \x0a\x09\x09'Cmd-F'\x09\x09\x09\x09\x09-> 'find'.\x0a\x09\x09'Cmd-G'\x09\x09\x09\x09\x09-> 'findNext'. \x0a\x09\x09'Cmd-I'\x09\x09\x09\x09\x09-> 'inspectIt'. \x0a\x09\x09'Cmd-Left'\x09\x09\x09\x09-> 'goLineStart'. \x0a\x09\x09'Cmd-P'\x09\x09\x09\x09\x09-> 'printIt'. \x0a\x09\x09'Cmd-Right'\x09\x09\x09\x09-> 'goLineEnd'. \x0a\x09\x09'Cmd-S'\x09\x09\x09\x09\x09-> 'saveIt'. \x0a\x09\x09'Cmd-Up'\x09\x09\x09\x09-> 'goDocStart'. \x0a\x09\x09'Cmd-Y'\x09\x09\x09\x09\x09-> 'redo'.\x0a\x09\x09'Cmd-Z'\x09\x09\x09\x09\x09-> 'undo'. \x0a\x09\x09'Cmd-['\x09\x09\x09\x09\x09-> 'indentLess'. \x0a\x09\x09'Cmd-]'\x09\x09\x09\x09\x09-> 'indentMore'.\x0a\x09\x09'Ctrl-Alt-Backspace'\x09-> 'delWordAfter'. \x0a\x09\x09'Shift-Cmd-Alt-F'\x09\x09-> 'replaceAll'.\x0a\x09\x09'Shift-Cmd-G'\x09\x09\x09-> 'findPrev'. \x0a\x09\x09'Shift-Cmd-Z'\x09\x09\x09-> 'redo'. \x0a    \x09'fallthrough' \x09\x09\x09-> { 'basic'. 'emacsy' }\x0a  }",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCodeWidget.a$cls);
@@ -1767,6 +1822,7 @@ args: ["anEditor", "aToken"],
 source: "messageHintFor: anEditor token: aToken\x0a\x09^ (anEditor at: 'amberCodeWidget')\x0a\x09\x09messageHintFor: anEditor token: aToken",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["messageHintFor:token:", "at:"]
 }),
 $globals.HLCodeWidget.a$cls);
@@ -1785,6 +1841,7 @@ args: [],
 source: "pcKeyMap\x0a\x09^ #{\x0a\x09\x09'Alt-Left' -> \x09\x09'goLineStart'. \x0a\x09\x09'Alt-Right' -> \x09\x09'goLineEnd'.\x0a\x09\x09'Alt-Up' -> \x09\x09'goDocStart'. \x0a\x09\x09'Ctrl-A' -> \x09\x09'selectAll'. \x0a\x09\x09'Ctrl-Backspace' -> 'delWordBefore'. \x0a\x09\x09'Ctrl-D' -> \x09\x09'doIt'. \x0a\x09\x09'Ctrl-B' -> \x09\x09'browseIt'. \x0a\x09\x09'Ctrl-Delete' -> \x09\x09'delWordAfter'. \x0a\x09\x09'Ctrl-Down' -> \x09\x09'goDocEnd'.\x0a\x09\x09'Ctrl-End' -> \x09\x09'goDocEnd'. \x0a\x09\x09'Ctrl-F' -> \x09\x09'find'.\x0a\x09\x09'Ctrl-G' -> \x09\x09'findNext'. \x0a\x09\x09'Ctrl-I' -> \x09\x09'inspectIt'.\x0a\x09\x09'Ctrl-Home' -> \x09\x09'goDocStart'. \x0a\x09\x09'Ctrl-Left' -> \x09\x09'goWordLeft'. \x0a\x09\x09'Ctrl-P' -> \x09\x09'printIt'.\x0a\x09\x09'Ctrl-Right' -> \x09'goWordRight'. \x0a\x09\x09'Ctrl-S' -> \x09\x09'saveIt'. \x0a\x09\x09'Ctrl-Y' -> \x09\x09'redo'.\x0a\x09\x09'Ctrl-Z' -> \x09\x09'undo'. \x0a\x09\x09'Ctrl-[' -> \x09\x09'indentLess'. \x0a\x09\x09'Ctrl-]' -> \x09\x09'indentMore'.\x0a\x09\x09'Shift-Ctrl-F' -> \x09'replace'. \x0a\x09\x09'Shift-Ctrl-G' -> \x09'findPrev'. \x0a\x09\x09'Shift-Ctrl-R' -> \x09'replaceAll'.\x0a\x09\x09'Shift-Ctrl-Z' -> \x09'redo'. \x0a\x09\x09'fallthrough' -> \x09#('basic')\x0a}",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLCodeWidget.a$cls);
@@ -1814,6 +1871,7 @@ args: [],
 source: "setupCodeMirror\x0a\x09<inlineJS: '\x0a\x09\x09codeMirrorLib.keyMap[\x22default\x22].fallthrough = [\x22basic\x22];\x0a\x09\x09codeMirrorLib.commands.autocomplete = function(cm) {\x0a\x09\x09\x09codeMirrorLib.showHint(cm, $self._hintFor_options_.bind($self));\x0a\x09\x09}\x0a\x09'>",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [["inlineJS:", ["\x0a\x09\x09codeMirrorLib.keyMap[\x22default\x22].fallthrough = [\x22basic\x22];\x0a\x09\x09codeMirrorLib.commands.autocomplete = function(cm) {\x0a\x09\x09\x09codeMirrorLib.showHint(cm, $self._hintFor_options_.bind($self));\x0a\x09\x09}\x0a\x09"]]],
 messageSends: []
 }),
 $globals.HLCodeWidget.a$cls);
@@ -1912,6 +1970,7 @@ args: [],
 source: "setupCommands\x0a\x09(codeMirrorLib basicAt: 'commands') \x0a\x09\x09at: 'doIt' put: [ :cm | cm amberCodeWidget doIt ];\x0a\x09\x09at: 'inspectIt' put: [ :cm | cm amberCodeWidget inspectIt ];\x0a\x09\x09at: 'printIt' put: [ :cm | cm amberCodeWidget printIt ];\x0a\x09\x09at: 'saveIt' put: [ :cm | cm amberCodeWidget saveIt ];\x0a\x09\x09at: 'browseIt' put: [ :cm | cm amberCodeWidget browseIt ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["at:put:", "basicAt:", "doIt", "amberCodeWidget", "inspectIt", "printIt", "saveIt", "browseIt"]
 }),
 $globals.HLCodeWidget.a$cls);
@@ -1936,6 +1995,7 @@ args: [],
 source: "setupKeyMaps\x0a\x09<inlineJS: 'codeMirrorLib.keyMap[\x22Amber\x22] = $self._keyMap()'>",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [["inlineJS:", ["codeMirrorLib.keyMap[\x22Amber\x22] = $self._keyMap()"]]],
 messageSends: []
 }),
 $globals.HLCodeWidget.a$cls);
@@ -1959,6 +2019,7 @@ args: ["anEditor", "aToken"],
 source: "variableHintFor: anEditor token: aToken\x0a\x09^ (anEditor at: 'amberCodeWidget')\x0a\x09\x09variableHintFor: anEditor token: aToken",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["variableHintFor:token:", "at:"]
 }),
 $globals.HLCodeWidget.a$cls);
@@ -1993,6 +2054,7 @@ args: [],
 source: "configureEditor\x0a\x09super configureEditor.\x0a\x09self contents: self methodContents",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["configureEditor", "contents:", "methodContents"]
 }),
 $globals.HLNavigationCodeWidget);
@@ -2025,6 +2087,7 @@ args: ["aString"],
 source: "contents: aString\x0a\x09self methodContents: aString.\x0a\x09super contents: aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["methodContents:", "contents:"]
 }),
 $globals.HLNavigationCodeWidget);
@@ -2048,6 +2111,7 @@ args: [],
 source: "hasModification\x0a\x09^ (self methodContents = self contents) not",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["not", "=", "methodContents", "contents"]
 }),
 $globals.HLNavigationCodeWidget);
@@ -2077,6 +2141,7 @@ args: [],
 source: "methodContents\x0a\x09^ methodContents ifNil: [ '' ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:"]
 }),
 $globals.HLNavigationCodeWidget);
@@ -2098,6 +2163,7 @@ args: ["aString"],
 source: "methodContents: aString\x0a\x09^ methodContents := aString",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLNavigationCodeWidget);
@@ -2116,6 +2182,7 @@ args: [],
 source: "previous\x0a\x09\x22for browser lists widget\x22",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLNavigationCodeWidget);
@@ -2134,6 +2201,7 @@ args: ["aWidget"],
 source: "previous: aWidget\x0a\x09\x22for browser lists widget\x22",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLNavigationCodeWidget);
@@ -2153,6 +2221,7 @@ args: [],
 source: "canBeOpenAsTab\x0a\x09^ false",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLNavigationCodeWidget.a$cls);
@@ -2179,6 +2248,7 @@ args: ["aBrowserModel"],
 source: "on: aBrowserModel\x0a\x09^ self new\x0a\x09\x09browserModel: aBrowserModel;\x0a\x09\x09yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["browserModel:", "new", "yourself"]
 }),
 $globals.HLNavigationCodeWidget.a$cls);
@@ -2199,6 +2269,7 @@ args: [],
 source: "browserModel\x0a\x09^ browserModel",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBrowserCodeWidget);
@@ -2225,6 +2296,7 @@ args: ["aBrowserModel"],
 source: "browserModel: aBrowserModel\x0a\x09browserModel := aBrowserModel.\x0a\x09self \x0a\x09\x09observeSystem;\x0a\x09\x09observeBrowserModel",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["observeSystem", "observeBrowserModel"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2303,6 +2375,7 @@ args: [],
 source: "observeBrowserModel\x0a\x09self browserModel announcer\x0a\x09\x09on: HLSaveSourceCode\x0a\x09\x09send: #onSaveIt\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLShowInstanceToggled\x0a\x09\x09send: #onShowInstanceToggled\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLSourceCodeSaved\x0a\x09\x09send: #onSourceCodeSaved\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLAboutToChange\x0a\x09\x09send: #onBrowserAboutToChange:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLParseErrorRaised\x0a\x09\x09send: #onParseError:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLCompileErrorRaised\x0a\x09\x09send: #onCompileError:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLUnknownVariableErrorRaised\x0a\x09\x09send: #onUnknownVariableError:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLInstVarAdded \x0a\x09\x09send: #onInstVarAdded\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLMethodSelected \x0a\x09\x09send: #onMethodSelected:\x0a\x09\x09to: self;\x0a\x09\x09\x0a    \x09on: HLClassSelected \x0a\x09\x09send: #onClassSelected:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLPackageSelected \x0a\x09\x09send: #onPackageSelected:\x0a\x09\x09to: self;\x0a\x09\x09\x0a    \x09on: HLProtocolSelected \x0a\x09\x09send: #onProtocolSelected: \x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLSourceCodeFocusRequested \x0a\x09\x09send: #onSourceCodeFocusRequested\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLShowTemplate\x0a\x09\x09send: #onShowTemplate:\x0a\x09\x09to: self",
 referencedClasses: ["HLSaveSourceCode", "HLShowInstanceToggled", "HLSourceCodeSaved", "HLAboutToChange", "HLParseErrorRaised", "HLCompileErrorRaised", "HLUnknownVariableErrorRaised", "HLInstVarAdded", "HLMethodSelected", "HLClassSelected", "HLPackageSelected", "HLProtocolSelected", "HLSourceCodeFocusRequested", "HLShowTemplate"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:send:to:", "announcer", "browserModel"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2327,6 +2400,7 @@ args: [],
 source: "observeSystem\x0a\x09self browserModel systemAnnouncer\x0a    \x09on: MethodModified\x0a        send: #onMethodModified:\x0a\x09\x09to: self",
 referencedClasses: ["MethodModified"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["on:send:to:", "systemAnnouncer", "browserModel"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2367,6 +2441,7 @@ args: ["anAnnouncement"],
 source: "onBrowserAboutToChange: anAnnouncement\x0a\x09| block |\x0a\x09\x0a\x09block := anAnnouncement actionBlock.\x0a\x09\x0a\x09self hasModification\x0a\x09\x09ifTrue: [\x0a\x09\x09\x09self \x0a\x09\x09\x09\x09confirm: 'Changes have not been saved. Do you want to discard these changes?' \x0a\x09\x09\x09\x09ifTrue: [\x0a\x09\x09\x09\x09\x09\x22Don't ask twice\x22\x0a\x09\x09\x09\x09\x09self methodContents: self contents.\x0a\x09\x09\x09\x09\x09block value ].\x0a\x09\x09\x09\x0a\x09\x09\x09\x0a\x09\x09\x09HLChangeForbidden signal ]",
 referencedClasses: ["HLChangeForbidden"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["actionBlock", "ifTrue:", "hasModification", "confirm:ifTrue:", "methodContents:", "contents", "value", "signal"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2404,6 +2479,7 @@ args: ["anAnnouncement"],
 source: "onClassSelected: anAnnouncement\x0a\x09| class |\x0a\x09\x0a\x09class:= anAnnouncement item.\x0a\x09\x0a\x09class ifNil: [ ^ self contents: '' ].\x0a\x09self contents: class definition",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["item", "ifNil:", "contents:", "definition"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2428,6 +2504,7 @@ args: ["anAnnouncement"],
 source: "onCompileError: anAnnouncement\x0a\x09Terminal alert: anAnnouncement error messageText",
 referencedClasses: ["Terminal"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["alert:", "messageText", "error"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2452,6 +2529,7 @@ args: [],
 source: "onInstVarAdded\x0a\x09self browserModel save: self contents",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["save:", "browserModel", "contents"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2512,6 +2590,7 @@ args: ["anAnnouncement"],
 source: "onMethodModified: anAnnouncement\x0a\x09| method |\x0a\x09\x0a\x09method := anAnnouncement method.\x0a\x09\x0a\x09self browserModel selectedClass = method methodClass ifFalse: [ ^ self ].\x0a\x09self browserModel selectedMethod ifNil: [ ^ self ].\x0a\x09self browserModel selectedMethod selector = method selector ifFalse: [ ^ self ].\x0a\x0a\x09self refresh",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["method", "ifFalse:", "=", "selectedClass", "browserModel", "methodClass", "ifNil:", "selectedMethod", "selector", "refresh"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2549,6 +2628,7 @@ args: ["anAnnouncement"],
 source: "onMethodSelected: anAnnouncement\x0a\x09| method |\x0a\x09\x0a\x09method := anAnnouncement item.\x0a\x09\x0a\x09method ifNil: [ ^ self contents: '' ].\x0a\x09self contents: method source",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["item", "ifNil:", "contents:", "source"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2586,6 +2666,7 @@ args: ["anAnnouncement"],
 source: "onPackageSelected: anAnnouncement\x0a\x09| package |\x0a\x09\x0a\x09package := anAnnouncement item.\x0a\x09\x0a\x09package ifNil: [ ^ self contents: '' ].\x0a\x09self contents: package definition",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["item", "ifNil:", "contents:", "definition"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2673,6 +2754,7 @@ args: ["anAnnouncement"],
 source: "onParseError: anAnnouncement\x0a\x09| lineIndex newContents |\x0a\x09\x0a\x09lineIndex := 1.\x0a\x09\x0a\x09self contents: (String streamContents: [ :stream |\x0a\x09\x09self contents linesDo: [ :each |\x0a\x09\x09\x09lineIndex = anAnnouncement line \x0a\x09\x09\x09\x09ifTrue: [ \x0a\x09\x09\x09\x09\x09stream \x0a\x09\x09\x09\x09\x09\x09nextPutAll: (each copyFrom: 1 to: anAnnouncement column);\x0a\x09\x09\x09\x09\x09\x09nextPutAll: '<- ';\x0a\x09\x09\x09\x09\x09\x09nextPutAll: anAnnouncement message;\x0a\x09\x09\x09\x09\x09\x09nextPutAll: ' ';\x0a\x09\x09\x09\x09\x09\x09nextPutAll: (each copyFrom: anAnnouncement column + 1 to: each size) ]\x0a\x09\x09\x09\x09ifFalse: [ stream nextPutAll: each ].\x0a\x09\x09\x09stream nextPutAll: String cr.\x0a\x09\x09\x09lineIndex := lineIndex + 1 ] ])",
 referencedClasses: ["String"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["contents:", "streamContents:", "linesDo:", "contents", "ifTrue:ifFalse:", "=", "line", "nextPutAll:", "copyFrom:to:", "column", "message", "+", "size", "cr"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2715,6 +2797,7 @@ args: ["anAnnouncement"],
 source: "onProtocolSelected: anAnnouncement\x0a\x09self browserModel selectedClass ifNil: [ ^ self contents: '' ].\x0a\x09self contents: self browserModel selectedClass definition",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "selectedClass", "browserModel", "contents:", "definition"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2739,6 +2822,7 @@ args: [],
 source: "onSaveIt\x0a\x09self browserModel save: self contents",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["save:", "browserModel", "contents"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2781,6 +2865,7 @@ args: [],
 source: "onShowInstanceToggled\x0a\x09self browserModel selectedClass ifNil: [ ^ self contents: '' ].\x0a    \x0a\x09self contents: self browserModel selectedClass definition",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "selectedClass", "browserModel", "contents:", "definition"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2805,6 +2890,7 @@ args: ["anAnnouncement"],
 source: "onShowTemplate: anAnnouncement\x0a\x09self contents: anAnnouncement template",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["contents:", "template"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2829,6 +2915,7 @@ args: [],
 source: "onSourceCodeFocusRequested\x0a\x09self focus",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["focus"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2854,6 +2941,7 @@ args: [],
 source: "onSourceCodeSaved\x0a\x09self methodContents: self contents.\x0a\x09self updateState",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["methodContents:", "contents", "updateState"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2904,6 +2992,7 @@ args: ["anAnnouncement"],
 source: "onUnknownVariableError: anAnnouncement\x0a\x09| error |\x0a\x09\x0a\x09error := anAnnouncement error.\x0a\x09\x0a\x09self \x0a\x09\x09confirm: (String streamContents: [ :stream |\x0a\x09\x09\x09stream \x0a\x09\x09\x09\x09nextPutAll: error messageText;\x0a\x09\x09\x09\x09nextPutAll: String cr;\x0a\x09\x09\x09\x09nextPutAll: 'Would you like to define an instance variable?' ])\x0a\x09\x09ifTrue: [\x0a\x09\x09\x09self browserModel addInstVarNamed: error variableName ]",
 referencedClasses: ["String"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["error", "confirm:ifTrue:", "streamContents:", "nextPutAll:", "messageText", "cr", "addInstVarNamed:", "browserModel", "variableName"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2937,6 +3026,7 @@ args: [],
 source: "refresh\x0a\x09self hasModification ifTrue: [ ^ self ].\x0a    self hasFocus ifTrue: [ ^ self ].\x0a\x0a\x09self contents: self browserModel selectedMethod source",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifTrue:", "hasModification", "hasFocus", "contents:", "source", "selectedMethod", "browserModel"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -2981,6 +3071,7 @@ args: ["html"],
 source: "renderButtonsOn: html\x0a\x09html button \x0a\x09\x09class: 'button';\x0a\x09\x09with: 'SaveIt';\x0a\x09\x09onClick: [ self saveIt ].\x0a\x09super renderButtonsOn: html",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "button", "with:", "onClick:", "saveIt", "renderButtonsOn:"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -3005,6 +3096,7 @@ args: [],
 source: "saveIt\x0a\x09self browserModel saveSourceCode",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["saveSourceCode", "browserModel"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -3047,6 +3139,7 @@ args: [],
 source: "unregister\x0a\x09super unregsiter.\x0a\x09\x0a\x09self browserModel announcer unsubscribe: self.\x0a\x09self browserModel systemAnnouncer unsubscribe: self",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["unregsiter", "unsubscribe:", "announcer", "browserModel", "systemAnnouncer"]
 }),
 $globals.HLBrowserCodeWidget);
@@ -3066,6 +3159,7 @@ args: [],
 source: "canBeOpenAsTab\x0a\x09^ false",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLBrowserCodeWidget.a$cls);
@@ -3092,6 +3186,7 @@ args: ["aBrowserModel"],
 source: "on: aBrowserModel\x0a\x09^ self new\x0a\x09\x09browserModel: aBrowserModel;\x0a\x09\x09yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["browserModel:", "new", "yourself"]
 }),
 $globals.HLBrowserCodeWidget.a$cls);
@@ -3112,6 +3207,7 @@ args: [],
 source: "canHaveFocus\x0a\x09^ true",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLWorkspace);
@@ -3142,6 +3238,7 @@ args: [],
 source: "codeWidget\x0a\x09^ codeWidget ifNil: [ codeWidget := HLCodeWidget new ]",
 referencedClasses: ["HLCodeWidget"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLWorkspace);
@@ -3165,6 +3262,7 @@ args: [],
 source: "focus\x0a\x09^ self codeWidget focus",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["focus", "codeWidget"]
 }),
 $globals.HLWorkspace);
@@ -3200,6 +3298,7 @@ args: ["html"],
 source: "renderContentOn: html\x0a\x09html with: (HLContainer with: (HLHorizontalSplitter\x0a\x09\x09with: self codeWidget\x0a\x09\x09with: [ :canvas | self renderTranscriptOn: canvas ]))",
 referencedClasses: ["HLContainer", "HLHorizontalSplitter"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["with:", "with:with:", "codeWidget", "renderTranscriptOn:"]
 }),
 $globals.HLWorkspace);
@@ -3247,6 +3346,7 @@ args: ["html"],
 source: "renderTranscriptOn: html\x0a\x09html div \x0a\x09\x09class: 'transcript-container';\x0a\x09\x09with: [\x0a\x09\x09\x09html div\x0a\x09\x09\x09\x09class: 'list-label';\x0a\x09\x09\x09\x09with: 'Transcript'.\x0a\x09\x09\x09self transcript renderOn: html ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["class:", "div", "with:", "renderOn:", "transcript"]
 }),
 $globals.HLWorkspace);
@@ -3277,6 +3377,7 @@ args: [],
 source: "transcript\x0a\x09^ transcript ifNil: [ transcript := HLTranscript new ]",
 referencedClasses: ["HLTranscript"],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["ifNil:", "new"]
 }),
 $globals.HLWorkspace);
@@ -3312,6 +3413,7 @@ args: [],
 source: "unregister\x0a\x09super unregister.\x0a\x09self transcript unregister",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: ["unregister", "transcript"]
 }),
 $globals.HLWorkspace);
@@ -3331,6 +3433,7 @@ args: [],
 source: "canBeOpenAsTab\x0a\x09^ true",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLWorkspace.a$cls);
@@ -3349,6 +3452,7 @@ args: [],
 source: "tabClass\x0a\x09^ 'workspace'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLWorkspace.a$cls);
@@ -3367,6 +3471,7 @@ args: [],
 source: "tabLabel\x0a\x09^ 'Workspace'",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLWorkspace.a$cls);
@@ -3385,6 +3490,7 @@ args: [],
 source: "tabPriority\x0a\x09^ 10",
 referencedClasses: [],
 //>>excludeEnd("ide");
+pragmas: [],
 messageSends: []
 }),
 $globals.HLWorkspace.a$cls);