Merge pull request #1652 from moosetechnology/v7.0.0

v7.0.0

.project

@@ -0,0 +1,3 @@
+{
+	'srcDirectory' : 'src'
+}

.smalltalk.ston

@@ -1,21 +1,8 @@
 SmalltalkCISpec {
   #loading : [
     SCIMetacelloLoadSpec {
-      #configuration : 'Moose',
-      #repository : 'http://smalltalkhub.com/mc/Moose/Moose/main',
-      #load : [ 'default' ],
-      #platforms : [
-        #pharo ],
-      #version: '6.1-baseline'
+      #baseline : 'Moose',
+      #directory : 'src'
     }
-  ],
-
-  #preTesting : [
-    'scripts/saveImage.st'
-  ],
-
-  #testing : {
-
-  #categories: ['GT-EventRecorder-Tests-*', 'GT-Examples-Dummies-Tests', 'GT-GlamourDebugger', 'GT-PetitParserDebugger', 'GT-Spotter-EventRecorder-Tests', 'Famix-Tests-Core', 'Moose-TestResources-KGB-P1FullReferencer', 'Moose-TestResources-KGB-P14FullReferee', 'Moose-TestResources-KGB-P5FullReferee', 'PetitSQLite-Tests-Parser', 'PetitSmalltalk-Tests', 'Moose-TestResources-LAN', 'Moose-Tests-RoassalPaintings', 'Moose-Tests-RoassalPaintings-*', 'SmallDude-Tests-Core', 'Moose-Tests-SmalltalkImporter-KGB', 'Moose-TestResources-KGB-P7ReferencerReferee', 'GT-Tests-Debugger', 'GT-Tests-Playground', 'GT-Tests-Spotter', 'GT-Tests-Spotter-*', 'SmallDude-Tests-Text', 'Moose-Query-Test', 'Moose-TestResources-KGB-P13FullReferencer', 'Moose-TestResources-KGB-P10InteractedReferee', 'Moose-Tests-Finder', 'Moose-TestResources-KGB-P2InteractedReferencerReferee', 'Moose-TestResources-Reference-PackageOne', 'Famix-Tests-Extensions', 'Moose-TestResources-KGB-P11FullReferee', 'PetitMSE', 'Moose-TestResources-PackageBlueprint-P1', 'Moose-TestResources-KGB-P8FullReferencer', 'Moose-TestResources-PackageBlueprint-P2', 'Moose-Tests-MonticelloImporter', 'Moose-TestResources-Reference-Core', 'Moose-Tests-Core', 'Moose-TestResources-PackageBlueprint-P3', 'GT-ToolkitPharo6to5Backports', 'Metanool-Tests-Core', 'Moose-TestResources-PackageBlueprint-P4', 'PetitJava-Tests', 'PetitTests-Tests', 'XML-Tests-Parser', 'XML-Tests-Parser-DOM', 'XML-Tests-Parser-DOM-Factories', 'XML-Tests-Parser-DTD', 'XML-Tests-Parser-ElementHandlers', 'XML-Tests-Parser-Exceptions', 'XML-Tests-Parser-Files', 'XML-Tests-Parser-Namespaces', 'XML-Tests-Parser-Streams', 'XML-Tests-Parser-URI',  'XML-Tests-Parser-Utils', 'XML-Tests-Parser-Validation-DFA', 'Famix-Tests-Java', 'Moose-Tests-SmalltalkImporter-*', 'Arki-Tests-Reporter', 'Moose-TestResources-KGB-PExtensions', 'Famix-Tests-C', 'Moose-TestResources-KGB-P6InteractedReferee', 'Dynamix-Tests-Core', 'Moose-TestResources-KGB-P12FullReferencer', 'XPath-Tests', 'Moose-Tests-DistributionMap', 'Moose-TestResources-KGB-P9FullReferencer', 'Moose-TestResources-KGB-P4FullInteracted', 'Moose-TestResources-Reference-PackageTwo', 'Moose-TestResources-KGB-P3InteractedReferencer']
-  }
+  ]
 }

.travis.yml

@@ -1,58 +1,16 @@
 language: smalltalk
 sudo: false
 
-dist: trusty
-
 os:
   - linux
 
