maglev-database-explorer 0.0.1

data/public/amber/st/Maglev-Vendor.st

@@ -0,0 +1,213 @@
+Smalltalk current createPackage: 'Maglev-Vendor' properties: #{}!
+Object subclass: #MaglevAjax
+	instanceVariableNames: ''
+	package: 'Maglev-Vendor'!
+
+!MaglevAjax class methodsFor: 'not yet classified'!
+
+ajax: aString data: data
+	< var result = $.parseJSON($.ajax({url: aString, data: $.parseJSON(data._asJSONString()), async: false}).responseText);
+	if (result.success === false) {
+		self.error('Server call failed: ' + result.exception);
+	}
+	else {
+		return result.result;
+	} >
+!
+
+ajax: aString data: data withCallback: aBlock
+	< $.ajax({url: aString, data: $.parseJSON(data._asJSONString()), async: true, complete: function(response) {
+		var result = $.parseJSON(response.responseText);
+		if (result.success === false) {
+			self.error('Server call failed: ' + result.exception);
+		} else {
+			aBlock._value_(result.result);
+		}
+	}}); >
+! !
+
+Object subclass: #MaglevJsPlumb
+	instanceVariableNames: ''
+	package: 'Maglev-Vendor'!
+
+MaglevJsPlumb class instanceVariableNames: 'sourceTarget defaults referenceConnection instanceOfConnection virtualClassConnection superclassConnection connection'!
+
+!MaglevJsPlumb class methodsFor: 'accessing'!
+
+connection
+	^ connection
+!
+
+defaults
+	^ defaults
+!
+
+instanceOfConnection
+	^ instanceOfConnection
+!
+
+referenceConnection
+	^ referenceConnection
+!
+
+sourceTarget
+	^ sourceTarget
+!
+
+virtualClassConnection
+	^ virtualClassConnection
+! !
+
+!MaglevJsPlumb class methodsFor: 'constants'!
+
+constConnection
+	^ Dictionary new
+		at: #iv put: referenceConnection;
+		at: #hashKey put: referenceConnection;
+		at: #hashValue put: referenceConnection;
+		at: #arrayElement put: referenceConnection;
+		at: #class put: instanceOfConnection;
+		at: #virtualClass put: virtualClassConnection;
+		at: #superclass put: superclassConnection;
+		yourself
+!
+
+constDefaults
+	< return {
+		Connector: ["Bezier", {curviness: 50}],
+		DragOptions: {cursor: "pointer", zIndex: 2000},
+		PaintStyle: {strokeStyle: "gray", lineWidth: 2},
+		Endpoint: ["Dot",{radius: 1}],
+		EndpointStyle: {radius: 1, fillStyle: "gray"},
+		HoverPaintStyle: {strokeStyle: "#ec9f2e"},
+		EndpointHoverStyle: {fillStyle: "#ec9f2e"},
+		Anchors: ["BottomCenter", "TopCenter"]}; >
+!
+
+constInstanceOfConnection
+	< return {
+		overlays: ["Arrow", [
+			"Label",
+			{label: "?", location: 0.25, id: "myLabel"}]],
+		paintStyle: {
+			lineWidth: 2,
+			strokeStyle:"#9b59bb",
+			dashstyle:"4 2",
+			joinstyle:"miter"}}; >
+!
+
+constReferenceConnection
+	< return {
+		overlays: ["Arrow", [
+			"Label",
+			{label: "?", location: 0.25, id: "myLabel"}]]}; >
+!
+
+constSourceTarget
+	< return {
+		dropOptions: {
+			hoverClass:"dragHover"
+		},
+ 		anchor: "Continuous"}; >
+!
+
+constSuperclassConnection
+	< return {
+		overlays: ["PlainArrow", [
+			"Label",
+			{label: "?", location: 0.25, id: "myLabel"}]],
+		paintStyle: {
+			lineWidth: 2,
+			strokeStyle:"#346789",
+			joinstyle:"miter"}}; >
+!
+
+constVirtualClassConnection
+	< return {
+		overlays: ["Arrow", [
+			"Label",
+			{label: "?", location: 0.25, id: "myLabel"}]],
+		paintStyle: {
+			lineWidth: 2,
+			strokeStyle:"#c50b0b",
+			dashstyle:"4 2",
+			joinstyle:"miter"}}; >
+! !
+
+!MaglevJsPlumb class methodsFor: 'initializing'!
+
+initialize
+	self initializeConstants.
+	self initializeJsPlumb.
+!
+
+initializeChromeFix
+	< document.onselectstart = function() {
+		return false;
+	}; >
+!
+
+initializeConstants
+	sourceTarget := self constSourceTarget.
+	defaults := self constDefaults.
+	referenceConnection := self constReferenceConnection.
+	instanceOfConnection := self constInstanceOfConnection.
+	virtualClassConnection := self constVirtualClassConnection.
+	superclassConnection := self constSuperclassConnection.
+	connection := self constConnection.
+!
+
+initializeJsPlumb
+	jsPlumb
+		bind: 'ready'
+		a: [
+			self initializeChromeFix.
+			jsPlumb setRenderMode: jsPlumb SVG.
+			jsPlumb importDefaults: defaults].
+! !
+
+!MaglevJsPlumb class methodsFor: 'interactions'!
+
+connectWindow: sourceWindow to: targetWindow as: cType with: caption
+	|params type defParams sourceEl targetEl text|
+	sourceWindow = targetWindow ifTrue: [^ self].
+	type := self connection at: cType.
+	sourceEl := sourceWindow container asJQuery.
+	targetEl := targetWindow container asJQuery.
+	caption
+		ifNil: [text := '']
+		ifNotNil: [text := caption asString].
+	text = ''
+		ifFalse: [text := '<span class="component object-ivname-box" style="white-space: nowrap;">', text, '</span>'].
+	< params = $.extend(true, {}, type); 
+	params.source = sourceEl;
+	params.target = targetEl; 
+	params.overlays[1][1].label = text; >.
+
+	jsPlumb connect: params.
+!
+
+connectWindow: sourceWindow to: targetWindow with: parameters
+	|params type defParams|
+	sourceWindow = targetWindow ifTrue: [^ self].
+	type := self connection at: (parameters at: #type).
+	< params = $.extend(true, {}, defParams); >.
+	params
+		basicAt: 'source' put: sourceWindow container;
+		basicAt: 'target' put: targetWindow container.
+
+	jsPlumb connect: params.
+!
+
+deleteEndpointsFor: anObject
+	|endpoints|
+	endpoints := jsPlumb getEndpoints: anObject.
+	endpoints ifNotNil: [endpoints do: [:endpoint | jsPlumb deleteEndpoint: endpoint]].
+!
+
+prepareObject: anObject
+	jsPlumb draggable: anObject.
+	jsPlumb makeSource: anObject a: sourceTarget.
+	jsPlumb makeTarget: anObject a: sourceTarget.
+! !
+

data/public/amber/st/Makefile

@@ -0,0 +1,104 @@
+#
+# This Makefile takes .st files in the amber/st directory and produces compiled
+# javascript files from them, for both debug and deployment.
+#
+# Where we find the current runnable code and where we put our js files on install
+JS	:= ../js/
+
+# The compiler script
+AMBERC	:= ../bin/amberc
+
+# Generic flags to AMBERC
+FLAGS   := -d
+
+# All corresponding js filenames for every st file available
+# In other words, if we have Kernel.st and Compiler.st, then OBJECTS will be "Kernel.js Compiler.js"
+OBJECTS := $(patsubst %.st,%.js,$(wildcard *.st))
+
+# Default make target since it is the first target in this Makefile
+all: $(OBJECTS)
+
+# Step by step
+#
+# First we copy the core javascript files from current working files
+# into this directory. These files are hand written or generated using
+# other tools (parser.js). $@ is the target name.
+boot.js init.js parser.js:
+	cp ../js/$@ .
+
+# Then we compile Kernel-*.st files depending on having boot.js, init.js and parser.js
+# $< means the first dependency - in other words Kernel-*.st
+Kernel-Objects.js: Kernel-Objects.st boot.js init.js parser.js
+	$(AMBERC) $(FLAGS) $<
+
+Kernel-Classes.js: Kernel-Classes.st boot.js init.js parser.js
+	$(AMBERC) $(FLAGS) $<
+
+Kernel-Methods.js: Kernel-Methods.st boot.js init.js parser.js
+	$(AMBERC) $(FLAGS) $<
+
+Kernel-Collections.js: Kernel-Collections.st boot.js init.js parser.js
+	$(AMBERC) $(FLAGS) $<
+
+Kernel-Exceptions.js: Kernel-Exceptions.st boot.js init.js parser.js
+	$(AMBERC) $(FLAGS) $<
+
+Kernel-Transcript.js: Kernel-Transcript.st boot.js init.js parser.js
+	$(AMBERC) $(FLAGS) $<
+
+Kernel-Announcements.js: Kernel-Announcements.st boot.js init.js parser.js
+	$(AMBERC) $(FLAGS) $<
+
+# ...and Compiler, but using the new Kernel from above.
+# We only need to depend on Kernel js files since it in turn depends on boot.js etc
+Compiler.js: Compiler.st Kernel-Objects.js Kernel-Classes.js Kernel-Methods.js Kernel-Collections.js \
+	Kernel-Exceptions.js Kernel-Transcript.js
+	$(AMBERC) $(FLAGS) $<
+
+# ...now that we have a new Kernel and Compiler we use them
+# to compile the rest of st files presuming that they only depend on Kernel, like
+# for example Canvas.js and Benchfib.js.
+%.js: %.st Compiler.js
+	$(AMBERC) $(FLAGS) $<
+
+# But for some libraries there are more dependencies to care for. Then
+# we need to use -l so that the compiler first loads that library
+# before compiling the .st file. Otherwise bindings will fail.
+#
+# NOTE: With the new dependency model in class Package etc this will change!
+#
+Canvas.js: Canvas.st
+	$(AMBERC) $(FLAGS) $<
+
+# IDE uses JQuery
+IDE.js: IDE.st Canvas.js
+	$(AMBERC) $(FLAGS) -l Canvas $<
+
+TrySmalltalk.js: TrySmalltalk.st IDE.js
+	$(AMBERC) $(FLAGS) -l Canvas,IDE $<
+
+# Some Examples use SUnit and also IDE
+Examples.js: Examples.st SUnit.js IDE.js
+	$(AMBERC) $(FLAGS) -l SUnit,Canvas,IDE $<
+
+# Tests typically also use SUnit
+Kernel-Tests.js: Kernel-Tests.st SUnit.js
+	$(AMBERC) $(FLAGS) -l SUnit $<
+
+Compiler-Tests.js: Compiler-Tests.st SUnit.js
+	$(AMBERC) $(FLAGS) -l SUnit $<
+
+# Documentation
+Documentation.js: Documentation.st Canvas.js
+	$(AMBERC) $(FLAGS) -l Canvas $<;
+
+# Installing is simply copying all js files to js directory.
+install: all
+	cp *.js $(JS)
+
+# And cleaning is trivial also
+clean:
+	rm -f *.js
+
+# These three are phony
+.PHONY: all install clean

data/public/amber/st/README.md

@@ -0,0 +1,4 @@
+#Amber Skeleton `st` directory
+
+This is where your `.st` source files are save by default as in the
+standard Amber directory structure. 

data/public/amber/st/SUnit.st

@@ -0,0 +1,172 @@
+Smalltalk current createPackage: 'SUnit' properties: #{}!
+Object subclass: #TestCase
+	instanceVariableNames: 'testSelector'
+	package: 'SUnit'!
+
+!TestCase methodsFor: 'accessing'!
+
+selector
+	^testSelector
+!
+
+setTestSelector: aSelector
+	testSelector := aSelector
+! !
+
+!TestCase methodsFor: 'private'!
+
+signalFailure: aString
+	TestFailure new
+		messageText: aString;
+		signal
+! !
+
+!TestCase methodsFor: 'running'!
+
+performTestFor: aResult
+	[[self perform: self selector]
+		on: TestFailure do: [:ex | aResult addFailure: self]]
+		on: Error do: [:ex | aResult addError: self]
+!
+
+runCaseFor: aTestResult
+	self setUp.
+	aTestResult increaseRuns.
+	self performTestFor: aTestResult.
+	self tearDown
+!
+
+setUp
+!
+
+tearDown
+! !
+
+!TestCase methodsFor: 'testing'!
+
+assert: aBoolean
+	self assert: aBoolean description: 'Assertion failed'
+!
+
+assert: aBoolean description: aString
+	aBoolean ifFalse: [self signalFailure: aString]
+!
+
+assert: expected equals: actual
+	^ self assert: (expected = actual) description: 'Expected: ', expected asString, ' but was: ', actual asString
+!
+
+deny: aBoolean
+	self assert: aBoolean not
+!
+
+should: aBlock
+	self assert: aBlock value
+!
+
+should: aBlock raise: anExceptionClass
+	self assert: ([aBlock value. false] 
+		on: anExceptionClass 
+		do: [:ex | true])
+! !
+
+!TestCase class methodsFor: 'accessing'!
+
+allTestSelectors
+	| selectors |
+	selectors := self testSelectors.
+	self shouldInheritSelectors ifTrue: [
+		selectors addAll: self superclass allTestSelectors].
+	^selectors
+!
+
+buildSuite
+	^self allTestSelectors collect: [:each | self selector: each]
+!
+
+lookupHierarchyRoot
+	^TestCase
+!
+
+selector: aSelector
+	^self new
+		setTestSelector: aSelector;
+		yourself
+!
+
+testSelectors
+	^self methodDictionary keys select: [:each | each match: '^test']
+! !
+
+!TestCase class methodsFor: 'testing'!
+
+shouldInheritSelectors
+	^self ~= self lookupHierarchyRoot
+! !
+
+Error subclass: #TestFailure
+	instanceVariableNames: ''
+	package: 'SUnit'!
+
+Object subclass: #TestResult
+	instanceVariableNames: 'timestamp runs errors failures total'
+	package: 'SUnit'!
+
+!TestResult methodsFor: 'accessing'!
+
+addError: anError
+	self errors add: anError
+!
+
+addFailure: aFailure
+	self failures add: aFailure
+!
+
+errors
+	^errors
+!
+
+failures
+	^failures
+!
+
+increaseRuns
+	runs := runs + 1
+!
+
+runs
+	^runs
+!
+
+status
+	^self errors isEmpty 
+		ifTrue: [
+			self failures isEmpty 
+				ifTrue: ['success']
+				ifFalse: ['failure']]
+		ifFalse: ['error']
+!
+
+timestamp
+	^timestamp
+!
+
+total
+	^total
+!
+
+total: aNumber
+	total := aNumber
+! !
+
+!TestResult methodsFor: 'initialization'!
+
+initialize
+	super initialize.
+	timestamp := Date now.
+	runs := 0.
+	errors := Array new.
+	failures := Array new.
+	total := 0
+! !
+