-matrix:
-  include:
-  - smalltalk: Pharo-7.0
-    env: BITS=32
-  - smalltalk: Pharo64-7.0
-    env: BITS=64
-
-branches:
-  only:
-    - master
-
-before_install:
-  - export SSH_FILE="$(mktemp -u $HOME/.ssh/$GITHUB_SSH_FILE)"
-  - echo $SSH_FILE
-  - openssl aes-256-cbc -K $encrypted_dc3d6cd55a6d_key -iv $encrypted_dc3d6cd55a6d_iv -in .travis/github_deploy_key.enc -out $SSH_FILE -d
-  - chmod 600 $SSH_FILE
-  - eval "$(ssh-agent -s)"
-  - cp $SSH_FILE $HOME/.ssh/id_rsa
-  - ssh-add $HOME/.ssh/id_rsa
-  - ssh-add $SSH_FILE
+smalltalk:
+  - Pharo64-7.0
 
-after_success:
-  - |
-    echo $SMALLTALK_CI_BUILD
-    ls -ltr $SMALLTALK_CI_BUILD
-    export SAVED_IMAGE="${SMALLTALK_CI_BUILD}/beforeTests.image"
-    export SAVED_CHANGES="${SMALLTALK_CI_BUILD}/beforeTests.changes"
-    export PROJECT_NAME="moose-${BITS}-$(date +'%Y%m%d%H%M%S')-$(git log --format=%h -1)"
+smalltalk_config:
+  - .smalltalk.ston
+  - .withPharoTests.ston
 
-    # customize the name of the build folder
-    export ARTIFACT_DIR="${PROJECT_NAME}"
-    mkdir "$ARTIFACT_DIR"
-    cp $SMALLTALK_CI_IMAGE "${ARTIFACT_DIR}/${PROJECT_NAME}.image"
-    cp $SMALLTALK_CI_CHANGES "${ARTIFACT_DIR}/${PROJECT_NAME}.changes"
-    export build_zip="${ARTIFACT_DIR}.zip"
-    zip -qr "$build_zip" "$ARTIFACT_DIR"
-
-    # simple name build folder
-    export SIMPLE_PROJECT_NAME="moose${BITS}"
-    export SIMPLE_ARTIFACT_DIR="${SIMPLE_PROJECT_NAME}"
-    mkdir "$SIMPLE_ARTIFACT_DIR"
-    cp "$SMALLTALK_CI_IMAGE" "${SIMPLE_ARTIFACT_DIR}/${SIMPLE_PROJECT_NAME}.image"
-    cp "$SMALLTALK_CI_CHANGES" "${SIMPLE_ARTIFACT_DIR}/${SIMPLE_PROJECT_NAME}.changes"
-    export simple_build_zip="${SIMPLE_ARTIFACT_DIR}.zip"
-    zip -qr "$simple_build_zip" "$SIMPLE_ARTIFACT_DIR"
-
-
-    #upload to sftp server
-    scp -o StrictHostKeyChecking=no -o UserKnownHostsFile=/dev/null $build_zip [email protected]:/var/www/html/moose/
-    scp -o StrictHostKeyChecking=no -o UserKnownHostsFile=/dev/null $simple_build_zip [email protected]:/var/www/html/moose/
+matrix:
+  allow_failures:
+    - smalltalk_config: .withPharoTests.ston

.withPharoTests.ston

@@ -0,0 +1,16 @@
+SmalltalkCISpec {
+  #loading : [
+    SCIMetacelloLoadSpec {
+      #baseline : 'Moose',
+      #directory : 'src'
+    }
+  ],
+  #testing : {
+    #exclude : {
+      #classes : [ #GTUnprintableObjectTest, #RTLabelTest, #RTExampleTestCase, #OmDeferrerTest, #SystemDependenciesTest, #STONWriterTests, #STONReaderTests, #FLContextSerializationTest, #STONLargeWriteReadTests, #DateAndTimeTest, #STONWriteAsciiOnlyReadTests, #ProperMethodCategorizationTest, #FAMIXExtensionMetricTest, #STONWritePrettyPrinterReadTests, #ProperlyImplementedClassesTest, #STONWriteReadCommentsTests, #STONWriteReadTests, #TraitFileOutTest, #ReleaseTest, #DiskFileSystemTest, #TestValueWithinFix, #RPackageWithDoTest, #OrderedCollectionTest, #LocalRecursionStopperTest ]
+    },
+    #allTestCases : true,
+    #hidePassingTests : true,
+    #serializeError: false
+  }
+}

README.md

@@ -1,20 +1,36 @@
-[![Build Status](https://travis-ci.org/moosetechnology/Moose.svg?branch=master)](https://travis-ci.org/moosetechnology/Moose)
-[![Build status](https://ci.appveyor.com/api/projects/status/nbc9u2020p0m8jp7?svg=true)](https://ci.appveyor.com/project/SergeStinckwich/moose)
+[![Build Status](https://travis-ci.org/moosetechnology/Moose.svg?branch=development)](https://travis-ci.org/moosetechnology/Moose)
 
 Moose is an extensive platform for software and data analysis.
 
-Moose is an open source software. It was started at the Software Composition Group from University of Bern in 1996, and is currently contributed to and used by multiple partners. It offers multiple services ranging from importing and parsing data, to modeling, to measuring, querying, mining, and to building interactive and visual analysis tools.
+Moose is an open source software. It was started at the Software Composition Group from the University of Bern in 1996 and is currently contributed to and used by multiple partners. It offers multiple services ranging from importing and parsing data, to modeling, to measuring, querying, mining, and to building interactive and visual analysis tools.
 
-### Source Code
-The code is hosted [on SmalltalkHub](http://smalltalkhub.com/#!/~Moose/Moose)
+### How to load
+
+**Moose v7**
+
+```smalltalk
+Metacello new
+  baseline: 'Moose';
+  repository: 'github://moosetechnology/Moose:v7.x.x/src';
+  load.
+```
+
+**Moose 8 (development)**
+
+```smalltalk
+Metacello new
+  baseline: 'Moose';
+  repository: 'github://moosetechnology/Moose:development/src';
+  load.
+```
 
 ### Learn more
 Check out [the official webpage of the Moose project](http://moosetechnology.org). 
 
 ### Famix generators
-- [Java](https://github.com/girba/jdt2famix) 
+- [Java](https://github.com/feenkcom/jdt2famix) 
+- [C#](https://github.com/feenkcom/roslyn2famix) 
 - [.NET](http://www.sharpmetrics.net/index.php/famix-generator)
 - [SAP](https://github.com/RainerWinkler/Moose-FAMIX-SAP-Extractor)
 - [Fortran](https://github.com/NicolasAnquetil/VerveineF.git)
 - [C/C++](https://github.com/Synectique/VerveineC-Cpp.git)
-

src-archive/ACD-Glamour-Interface/ACDAnnouncerBrowser.class.st

@@ -0,0 +1,130 @@
+Class {
+	#name : #ACDAnnouncerBrowser,
+	#superclass : #GLMCompositePresentation,
+	#instVars : [
+		'debugger'
+	],
+	#category : #'ACD-Glamour-Interface'
+}
+
+{ #category : #building }
+ACDAnnouncerBrowser >> announcementIn: aComposite [ 
+
+	"Not such a nice way to reuse the code"
+	GTObjectVariablesBrowser new variablesIn: aComposite.
+	aComposite presentations last 
+		title: 'Announcement';
+		display: [ :aSession | aSession announcement gtInspectorVariableValuePairs ];
+		selectionAct: [ :aPresentation |  aPresentation selection explore] on: $i entitled: 'Explore'
+]
+
+{ #category : #building }
+ACDAnnouncerBrowser >> announcerIn: aComposite [ 
+
+	"Not such a nice way to reuse the code"
+	GTObjectVariablesBrowser new variablesIn: aComposite.
+	aComposite presentations last 
+		title: 'Announcer';
+		display: [ :aSession | aSession announcer gtInspectorVariableValuePairs ];
+		selectionAct: [ :aPresentation |  aPresentation selection explore] on: $i entitled: 'Explore' 
+
+
+]
+
+{ #category : #accessing }
+ACDAnnouncerBrowser >> browser [ 
+
+	^ self presentations first
+]
+
+{ #category : #building }
+ACDAnnouncerBrowser >> componentsIn: aComposite [ 
+
+	self 
+		subscriptionsIn: aComposite;
+		announcementIn: aComposite;
+		announcerIn: aComposite
+]
+
+{ #category : #building }
+ACDAnnouncerBrowser >> compose [
+
+	self tabulator with: [:browser | 
+		browser row: #components.
+		browser transmit to: #components; andShow: [:aComposite | 
+			self componentsIn: aComposite ].
+
+		browser transmit from: #components port: #strongSelection; toOutsidePort: #selection ]
+]
+
+{ #category : #accessing }
+ACDAnnouncerBrowser >> debugger [
+
+	^ debugger
+]
+
+{ #category : #accessing }
+ACDAnnouncerBrowser >> debugger: anObject [
+
+	debugger := anObject 
+]
+
+{ #category : #'building actions' }
+ACDAnnouncerBrowser >> installSubscriptionsActionsIn: aPresentation [ 
+
+	self debugger installActionsForRootPragmas: { #ACDSubscriptionDebuggingAction } in: aPresentation
+]
+
+{ #category : #private }
+ACDAnnouncerBrowser >> printAnnouncementTypeFor: anAnnouncementType [
+
+	^ anAnnouncementType isCollection 
+		ifTrue: [
+			String streamContents: [:s | anAnnouncementType printElementsOn: s]] 
+		ifFalse: [
+			anAnnouncementType printString]
+]
+
+{ #category : #accessing }
+ACDAnnouncerBrowser >> selectedSubscription [
+
+	^ ((self browser paneNamed: #components) port: #selection)  value
+]
+
+{ #category : #accessing }
+ACDAnnouncerBrowser >> session [
+
+	^ self debugger session 
+]
+
+{ #category : #building }
+ACDAnnouncerBrowser >> subscriptionsIn: aComposite [ 
+
+	aComposite table
+		title: 'Subscriptions';
+		showOnly: 100;
+		display: [ :aSession | aSession activeSubscriptions ];
+		column: 'Announcement Type' evaluated: [ :aSubscription | 
+			Text 
+				string: (self printAnnouncementTypeFor: aSubscription announcementClass )
+				attributes: (self textAttributesForSubscription: aSubscription) ];
+		column: 'Action' evaluated: [ :aSubscription | 
+			Text 
+				string: (aSubscription action printString )
+				attributes: (self textAttributesForSubscription: aSubscription) ];
+		selectionAct: [:each |  each selection explore] on: $i entitled: 'Explore';
+		with: [ :presentation |
+			self installSubscriptionsActionsIn: presentation ]
+]
+
+{ #category : #private }
+ACDAnnouncerBrowser >> textAttributesForSubscription: aSubscription [ 
+
+	(self session executingSubscription == aSubscription) 
+		ifTrue: [ ^ {TextEmphasis bold} ].
+
+	(self session hasSubscriptionExecuted: aSubscription )
+		ifTrue: [ ^ {TextColor color: Color lightGray. TextEmphasis italic} ].
+
+	^ {TextColor black}
+]

src-archive/ACD-Glamour-Interface/ACDStackSetReceiver.class.st

@@ -0,0 +1,37 @@
+Class {
+	#name : #ACDStackSetReceiver,
+	#superclass : #DebugAction,
+	#category : #'ACD-Glamour-Interface'
+}
+
+{ #category : #testing }
+ACDStackSetReceiver >> appliesToDebugger: aDebugger [
+	"Only a context above the sender context can be selected as the receiver"
+
+	^ (aDebugger selectedStackContext findContextSuchThat: [ :aContext |
+		(aContext == aDebugger session senderContext) ]) isNil
+]
+
+{ #category : #accessing }
+ACDStackSetReceiver >> defaultLabel [
+
+	^ 'Set as receiver'
+]
+
+{ #category : #accessing }
+ACDStackSetReceiver >> defaultOrder [
+
+	^ 200
+]
+
+{ #category : #actions }
+ACDStackSetReceiver >> executeAction [
+
+	self session updateReceiverFrom: self debugger selectedStackContext
+]
+
+{ #category : #accessing }
+ACDStackSetReceiver >> id [
+
+	^ #gtSetAsReceiverDebuggerAction
+]

src-archive/ACD-Glamour-Interface/ACDStackSetSender.class.st

@@ -0,0 +1,42 @@
+Class {
+	#name : #ACDStackSetSender,
+	#superclass : #DebugAction,
+	#category : #'ACD-Glamour-Interface'
+}
+
+{ #category : #'as yet unclassified' }
+ACDStackSetSender class >> gtACDSenderActionFor: aDebugger [
+	<gtContextACDStackDebuggingAction>
+]
+
+{ #category : #testing }
+ACDStackSetSender >> appliesToDebugger: aDebugger [
+	"Only a context bellow the receiver context can be selected as the sender"
+
+	^ (aDebugger selectedStackContext findContextSuchThat: [ :aSenderContext |
+		(aSenderContext == aDebugger session receiverContext) ]) isNil
+]
+
+{ #category : #accessing }
+ACDStackSetSender >> defaultLabel [
+
+	^ 'Set as sender'
+]
+
+{ #category : #accessing }
+ACDStackSetSender >> defaultOrder [
+
+	^ 205
+]
+
+{ #category : #actions }
+ACDStackSetSender >> executeAction [
+
+	self session updateSenderFrom: self debugger selectedStackContext
+]
+
+{ #category : #accessing }
+ACDStackSetSender >> id [
+
+	^ #gtSetAsSenderDebuggerAction
+]