diff --git a/README.md b/README.md index 44319a7..98a5e50 100644 --- a/README.md +++ b/README.md @@ -7,7 +7,7 @@ To install the stable version, you can simply use the **Catalog browser** and se or evaluate the following code snippet: ~~~ Metacello new - repository: 'github://JulienDelplanque/Mirage/repository'; + repository: 'github://JulienDelplanque/Mirage/src'; baseline: 'Mirage'; load ~~~ @@ -16,11 +16,23 @@ Metacello new Simply evaluate the following code snippet: ~~~ Metacello new - repository: 'github://JulienDelplanque/Mirage:dev/repository'; + repository: 'github://JulienDelplanque/Mirage:dev/src'; baseline: 'Mirage'; load ~~~ +## Version management + +This project use semantic versionning to define the releases. This mean that each stable release of the project will get associate a version number of the form `vX.Y.Z`. + +- **X** define the major version number +- **Y** define the minor version number +- **Z** define the patch version number + +When a release contains only bug fixes, the patch number increase. When the release contains new features backward compatibles, the minor version increase. When the release contains breaking changes, the major version increase. + +Thus, it should be safe to depend on a fixed major version and moving minor version of this project. + # Setup Go to the 'Settings browser' and check the 'Activate' button in 'Mirage' subgroup of 'Tools' group. Then, you can choose the view you want to use by checking the buttons corresponding. diff --git a/repository/.filetree b/repository/.filetree deleted file mode 100644 index c6704e5..0000000 --- a/repository/.filetree +++ /dev/null @@ -1,2 +0,0 @@ -{"packageExtension" : ".package", -"propertyFileExtension" : ".json" } \ No newline at end of file diff --git a/repository/BaselineOfMirage.package/.filetree b/repository/BaselineOfMirage.package/.filetree deleted file mode 100644 index 8998102..0000000 --- a/repository/BaselineOfMirage.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/BaselineOfMirage.package/BaselineOfMirage.class/README.md b/repository/BaselineOfMirage.package/BaselineOfMirage.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/repository/BaselineOfMirage.package/BaselineOfMirage.class/methodProperties.json b/repository/BaselineOfMirage.package/BaselineOfMirage.class/methodProperties.json deleted file mode 100644 index 957f85c..0000000 --- a/repository/BaselineOfMirage.package/BaselineOfMirage.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "baseline:" : "JulienDelplanque 7/17/2016 13:10" } } diff --git a/repository/BaselineOfMirage.package/BaselineOfMirage.class/properties.json b/repository/BaselineOfMirage.package/BaselineOfMirage.class/properties.json deleted file mode 100644 index 1002be7..0000000 --- a/repository/BaselineOfMirage.package/BaselineOfMirage.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "BaselineOfMirage", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "BaselineOfMirage", - "pools" : [ - ], - "super" : "BaselineOf", - "type" : "normal" } diff --git a/repository/BaselineOfMirage.package/monticello.meta/categories.st b/repository/BaselineOfMirage.package/monticello.meta/categories.st deleted file mode 100644 index 898cfd7..0000000 --- a/repository/BaselineOfMirage.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #BaselineOfMirage! diff --git a/repository/BaselineOfMirage.package/monticello.meta/initializers.st b/repository/BaselineOfMirage.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29..0000000 diff --git a/repository/BaselineOfMirage.package/monticello.meta/package b/repository/BaselineOfMirage.package/monticello.meta/package deleted file mode 100644 index 8882227..0000000 --- a/repository/BaselineOfMirage.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'BaselineOfMirage') \ No newline at end of file diff --git a/repository/BaselineOfMirage.package/monticello.meta/version b/repository/BaselineOfMirage.package/monticello.meta/version deleted file mode 100644 index a942a3f..0000000 --- a/repository/BaselineOfMirage.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'BaselineOfMirage-JulienDelplanque.1' message 'Renamed this project as ''Mirage''.' id 'c2dd3404-4cf5-4692-9c15-90b8fe0ea9c3' date '17 July 2016' time '1:16:29.072012 pm' author 'JulienDelplanque' ancestors () stepChildren ()) \ No newline at end of file diff --git a/repository/BaselineOfMirage.package/properties.json b/repository/BaselineOfMirage.package/properties.json deleted file mode 100644 index f037444..0000000 --- a/repository/BaselineOfMirage.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/ConfigurationOfMirage.package/.filetree b/repository/ConfigurationOfMirage.package/.filetree deleted file mode 100644 index 8998102..0000000 --- a/repository/ConfigurationOfMirage.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/README.md b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/DevelopmentSupport.st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/DevelopmentSupport.st deleted file mode 100644 index fc286b2..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/DevelopmentSupport.st +++ /dev/null @@ -1,5 +0,0 @@ -development support -DevelopmentSupport - -"See the methods in the 'development support' category on the class-side of MetacelloBaseConfiguration. Decide what development support methods you would like to use and copy them the the class-side of your configuration." - \ No newline at end of file diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/baseConfigurationClassIfAbsent..st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/baseConfigurationClassIfAbsent..st deleted file mode 100644 index 44418c9..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/baseConfigurationClassIfAbsent..st +++ /dev/null @@ -1,8 +0,0 @@ -private -baseConfigurationClassIfAbsent: aBlock - - ^Smalltalk - at: #'ConfigurationOf' - ifAbsent: [ - self ensureMetacelloBaseConfiguration. - Smalltalk at: #'ConfigurationOf' ifAbsent: aBlock ]. \ No newline at end of file diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/catalogContactInfo.st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/catalogContactInfo.st deleted file mode 100644 index 042fbf1..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/catalogContactInfo.st +++ /dev/null @@ -1,3 +0,0 @@ -catalog -catalogContactInfo - ^ 'julien.delplanque@live.be' \ No newline at end of file diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/catalogDescription.st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/catalogDescription.st deleted file mode 100644 index f7f5ce2..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/catalogDescription.st +++ /dev/null @@ -1,7 +0,0 @@ -catalog -catalogDescription - ^ 'A windows switcher with a previewer for Pharo! - -Enable/disable it by toggling the checkbox in Tools>Mirage>Activate in the Settings Browser. - -Check the github repository for documentation [https://github.com/juliendelplanque/Mirage].' \ No newline at end of file diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/catalogKeywords.st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/catalogKeywords.st deleted file mode 100644 index 8443271..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/catalogKeywords.st +++ /dev/null @@ -1,3 +0,0 @@ -catalog -catalogKeywords - ^ #('mirage' 'windows management' 'windows previewer' 'windows switcher' 'morphic' 'gui' 'ergonomy') \ No newline at end of file diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/ensureMetacello.st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/ensureMetacello.st deleted file mode 100644 index 869b381..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/ensureMetacello.st +++ /dev/null @@ -1,4 +0,0 @@ -private -ensureMetacello - - (self baseConfigurationClassIfAbsent: []) ensureMetacello \ No newline at end of file diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/ensureMetacelloBaseConfiguration.st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/ensureMetacelloBaseConfiguration.st deleted file mode 100644 index 1bd935d..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/ensureMetacelloBaseConfiguration.st +++ /dev/null @@ -1,16 +0,0 @@ -private -ensureMetacelloBaseConfiguration - Smalltalk - at: #'ConfigurationOf' - ifAbsent: [ - | repository version | - repository := MCHttpRepository - location: 'http://smalltalkhub.com/mc/dkh/metacello/main' - user: '' - password: ''. - repository - versionReaderForFileNamed: 'Metacello-Base-dkh.107' - do: [ :reader | - version := reader version. - version load. - version workingCopy repositoryGroup addRepository: repository ] ] \ No newline at end of file diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/isMetacelloConfig.st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/isMetacelloConfig.st deleted file mode 100644 index 98d81c7..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/isMetacelloConfig.st +++ /dev/null @@ -1,5 +0,0 @@ -metacello tool support -isMetacelloConfig - "Answer true and the Metacello tools will operate on you" - - ^true \ No newline at end of file diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/load.st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/load.st deleted file mode 100644 index cfb70d4..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/load.st +++ /dev/null @@ -1,8 +0,0 @@ -loading -load - "Load the #stable version defined for this platform. The #stable version is the version that is recommended to be used on this platform." - - "self load" - - - ^(self project version: #stable) load \ No newline at end of file diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/loadDevelopment.st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/loadDevelopment.st deleted file mode 100644 index 2ccd72a..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/loadDevelopment.st +++ /dev/null @@ -1,8 +0,0 @@ -loading -loadDevelopment - "Load the #development version defined for this platform. The #development version will change over time and is not expected to be stable." - - "self loadDevelopment" - - - ^(self project version: #development) load \ No newline at end of file diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/project.st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/project.st deleted file mode 100644 index 925935b..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/project.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -project - - ^self new project \ No newline at end of file diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/validate.st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/validate.st deleted file mode 100644 index 589fc0b..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/class/validate.st +++ /dev/null @@ -1,12 +0,0 @@ -development support -validate - "Check the configuration for Errors, Critical Warnings, and Warnings (see class comment for MetacelloMCVersionValidator for more information). - Errors identify specification issues that will result in unexpected behaviour when you load the configuration. - Critical Warnings identify specification issues that may result in unexpected behavior when you load the configuration. - Warnings identify specification issues that are technically correct, but are worth take a look at." - - "self validate" - - - self ensureMetacello. - ^ ((Smalltalk at: #MetacelloToolBox) validateConfiguration: self debug: #() recurse: false) explore \ No newline at end of file diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/baselineDev..st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/baselineDev..st deleted file mode 100644 index 0b675ea..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/baselineDev..st +++ /dev/null @@ -1,8 +0,0 @@ -baselines -baselineDev: spec - - - spec for: #'common' do: [ - spec blessing: #'baseline'. - spec baseline: 'Mirage' with: [ - spec repository: 'github://juliendelplanque/Mirage:dev/repository' ] ]. diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/baselineMaster..st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/baselineMaster..st deleted file mode 100644 index 48ebeb7..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/baselineMaster..st +++ /dev/null @@ -1,8 +0,0 @@ -baselines -baselineMaster: spec - - - spec for: #'common' do: [ - spec blessing: #'baseline'. - spec baseline: 'Mirage' with: [ - spec repository: 'github://juliendelplanque/Mirage/repository' ] ]. diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/customProjectAttributes.st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/customProjectAttributes.st deleted file mode 100644 index a160553..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/customProjectAttributes.st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -customProjectAttributes - "Edit to return a collection of any custom attributes e.g. for conditional loading: Array with: #'Condition1' with: #'Condition2. - For more information see: http://code.google.com/p/metacello/wiki/CustomProjectAttrributes " - - ^ #() \ No newline at end of file diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/dev..st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/dev..st deleted file mode 100644 index dfc251b..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/dev..st +++ /dev/null @@ -1,5 +0,0 @@ -symbolic versions -dev: spec - - - spec for: #'common' version: 'dev-baseline'. diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/project.st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/project.st deleted file mode 100644 index 6ee299d..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/project.st +++ /dev/null @@ -1,10 +0,0 @@ -accessing -project - ^ project - ifNil: [ - "Bootstrap Metacello if it is not already loaded" - self class ensureMetacello. - project := MetacelloMCProject new projectAttributes: self customProjectAttributes. "Create the Metacello project" - (Smalltalk at: #'MetacelloVersionConstructor') on: self project: project. "Construct the project" - project loadType: #'linear'. "change to #atomic if desired" - project ] \ No newline at end of file diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/stable..st b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/stable..st deleted file mode 100644 index 1234002..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/instance/stable..st +++ /dev/null @@ -1,5 +0,0 @@ -symbolic versions -stable: spec - - - spec for: #'common' version: 'master-baseline'. diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/methodProperties.json b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/methodProperties.json deleted file mode 100644 index 2a9ee42..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/methodProperties.json +++ /dev/null @@ -1,21 +0,0 @@ -{ - "class" : { - "DevelopmentSupport" : "JulienDelplanque 7/2/2016 13:30", - "baseConfigurationClassIfAbsent:" : "JulienDelplanque 7/2/2016 13:32", - "catalogContactInfo" : "JulienDelplanque 7/2/2016 13:27", - "catalogDescription" : "JulienDelplanque 10/24/2016 17:40", - "catalogKeywords" : "JulienDelplanque 7/17/2016 13:19", - "ensureMetacello" : "JulienDelplanque 7/2/2016 13:32", - "ensureMetacelloBaseConfiguration" : "JulienDelplanque 7/2/2016 13:32", - "isMetacelloConfig" : "JulienDelplanque 7/2/2016 13:32", - "load" : "JulienDelplanque 7/2/2016 13:31", - "loadDevelopment" : "JulienDelplanque 7/2/2016 13:31", - "project" : "JulienDelplanque 7/2/2016 13:27", - "validate" : "JulienDelplanque 7/2/2016 13:31" }, - "instance" : { - "baselineDev:" : "JulienDelplanque 7/17/2016 13:19", - "baselineMaster:" : "JulienDelplanque 7/17/2016 13:19", - "customProjectAttributes" : "JulienDelplanque 7/2/2016 13:24", - "dev:" : "JulienDelplanque 7/2/2016 13:26", - "project" : "JulienDelplanque 7/2/2016 13:44", - "stable:" : "JulienDelplanque 7/2/2016 13:26" } } diff --git a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/properties.json b/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/properties.json deleted file mode 100644 index c1789fa..0000000 --- a/repository/ConfigurationOfMirage.package/ConfigurationOfMirage.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "ConfigurationOfMirage", - "classinstvars" : [ - ], - "classvars" : [ - "LastVersionLoad" ], - "commentStamp" : "", - "instvars" : [ - "project" ], - "name" : "ConfigurationOfMirage", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/repository/ConfigurationOfMirage.package/monticello.meta/categories.st b/repository/ConfigurationOfMirage.package/monticello.meta/categories.st deleted file mode 100644 index 494a304..0000000 --- a/repository/ConfigurationOfMirage.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #ConfigurationOfMirage! diff --git a/repository/ConfigurationOfMirage.package/monticello.meta/initializers.st b/repository/ConfigurationOfMirage.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29..0000000 diff --git a/repository/ConfigurationOfMirage.package/monticello.meta/package b/repository/ConfigurationOfMirage.package/monticello.meta/package deleted file mode 100644 index aba87b7..0000000 --- a/repository/ConfigurationOfMirage.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'ConfigurationOfMirage') \ No newline at end of file diff --git a/repository/ConfigurationOfMirage.package/monticello.meta/version b/repository/ConfigurationOfMirage.package/monticello.meta/version deleted file mode 100644 index 71abee1..0000000 --- a/repository/ConfigurationOfMirage.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'ConfigurationOfMirage-JulienDelplanque.2' message 'Updated catalog description.' id '75e72ccc-988d-490f-ac2b-cf4d852709a1' date '24 October 2016' time '5:41:07.473327 pm' author 'JulienDelplanque' ancestors ((name 'ConfigurationOfMirage-JulienDelplanque.1' message 'Renamed this project as ''Mirage''.' id '2ff13ed9-f649-4409-b05f-fdbba521d2ba' date '17 July 2016' time '1:30:21.960438 pm' author 'JulienDelplanque' ancestors () stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/ConfigurationOfMirage.package/properties.json b/repository/ConfigurationOfMirage.package/properties.json deleted file mode 100644 index f037444..0000000 --- a/repository/ConfigurationOfMirage.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Mirage-Carousel.package/.filetree b/repository/Mirage-Carousel.package/.filetree deleted file mode 100644 index 8998102..0000000 --- a/repository/Mirage-Carousel.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Mirage-Carousel.package/MICarousel.class/README.md b/repository/Mirage-Carousel.package/MICarousel.class/README.md deleted file mode 100644 index e38bf9d..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am the preview of the windows available in world. \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/class/activate..st b/repository/Mirage-Carousel.package/MICarousel.class/class/activate..st deleted file mode 100644 index 8aaf706..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/class/activate..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -activate: aBoolean - isActivated := aBoolean \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/class/initialize.st b/repository/Mirage-Carousel.package/MICarousel.class/class/initialize.st deleted file mode 100644 index 74fefc4..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialize-release -initialize - super initialize. - self activate: false \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/class/isActivated.st b/repository/Mirage-Carousel.package/MICarousel.class/class/isActivated.st deleted file mode 100644 index bb713d5..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/class/isActivated.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -isActivated - ^ isActivated \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/class/wpSettingOn..st b/repository/Mirage-Carousel.package/MICarousel.class/class/wpSettingOn..st deleted file mode 100644 index f17abd8..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/class/wpSettingOn..st +++ /dev/null @@ -1,6 +0,0 @@ -settings -wpSettingOn: aBuilder - - (self buildSettingNamed: #wpCarouselSetting with: aBuilder) - label: 'Carousel'; - description: 'Activate the Carousel view' translated \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/availableWidth.st b/repository/Mirage-Carousel.package/MICarousel.class/instance/availableWidth.st deleted file mode 100644 index b56f300..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/availableWidth.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -availableWidth - ^ World width \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/beCenteredInWorld.st b/repository/Mirage-Carousel.package/MICarousel.class/instance/beCenteredInWorld.st deleted file mode 100644 index ab5f853..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/beCenteredInWorld.st +++ /dev/null @@ -1,3 +0,0 @@ -opening -beCenteredInWorld - self center: World center \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/handleCloseRequest..st b/repository/Mirage-Carousel.package/MICarousel.class/instance/handleCloseRequest..st deleted file mode 100644 index c6e9f0c..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/handleCloseRequest..st +++ /dev/null @@ -1,4 +0,0 @@ -announcement handling -handleCloseRequest: aWPCloseRequest - aWPCloseRequest model announcer unsubscribe: self. - self announcer unsubscribe: self \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/handleOpenRequest..st b/repository/Mirage-Carousel.package/MICarousel.class/instance/handleOpenRequest..st deleted file mode 100644 index ea5e77c..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/handleOpenRequest..st +++ /dev/null @@ -1,6 +0,0 @@ -announcement handling -handleOpenRequest: aWPOpenRequest - self - refreshThumbnailsOn: aWPOpenRequest; - initializeTitleMorph; - openCenteredInBackground: aWPOpenRequest background \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/handleWindowSelected..st b/repository/Mirage-Carousel.package/MICarousel.class/instance/handleWindowSelected..st deleted file mode 100644 index e457a94..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/handleWindowSelected..st +++ /dev/null @@ -1,9 +0,0 @@ -announcement handling -handleWindowSelected: aWPThumbnailSelected - - self - refreshThumbnailsOn: aWPThumbnailSelected; - refreshTitleOn: aWPThumbnailSelected. - - aWPThumbnailSelected thumbnail - borderColor: self thumbnailsSelectedBorderColor. \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/initialize.st b/repository/Mirage-Carousel.package/MICarousel.class/instance/initialize.st deleted file mode 100644 index 635d6ac..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/initialize.st +++ /dev/null @@ -1,10 +0,0 @@ -initialization -initialize - super initialize. - self - color: Smalltalk ui theme mirageCarouselColor; - thumbnailsBorderColor: Smalltalk ui theme mirageThumbnailsBorderColor; - thumbnailsSelectedBorderColor: Smalltalk ui theme mirageThumbnailsSelectedBorderColor; - thumbnailsBorderWidth: Smalltalk ui theme mirageThumbnailsBorderWidth; - spaceBetweenThumbnails: Smalltalk ui theme mirageSpaceBetweenThumbnails; - mirageLevel: 100 \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/initializeTitleMorph.st b/repository/Mirage-Carousel.package/MICarousel.class/instance/initializeTitleMorph.st deleted file mode 100644 index bb9fa82..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/initializeTitleMorph.st +++ /dev/null @@ -1,10 +0,0 @@ -initialization -initializeTitleMorph - titleMorph := MITitleMorph new. - titleMorph - color: Color transparent; - titleColor: self thumbnailsSelectedBorderColor; - extent: self extent x @ titleMorph extent y; - minimalHeight; - position: titleMorph position x @ (titleMorph position y + self extent y). - self addMorph: titleMorph. \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/isWindowsPreviewer.st b/repository/Mirage-Carousel.package/MICarousel.class/instance/isWindowsPreviewer.st deleted file mode 100644 index 14e2491..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/isWindowsPreviewer.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isWindowsPreviewer - ^ true \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/openCenteredInBackground..st b/repository/Mirage-Carousel.package/MICarousel.class/instance/openCenteredInBackground..st deleted file mode 100644 index de422e4..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/openCenteredInBackground..st +++ /dev/null @@ -1,4 +0,0 @@ -opening -openCenteredInBackground: aWPBackgroundMorph - aWPBackgroundMorph addMorph: self. - self beCenteredInWorld \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/positionThumbnailsAfterIndex.on..st b/repository/Mirage-Carousel.package/MICarousel.class/instance/positionThumbnailsAfterIndex.on..st deleted file mode 100644 index 8b446bf..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/positionThumbnailsAfterIndex.on..st +++ /dev/null @@ -1,11 +0,0 @@ -thumbnails -positionThumbnailsAfterIndex: index on: aWPModelAnnouncement - | selected position | - selected := aWPModelAnnouncement thumbnail. - position := selected position + selected width + self spaceBetweenThumbnails. - - aWPModelAnnouncement thumbnails from: index + 1 to: aWPModelAnnouncement thumbnails size do: [ :thumbnail | - thumbnail - position: position; - center: thumbnail center x @ self center y. - position := (position x + thumbnail width + self spaceBetweenThumbnails) @ position y ] \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/positionThumbnailsBeforeIndex.on..st b/repository/Mirage-Carousel.package/MICarousel.class/instance/positionThumbnailsBeforeIndex.on..st deleted file mode 100644 index ec5f2eb..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/positionThumbnailsBeforeIndex.on..st +++ /dev/null @@ -1,11 +0,0 @@ -thumbnails -positionThumbnailsBeforeIndex: index on: aWPModelAnnouncement - | selected position | - selected := aWPModelAnnouncement thumbnail. - position := selected position. - - (aWPModelAnnouncement thumbnails copyFrom: 1 to: index - 1) reversed do: [ :thumbnail | - position := (position x - thumbnail width - self spaceBetweenThumbnails) @ position y. - thumbnail - position: position; - center: thumbnail center x @ self center y ]. \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/positionThumbnailsOn..st b/repository/Mirage-Carousel.package/MICarousel.class/instance/positionThumbnailsOn..st deleted file mode 100644 index c10b9fc..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/positionThumbnailsOn..st +++ /dev/null @@ -1,9 +0,0 @@ -thumbnails -positionThumbnailsOn: aWPModelAnnouncement - | index | - aWPModelAnnouncement thumbnail center: self center. - - index := aWPModelAnnouncement thumbnails indexOf: aWPModelAnnouncement thumbnail. - self - positionThumbnailsBeforeIndex: index on: aWPModelAnnouncement; - positionThumbnailsAfterIndex: index on: aWPModelAnnouncement \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/refreshThumbnailsOn..st b/repository/Mirage-Carousel.package/MICarousel.class/instance/refreshThumbnailsOn..st deleted file mode 100644 index c308b89..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/refreshThumbnailsOn..st +++ /dev/null @@ -1,11 +0,0 @@ -thumbnails -refreshThumbnailsOn: aWPModelAnnouncement - self removeAllMorphsIn: (self submorphsSatisfying: [ :m | m class ~= MITitleMorph ]). - - self - extent: - self availableWidth @ (aWPModelAnnouncement thumbnails detectMax: #height) height. - self - addAllMorphs: aWPModelAnnouncement thumbnails; - positionThumbnailsOn: aWPModelAnnouncement; - resetThumbnailsBordersOn: aWPModelAnnouncement \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/refreshTitleOn..st b/repository/Mirage-Carousel.package/MICarousel.class/instance/refreshTitleOn..st deleted file mode 100644 index 3f9d375..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/refreshTitleOn..st +++ /dev/null @@ -1,3 +0,0 @@ -title -refreshTitleOn: aWPThumbnailSelected - titleMorph title: aWPThumbnailSelected window label contents \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/resetThumbnailsBordersOn..st b/repository/Mirage-Carousel.package/MICarousel.class/instance/resetThumbnailsBordersOn..st deleted file mode 100644 index 41a28da..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/resetThumbnailsBordersOn..st +++ /dev/null @@ -1,7 +0,0 @@ -thumbnails -resetThumbnailsBordersOn: aWPModelAnnouncement - aWPModelAnnouncement thumbnails - do: [ :m | - m - borderWidth: self thumbnailsBorderWidth; - borderColor: self thumbnailsBorderColor ]. \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/spaceBetweenThumbnails..st b/repository/Mirage-Carousel.package/MICarousel.class/instance/spaceBetweenThumbnails..st deleted file mode 100644 index d0eed3d..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/spaceBetweenThumbnails..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -spaceBetweenThumbnails: anObject - spaceBetweenThumbnails := anObject \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/spaceBetweenThumbnails.st b/repository/Mirage-Carousel.package/MICarousel.class/instance/spaceBetweenThumbnails.st deleted file mode 100644 index 4d6ef9f..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/spaceBetweenThumbnails.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -spaceBetweenThumbnails - ^ spaceBetweenThumbnails \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsBorderColor..st b/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsBorderColor..st deleted file mode 100644 index ee2c032..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsBorderColor..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -thumbnailsBorderColor: aColor - thumbnailsBorderColor := aColor \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsBorderColor.st b/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsBorderColor.st deleted file mode 100644 index 3be1dca..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsBorderColor.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -thumbnailsBorderColor - ^ thumbnailsBorderColor \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsBorderWidth..st b/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsBorderWidth..st deleted file mode 100644 index c671b15..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsBorderWidth..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -thumbnailsBorderWidth: anObject - thumbnailsBorderWidth := anObject \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsBorderWidth.st b/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsBorderWidth.st deleted file mode 100644 index aa14b24..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsBorderWidth.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -thumbnailsBorderWidth - ^ thumbnailsBorderWidth \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsSelectedBorderColor..st b/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsSelectedBorderColor..st deleted file mode 100644 index fff0da5..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsSelectedBorderColor..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -thumbnailsSelectedBorderColor: anObject - thumbnailsSelectedBorderColor := anObject \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsSelectedBorderColor.st b/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsSelectedBorderColor.st deleted file mode 100644 index 536e1c8..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/instance/thumbnailsSelectedBorderColor.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -thumbnailsSelectedBorderColor - ^ thumbnailsSelectedBorderColor \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarousel.class/methodProperties.json b/repository/Mirage-Carousel.package/MICarousel.class/methodProperties.json deleted file mode 100644 index 4e74890..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/methodProperties.json +++ /dev/null @@ -1,30 +0,0 @@ -{ - "class" : { - "activate:" : "JulienDelplanque 6/28/2016 15:08", - "initialize" : "JulienDelplanque 6/28/2016 15:10", - "isActivated" : "JulienDelplanque 6/30/2016 12:40", - "wpSettingOn:" : "JulienDelplanque 6/30/2016 12:49" }, - "instance" : { - "availableWidth" : "JulienDelplanque 6/18/2016 19:10", - "beCenteredInWorld" : "JulienDelplanque 6/30/2016 10:26", - "handleCloseRequest:" : "JulienDelplanque 6/30/2016 10:28", - "handleOpenRequest:" : "JulienDelplanque 6/30/2016 10:29", - "handleWindowSelected:" : "JulienDelplanque 6/21/2016 19:02", - "initialize" : "JulienDelplanque 10/24/2016 18:21", - "initializeTitleMorph" : "JulienDelplanque 7/17/2016 12:37", - "isWindowsPreviewer" : "JulienDelplanque 6/17/2016 17:55", - "openCenteredInBackground:" : "JulienDelplanque 6/30/2016 10:19", - "positionThumbnailsAfterIndex:on:" : "JulienDelplanque 6/18/2016 20:24", - "positionThumbnailsBeforeIndex:on:" : "JulienDelplanque 6/18/2016 20:24", - "positionThumbnailsOn:" : "JulienDelplanque 6/18/2016 20:25", - "refreshThumbnailsOn:" : "JulienDelplanque 7/17/2016 12:37", - "refreshTitleOn:" : "JulienDelplanque 6/18/2016 18:33", - "resetThumbnailsBordersOn:" : "JulienDelplanque 6/18/2016 20:19", - "spaceBetweenThumbnails" : "JulienDelplanque 6/18/2016 19:43", - "spaceBetweenThumbnails:" : "JulienDelplanque 6/18/2016 19:43", - "thumbnailsBorderColor" : "JulienDelplanque 6/15/2016 22:09", - "thumbnailsBorderColor:" : "JulienDelplanque 6/16/2016 18:37", - "thumbnailsBorderWidth" : "JulienDelplanque 6/16/2016 19:14", - "thumbnailsBorderWidth:" : "JulienDelplanque 6/16/2016 19:14", - "thumbnailsSelectedBorderColor" : "JulienDelplanque 6/16/2016 21:19", - "thumbnailsSelectedBorderColor:" : "JulienDelplanque 6/16/2016 21:19" } } diff --git a/repository/Mirage-Carousel.package/MICarousel.class/properties.json b/repository/Mirage-Carousel.package/MICarousel.class/properties.json deleted file mode 100644 index cbae6ee..0000000 --- a/repository/Mirage-Carousel.package/MICarousel.class/properties.json +++ /dev/null @@ -1,20 +0,0 @@ -{ - "category" : "Mirage-Carousel-Morphic", - "classinstvars" : [ - "isActivated" ], - "classtraitcomposition" : "MIModelListener classTrait + MIViewSetting classTrait", - "classvars" : [ - ], - "commentStamp" : "JulienDelplanque 6/15/2016 16:17", - "instvars" : [ - "thumbnailsSelectedBorderColor", - "thumbnailsBorderColor", - "thumbnailsBorderWidth", - "titleMorph", - "spaceBetweenThumbnails" ], - "name" : "MICarousel", - "pools" : [ - ], - "super" : "Morph", - "traitcomposition" : "MIModelListener + MIViewSetting", - "type" : "normal" } diff --git a/repository/Mirage-Carousel.package/MICarouselSettings.class/README.md b/repository/Mirage-Carousel.package/MICarouselSettings.class/README.md deleted file mode 100644 index 2a6ebd9..0000000 --- a/repository/Mirage-Carousel.package/MICarouselSettings.class/README.md +++ /dev/null @@ -1 +0,0 @@ -The settings for the Windows Previewer's carousel. \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarouselSettings.class/class/defaultThumbnailUpdateTime.st b/repository/Mirage-Carousel.package/MICarouselSettings.class/class/defaultThumbnailUpdateTime.st deleted file mode 100644 index 1306c5b..0000000 --- a/repository/Mirage-Carousel.package/MICarouselSettings.class/class/defaultThumbnailUpdateTime.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -defaultThumbnailUpdateTime - ^ 5 \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarouselSettings.class/class/thumbnailUpdateTime..st b/repository/Mirage-Carousel.package/MICarouselSettings.class/class/thumbnailUpdateTime..st deleted file mode 100644 index edf45a5..0000000 --- a/repository/Mirage-Carousel.package/MICarouselSettings.class/class/thumbnailUpdateTime..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -thumbnailUpdateTime: anInteger - thumbnailUpdateTime := anInteger \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarouselSettings.class/class/thumbnailUpdateTime.st b/repository/Mirage-Carousel.package/MICarouselSettings.class/class/thumbnailUpdateTime.st deleted file mode 100644 index 7bdabd2..0000000 --- a/repository/Mirage-Carousel.package/MICarouselSettings.class/class/thumbnailUpdateTime.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -thumbnailUpdateTime - ^ thumbnailUpdateTime ifNil: [ thumbnailUpdateTime := self defaultThumbnailUpdateTime ] \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarouselSettings.class/class/wpThumbnailUpdateTimeSettingsOn..st b/repository/Mirage-Carousel.package/MICarouselSettings.class/class/wpThumbnailUpdateTimeSettingsOn..st deleted file mode 100644 index 7241a3c..0000000 --- a/repository/Mirage-Carousel.package/MICarouselSettings.class/class/wpThumbnailUpdateTimeSettingsOn..st +++ /dev/null @@ -1,12 +0,0 @@ -settings-definition -wpThumbnailUpdateTimeSettingsOn: aBuilder - - (aBuilder range: #mirageThumbnailUpdateTime) - label: 'Thumbnail update time'; - description: 'Set the time between thumbnail updates in seconds' translated; - setSelector: #thumbnailUpdateTime:; - getSelector: #thumbnailUpdateTime; - default: self thumbnailUpdateTime; - range: (1 to: 30); - target: self; - parent: #mirageSettings. \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MICarouselSettings.class/methodProperties.json b/repository/Mirage-Carousel.package/MICarouselSettings.class/methodProperties.json deleted file mode 100644 index e330f09..0000000 --- a/repository/Mirage-Carousel.package/MICarouselSettings.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - "defaultThumbnailUpdateTime" : "JulienDelplanque 9/26/2016 14:49", - "thumbnailUpdateTime" : "JulienDelplanque 9/26/2016 14:49", - "thumbnailUpdateTime:" : "JulienDelplanque 9/26/2016 14:49", - "wpThumbnailUpdateTimeSettingsOn:" : "JulienDelplanque 9/26/2016 14:49" }, - "instance" : { - } } diff --git a/repository/Mirage-Carousel.package/MICarouselSettings.class/properties.json b/repository/Mirage-Carousel.package/MICarouselSettings.class/properties.json deleted file mode 100644 index 4b0f115..0000000 --- a/repository/Mirage-Carousel.package/MICarouselSettings.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Mirage-Carousel-Settings", - "classinstvars" : [ - "thumbnailUpdateTime" ], - "classvars" : [ - ], - "commentStamp" : "JulienDelplanque 9/26/2016 14:52", - "instvars" : [ - ], - "name" : "MICarouselSettings", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/instance/nextThumbnail.st b/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/instance/nextThumbnail.st deleted file mode 100644 index 9ace1cc..0000000 --- a/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/instance/nextThumbnail.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Carousel -nextThumbnail - ^ self nextWindow mirageThumbnail \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/instance/previousThumbnail.st b/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/instance/previousThumbnail.st deleted file mode 100644 index 7ee1ea6..0000000 --- a/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/instance/previousThumbnail.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Carousel -previousThumbnail - ^ self previousWindow mirageThumbnail \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/instance/thumbnail.st b/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/instance/thumbnail.st deleted file mode 100644 index b951c01..0000000 --- a/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/instance/thumbnail.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Carousel -thumbnail - ^ self window mirageThumbnail \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/instance/thumbnails.st b/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/instance/thumbnails.st deleted file mode 100644 index 4a3547a..0000000 --- a/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/instance/thumbnails.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Carousel -thumbnails - ^ self windows collect: #mirageThumbnail \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/methodProperties.json b/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/methodProperties.json deleted file mode 100644 index baa9547..0000000 --- a/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "nextThumbnail" : "JulienDelplanque 7/17/2016 14:38", - "previousThumbnail" : "JulienDelplanque 7/17/2016 14:38", - "thumbnail" : "JulienDelplanque 7/17/2016 14:38", - "thumbnails" : "JulienDelplanque 7/17/2016 14:38" } } diff --git a/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/properties.json b/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/properties.json deleted file mode 100644 index d93a9a6..0000000 --- a/repository/Mirage-Carousel.package/MIModelAnnouncement.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MIModelAnnouncement" } diff --git a/repository/Mirage-Carousel.package/MITitleMorph.class/README.md b/repository/Mirage-Carousel.package/MITitleMorph.class/README.md deleted file mode 100644 index 3c004e8..0000000 --- a/repository/Mirage-Carousel.package/MITitleMorph.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a title for the WPMorph. \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MITitleMorph.class/class/title.color..st b/repository/Mirage-Carousel.package/MITitleMorph.class/class/title.color..st deleted file mode 100644 index e9d40c8..0000000 --- a/repository/Mirage-Carousel.package/MITitleMorph.class/class/title.color..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -title: aString color: aColor - ^ self new - title: aString; - color: aColor; - yourself \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MITitleMorph.class/instance/extent..st b/repository/Mirage-Carousel.package/MITitleMorph.class/instance/extent..st deleted file mode 100644 index 3bb9bc3..0000000 --- a/repository/Mirage-Carousel.package/MITitleMorph.class/instance/extent..st +++ /dev/null @@ -1,4 +0,0 @@ -geometry -extent: aPoint - super extent: aPoint. - title center: self center \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MITitleMorph.class/instance/initialize.st b/repository/Mirage-Carousel.package/MITitleMorph.class/instance/initialize.st deleted file mode 100644 index 3285114..0000000 --- a/repository/Mirage-Carousel.package/MITitleMorph.class/instance/initialize.st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initialize - super initialize. - self color: Color gray. - title := '' asMorph. - title emphasis: 1. "Bold text" - self addMorph: title \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MITitleMorph.class/instance/minimalHeight.st b/repository/Mirage-Carousel.package/MITitleMorph.class/instance/minimalHeight.st deleted file mode 100644 index 06204a4..0000000 --- a/repository/Mirage-Carousel.package/MITitleMorph.class/instance/minimalHeight.st +++ /dev/null @@ -1,3 +0,0 @@ -geometry -minimalHeight - self extent: self extent x @ title extent y \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MITitleMorph.class/instance/title..st b/repository/Mirage-Carousel.package/MITitleMorph.class/instance/title..st deleted file mode 100644 index b5e36b1..0000000 --- a/repository/Mirage-Carousel.package/MITitleMorph.class/instance/title..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -title: aString - title contents: aString. - title center: self center \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MITitleMorph.class/instance/title.st b/repository/Mirage-Carousel.package/MITitleMorph.class/instance/title.st deleted file mode 100644 index fc1a896..0000000 --- a/repository/Mirage-Carousel.package/MITitleMorph.class/instance/title.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -title - ^ title \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MITitleMorph.class/instance/titleColor..st b/repository/Mirage-Carousel.package/MITitleMorph.class/instance/titleColor..st deleted file mode 100644 index 780bf8a..0000000 --- a/repository/Mirage-Carousel.package/MITitleMorph.class/instance/titleColor..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -titleColor: aColor - title color: aColor \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MITitleMorph.class/instance/titleColor.st b/repository/Mirage-Carousel.package/MITitleMorph.class/instance/titleColor.st deleted file mode 100644 index c45b283..0000000 --- a/repository/Mirage-Carousel.package/MITitleMorph.class/instance/titleColor.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -titleColor - ^ title color \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/MITitleMorph.class/methodProperties.json b/repository/Mirage-Carousel.package/MITitleMorph.class/methodProperties.json deleted file mode 100644 index 363c0e7..0000000 --- a/repository/Mirage-Carousel.package/MITitleMorph.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - "title:color:" : "JulienDelplanque 6/15/2016 22:04" }, - "instance" : { - "extent:" : "JulienDelplanque 6/15/2016 21:56", - "initialize" : "JulienDelplanque 7/1/2016 19:28", - "minimalHeight" : "JulienDelplanque 6/15/2016 22:14", - "title" : "JulienDelplanque 6/15/2016 21:50", - "title:" : "JulienDelplanque 6/15/2016 22:04", - "titleColor" : "JulienDelplanque 6/15/2016 22:11", - "titleColor:" : "JulienDelplanque 6/15/2016 22:11" } } diff --git a/repository/Mirage-Carousel.package/MITitleMorph.class/properties.json b/repository/Mirage-Carousel.package/MITitleMorph.class/properties.json deleted file mode 100644 index 5eaaff6..0000000 --- a/repository/Mirage-Carousel.package/MITitleMorph.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Mirage-Carousel-Morphic", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "JulienDelplanque 6/15/2016 22:06", - "instvars" : [ - "title" ], - "name" : "MITitleMorph", - "pools" : [ - ], - "super" : "Morph", - "type" : "normal" } diff --git a/repository/Mirage-Carousel.package/Pharo3DarkTheme.extension/instance/mirageThumbnailsSelectedBorderColor.st b/repository/Mirage-Carousel.package/Pharo3DarkTheme.extension/instance/mirageThumbnailsSelectedBorderColor.st deleted file mode 100644 index 4932f2c..0000000 --- a/repository/Mirage-Carousel.package/Pharo3DarkTheme.extension/instance/mirageThumbnailsSelectedBorderColor.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Carousel -mirageThumbnailsSelectedBorderColor - ^ Color orange \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/Pharo3DarkTheme.extension/methodProperties.json b/repository/Mirage-Carousel.package/Pharo3DarkTheme.extension/methodProperties.json deleted file mode 100644 index f3f1c7c..0000000 --- a/repository/Mirage-Carousel.package/Pharo3DarkTheme.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "mirageThumbnailsSelectedBorderColor" : "JulienDelplanque 7/17/2016 14:39" } } diff --git a/repository/Mirage-Carousel.package/Pharo3DarkTheme.extension/properties.json b/repository/Mirage-Carousel.package/Pharo3DarkTheme.extension/properties.json deleted file mode 100644 index c185337..0000000 --- a/repository/Mirage-Carousel.package/Pharo3DarkTheme.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Pharo3DarkTheme" } diff --git a/repository/Mirage-Carousel.package/SystemWindow.extension/instance/continueToScheduleUpdate..st b/repository/Mirage-Carousel.package/SystemWindow.extension/instance/continueToScheduleUpdate..st deleted file mode 100644 index d86959e..0000000 --- a/repository/Mirage-Carousel.package/SystemWindow.extension/instance/continueToScheduleUpdate..st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Carousel -continueToScheduleUpdate: aBoolean - self setProperty: #continueToScheduleUpdate toValue: aBoolean \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/SystemWindow.extension/instance/continueToScheduleUpdate.st b/repository/Mirage-Carousel.package/SystemWindow.extension/instance/continueToScheduleUpdate.st deleted file mode 100644 index df1b157..0000000 --- a/repository/Mirage-Carousel.package/SystemWindow.extension/instance/continueToScheduleUpdate.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Carousel -continueToScheduleUpdate - ^ self valueOfProperty: #continueToScheduleUpdate ifAbsentPut: [ false ] \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/SystemWindow.extension/instance/mirageMutex.st b/repository/Mirage-Carousel.package/SystemWindow.extension/instance/mirageMutex.st deleted file mode 100644 index 10f2a9c..0000000 --- a/repository/Mirage-Carousel.package/SystemWindow.extension/instance/mirageMutex.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Carousel -mirageMutex - ^ self valueOfProperty: #mirageMutex ifAbsentPut: [ Mutex new ] \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/SystemWindow.extension/instance/mirageThumbnail.st b/repository/Mirage-Carousel.package/SystemWindow.extension/instance/mirageThumbnail.st deleted file mode 100644 index 91da5bd..0000000 --- a/repository/Mirage-Carousel.package/SystemWindow.extension/instance/mirageThumbnail.st +++ /dev/null @@ -1,14 +0,0 @@ -*Mirage-Carousel -mirageThumbnail - self continueToScheduleUpdate - ifFalse: [ - self continueToScheduleUpdate: true. - self onAnnouncement: WindowClosed do: [ - self continueToScheduleUpdate: false ]. - self scheduleThumbnailUpdate ]. - self mirageMutex critical: [ - ^ self - valueOfProperty: self mirageThumbnailPropertySymbol - ifAbsentPut: [ - self continueToScheduleUpdate: true. - self taskbarThumbnail ] ] \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/SystemWindow.extension/instance/mirageThumbnailPropertySymbol.st b/repository/Mirage-Carousel.package/SystemWindow.extension/instance/mirageThumbnailPropertySymbol.st deleted file mode 100644 index 98d2be9..0000000 --- a/repository/Mirage-Carousel.package/SystemWindow.extension/instance/mirageThumbnailPropertySymbol.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Carousel -mirageThumbnailPropertySymbol - ^ #mirageThumbnail \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/SystemWindow.extension/instance/scheduleThumbnailUpdate.st b/repository/Mirage-Carousel.package/SystemWindow.extension/instance/scheduleThumbnailUpdate.st deleted file mode 100644 index 67e5b31..0000000 --- a/repository/Mirage-Carousel.package/SystemWindow.extension/instance/scheduleThumbnailUpdate.st +++ /dev/null @@ -1,10 +0,0 @@ -*Mirage-Carousel -scheduleThumbnailUpdate - [ - MICarouselSettings thumbnailUpdateTime seconds wait. - self mirageMutex - critical: [ - self isCollapsed ifFalse: [ self updateMirageThumbnail ] ]. - self continueToScheduleUpdate - ifTrue: [ self scheduleThumbnailUpdate ] - ] forkNamed: 'MirageThumbnailUpdater' \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/SystemWindow.extension/instance/updateMirageThumbnail.st b/repository/Mirage-Carousel.package/SystemWindow.extension/instance/updateMirageThumbnail.st deleted file mode 100644 index 34d7dc3..0000000 --- a/repository/Mirage-Carousel.package/SystemWindow.extension/instance/updateMirageThumbnail.st +++ /dev/null @@ -1,5 +0,0 @@ -*Mirage-Carousel -updateMirageThumbnail - self - setProperty: self mirageThumbnailPropertySymbol - toValue: self taskbarThumbnail \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/SystemWindow.extension/methodProperties.json b/repository/Mirage-Carousel.package/SystemWindow.extension/methodProperties.json deleted file mode 100644 index 38f0304..0000000 --- a/repository/Mirage-Carousel.package/SystemWindow.extension/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "continueToScheduleUpdate" : "JulienDelplanque 9/26/2016 13:56", - "continueToScheduleUpdate:" : "JulienDelplanque 9/26/2016 14:06", - "mirageMutex" : "JulienDelplanque 9/26/2016 13:57", - "mirageThumbnail" : "JulienDelplanque 9/26/2016 14:35", - "mirageThumbnailPropertySymbol" : "JulienDelplanque 9/26/2016 12:48", - "scheduleThumbnailUpdate" : "JulienDelplanque 11/7/2016 20:35", - "updateMirageThumbnail" : "JulienDelplanque 9/26/2016 12:48" } } diff --git a/repository/Mirage-Carousel.package/SystemWindow.extension/properties.json b/repository/Mirage-Carousel.package/SystemWindow.extension/properties.json deleted file mode 100644 index 5a884f1..0000000 --- a/repository/Mirage-Carousel.package/SystemWindow.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SystemWindow" } diff --git a/repository/Mirage-Carousel.package/UITheme.extension/instance/mirageCarouselColor.st b/repository/Mirage-Carousel.package/UITheme.extension/instance/mirageCarouselColor.st deleted file mode 100644 index bcf9f87..0000000 --- a/repository/Mirage-Carousel.package/UITheme.extension/instance/mirageCarouselColor.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Carousel -mirageCarouselColor - ^ Color transparent \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/UITheme.extension/instance/mirageSpaceBetweenThumbnails.st b/repository/Mirage-Carousel.package/UITheme.extension/instance/mirageSpaceBetweenThumbnails.st deleted file mode 100644 index c4f4768..0000000 --- a/repository/Mirage-Carousel.package/UITheme.extension/instance/mirageSpaceBetweenThumbnails.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Carousel -mirageSpaceBetweenThumbnails - ^ 10 \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/UITheme.extension/instance/mirageThumbnailsBorderColor.st b/repository/Mirage-Carousel.package/UITheme.extension/instance/mirageThumbnailsBorderColor.st deleted file mode 100644 index 937bb96..0000000 --- a/repository/Mirage-Carousel.package/UITheme.extension/instance/mirageThumbnailsBorderColor.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Carousel -mirageThumbnailsBorderColor - ^ Color gray \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/UITheme.extension/instance/mirageThumbnailsBorderWidth.st b/repository/Mirage-Carousel.package/UITheme.extension/instance/mirageThumbnailsBorderWidth.st deleted file mode 100644 index 62dadfb..0000000 --- a/repository/Mirage-Carousel.package/UITheme.extension/instance/mirageThumbnailsBorderWidth.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Carousel -mirageThumbnailsBorderWidth - ^ 3 \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/UITheme.extension/instance/mirageThumbnailsSelectedBorderColor.st b/repository/Mirage-Carousel.package/UITheme.extension/instance/mirageThumbnailsSelectedBorderColor.st deleted file mode 100644 index 6556366..0000000 --- a/repository/Mirage-Carousel.package/UITheme.extension/instance/mirageThumbnailsSelectedBorderColor.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Carousel -mirageThumbnailsSelectedBorderColor - ^ Color fromString: '#3297d4' \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/UITheme.extension/methodProperties.json b/repository/Mirage-Carousel.package/UITheme.extension/methodProperties.json deleted file mode 100644 index 19531e9..0000000 --- a/repository/Mirage-Carousel.package/UITheme.extension/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "mirageCarouselColor" : "JulienDelplanque 7/17/2016 14:39", - "mirageSpaceBetweenThumbnails" : "JulienDelplanque 7/17/2016 14:39", - "mirageThumbnailsBorderColor" : "JulienDelplanque 7/17/2016 14:39", - "mirageThumbnailsBorderWidth" : "JulienDelplanque 7/17/2016 14:39", - "mirageThumbnailsSelectedBorderColor" : "JulienDelplanque 7/17/2016 14:39" } } diff --git a/repository/Mirage-Carousel.package/UITheme.extension/properties.json b/repository/Mirage-Carousel.package/UITheme.extension/properties.json deleted file mode 100644 index b2db661..0000000 --- a/repository/Mirage-Carousel.package/UITheme.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "UITheme" } diff --git a/repository/Mirage-Carousel.package/monticello.meta/categories.st b/repository/Mirage-Carousel.package/monticello.meta/categories.st deleted file mode 100644 index 124d650..0000000 --- a/repository/Mirage-Carousel.package/monticello.meta/categories.st +++ /dev/null @@ -1,3 +0,0 @@ -SystemOrganization addCategory: #'Mirage-Carousel'! -SystemOrganization addCategory: 'Mirage-Carousel-Morphic'! -SystemOrganization addCategory: 'Mirage-Carousel-Settings'! diff --git a/repository/Mirage-Carousel.package/monticello.meta/initializers.st b/repository/Mirage-Carousel.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29..0000000 diff --git a/repository/Mirage-Carousel.package/monticello.meta/package b/repository/Mirage-Carousel.package/monticello.meta/package deleted file mode 100644 index c5705f0..0000000 --- a/repository/Mirage-Carousel.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Mirage-Carousel') \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/monticello.meta/version b/repository/Mirage-Carousel.package/monticello.meta/version deleted file mode 100644 index 1454315..0000000 --- a/repository/Mirage-Carousel.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Mirage-Carousel-JulienDelplanque.6' message 'Fixed issue #5.' id '6d77bde3-537e-498e-8fbc-4a53f8a98b13' date '7 November 2016' time '8:35:59.118823 pm' author 'JulienDelplanque' ancestors ((name 'Mirage-Carousel-JulienDelplanque.5' message 'Set the level of the view on the background.' id 'c19d7a3a-c845-446b-b16e-fa592c208b5a' date '24 October 2016' time '6:25:22.533017 pm' author 'JulienDelplanque' ancestors ((name 'Mirage-Carousel-JulienDelplanque.4' message 'Implemented thumbnail update feature.' id 'f66dd10c-1b23-4d3a-b1d2-7179b37e8e30' date '26 September 2016' time '2:57:48.516321 pm' author 'JulienDelplanque' ancestors ((name 'Mirage-Carousel-JulienDelplanque.3' message 'Fixed extension methods prefixes.' id '357f5625-52bf-47f7-ac16-9483cebcc794' date '17 July 2016' time '2:48:49.763447 pm' author 'JulienDelplanque' ancestors ((name 'Mirage-Carousel-JulienDelplanque.2' message 'Fixed problems with traits.' id 'e77a6b50-d2b7-4f78-a49c-07acc1ba3de6' date '17 July 2016' time '2:03:41.579983 pm' author 'JulienDelplanque' ancestors ((name 'Mirage-Carousel-JulienDelplanque.1' message 'Renamed this project as ''Mirage''.' id 'f54bfba9-f256-4bea-baad-b1c871b5bc11' date '17 July 2016' time '1:17:00.009573 pm' author 'JulienDelplanque' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Mirage-Carousel.package/properties.json b/repository/Mirage-Carousel.package/properties.json deleted file mode 100644 index f037444..0000000 --- a/repository/Mirage-Carousel.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Mirage-Highlighter.package/.filetree b/repository/Mirage-Highlighter.package/.filetree deleted file mode 100644 index 8998102..0000000 --- a/repository/Mirage-Highlighter.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Mirage-Highlighter.package/MIButtonHighlighterMorph.class/README.md b/repository/Mirage-Highlighter.package/MIButtonHighlighterMorph.class/README.md deleted file mode 100644 index 02f7c5d..0000000 --- a/repository/Mirage-Highlighter.package/MIButtonHighlighterMorph.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I highlight a button of the taskbar. \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIButtonHighlighterMorph.class/instance/highlightButton..st b/repository/Mirage-Highlighter.package/MIButtonHighlighterMorph.class/instance/highlightButton..st deleted file mode 100644 index 8f4c9d9..0000000 --- a/repository/Mirage-Highlighter.package/MIButtonHighlighterMorph.class/instance/highlightButton..st +++ /dev/null @@ -1,5 +0,0 @@ -highlighting -highlightButton: aButton - self - position: aButton position - (0@self height); - width: aButton width \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIButtonHighlighterMorph.class/instance/initialize.st b/repository/Mirage-Highlighter.package/MIButtonHighlighterMorph.class/instance/initialize.st deleted file mode 100644 index bd5f8f7..0000000 --- a/repository/Mirage-Highlighter.package/MIButtonHighlighterMorph.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self - height: Smalltalk ui theme mirageTaskbarTasksHighlighterHeight; - color: Smalltalk ui theme mirageTaskbarTasksHighlighterColor \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIButtonHighlighterMorph.class/methodProperties.json b/repository/Mirage-Highlighter.package/MIButtonHighlighterMorph.class/methodProperties.json deleted file mode 100644 index 8f0f9e2..0000000 --- a/repository/Mirage-Highlighter.package/MIButtonHighlighterMorph.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "highlightButton:" : "JulienDelplanque 6/30/2016 18:11", - "initialize" : "JulienDelplanque 7/17/2016 14:40" } } diff --git a/repository/Mirage-Highlighter.package/MIButtonHighlighterMorph.class/properties.json b/repository/Mirage-Highlighter.package/MIButtonHighlighterMorph.class/properties.json deleted file mode 100644 index 33df063..0000000 --- a/repository/Mirage-Highlighter.package/MIButtonHighlighterMorph.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Mirage-Highlighter-Morphic", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "JulienDelplanque 6/30/2016 18:18", - "instvars" : [ - ], - "name" : "MIButtonHighlighterMorph", - "pools" : [ - ], - "super" : "Morph", - "type" : "normal" } diff --git a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/README.md b/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/README.md deleted file mode 100644 index 6892f5d..0000000 --- a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I highlight taskbar tasks selected during the preview. \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/activate..st b/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/activate..st deleted file mode 100644 index 8aaf706..0000000 --- a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/activate..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -activate: aBoolean - isActivated := aBoolean \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/buildSettingNamed.with..st b/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/buildSettingNamed.with..st deleted file mode 100644 index 4faa262..0000000 --- a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/buildSettingNamed.with..st +++ /dev/null @@ -1,8 +0,0 @@ -setting building -buildSettingNamed: aSymbol with: aBuilder - ^ (aBuilder setting: aSymbol) - setSelector: #activate:; - getSelector: #isActivated; - target: self; - parent: self parent; - yourself \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/initialize.st b/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/initialize.st deleted file mode 100644 index 3e67db8..0000000 --- a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -initialize - super initialize. - self activate: false \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/isActivated.st b/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/isActivated.st deleted file mode 100644 index bb713d5..0000000 --- a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/isActivated.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -isActivated - ^ isActivated \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/parent.st b/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/parent.st deleted file mode 100644 index 0b593ca..0000000 --- a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/parent.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -parent - ^ #mirageViewsSettings \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/wpSettingOn..st b/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/wpSettingOn..st deleted file mode 100644 index c518b73..0000000 --- a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/class/wpSettingOn..st +++ /dev/null @@ -1,6 +0,0 @@ -settings -wpSettingOn: aBuilder - - (self buildSettingNamed: #wpTaskbarTasksHighlighterSetting with: aBuilder) - label: 'Taskbar tasks highlighter'; - description: 'Activate the taskbar tasks highlighter' translated \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/instance/handleCloseRequest..st b/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/instance/handleCloseRequest..st deleted file mode 100644 index 2639266..0000000 --- a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/instance/handleCloseRequest..st +++ /dev/null @@ -1,3 +0,0 @@ -announcement handling -handleCloseRequest: aWPCloseRequest - aWPCloseRequest model announcer unsubscribe: self \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/instance/handleOpenRequest..st b/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/instance/handleOpenRequest..st deleted file mode 100644 index 8d9d4fe..0000000 --- a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/instance/handleOpenRequest..st +++ /dev/null @@ -1,3 +0,0 @@ -announcement handling -handleOpenRequest: aWPOpenRequest - aWPOpenRequest background addMorph: buttonHighlighter \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/instance/handleWindowSelected..st b/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/instance/handleWindowSelected..st deleted file mode 100644 index 0615988..0000000 --- a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/instance/handleWindowSelected..st +++ /dev/null @@ -1,4 +0,0 @@ -announcement handling -handleWindowSelected: aWPThumbnailSelected - buttonHighlighter - highlightButton: (aWPThumbnailSelected window worldTaskbar buttonForMorph: aWPThumbnailSelected window) \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/instance/initialize.st b/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/instance/initialize.st deleted file mode 100644 index ca638f6..0000000 --- a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - buttonHighlighter := MIButtonHighlighterMorph new - mirageLevel: 200; - yourself \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/methodProperties.json b/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/methodProperties.json deleted file mode 100644 index 5fc3dc9..0000000 --- a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "activate:" : "JulienDelplanque 6/30/2016 17:44", - "buildSettingNamed:with:" : "", - "initialize" : "JulienDelplanque 6/30/2016 17:46", - "isActivated" : "JulienDelplanque 6/30/2016 17:44", - "parent" : "", - "wpSettingOn:" : "JulienDelplanque 6/30/2016 17:47" }, - "instance" : { - "handleCloseRequest:" : "JulienDelplanque 6/30/2016 18:20", - "handleOpenRequest:" : "JulienDelplanque 6/30/2016 18:19", - "handleWindowSelected:" : "JulienDelplanque 6/30/2016 18:21", - "initialize" : "JulienDelplanque 10/24/2016 18:22" } } diff --git a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/properties.json b/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/properties.json deleted file mode 100644 index 6a58565..0000000 --- a/repository/Mirage-Highlighter.package/MITaskbarTasksHighlighter.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Mirage-Highlighter-Core", - "classinstvars" : [ - "isActivated" ], - "classtraitcomposition" : "MIModelListener classTrait + MIViewSetting classTrait", - "classvars" : [ - ], - "commentStamp" : "JulienDelplanque 6/30/2016 17:43", - "instvars" : [ - "buttonHighlighter" ], - "name" : "MITaskbarTasksHighlighter", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "MIModelListener + MIViewSetting", - "type" : "normal" } diff --git a/repository/Mirage-Highlighter.package/MIWindowHighlighterMorph.class/README.md b/repository/Mirage-Highlighter.package/MIWindowHighlighterMorph.class/README.md deleted file mode 100644 index 171a163..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowHighlighterMorph.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I highlight a SystemWindow (or subclass). \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIWindowHighlighterMorph.class/instance/highlightWindow..st b/repository/Mirage-Highlighter.package/MIWindowHighlighterMorph.class/instance/highlightWindow..st deleted file mode 100644 index c3bf04f..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowHighlighterMorph.class/instance/highlightWindow..st +++ /dev/null @@ -1,5 +0,0 @@ -highlighting -highlightWindow: aSystemWindow - self - position: aSystemWindow position; - extent: aSystemWindow extent \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIWindowHighlighterMorph.class/instance/initialize.st b/repository/Mirage-Highlighter.package/MIWindowHighlighterMorph.class/instance/initialize.st deleted file mode 100644 index 2ccf6f9..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowHighlighterMorph.class/instance/initialize.st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initialize - super initialize. - self - color: Color transparent; - borderColor: Smalltalk ui theme mirageHighlighterBorderColor; - borderWidth: Smalltalk ui theme mirageHighlighterBorderWidth \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIWindowHighlighterMorph.class/methodProperties.json b/repository/Mirage-Highlighter.package/MIWindowHighlighterMorph.class/methodProperties.json deleted file mode 100644 index 1553899..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowHighlighterMorph.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "highlightWindow:" : "JulienDelplanque 9/26/2016 15:25", - "initialize" : "JulienDelplanque 7/17/2016 14:40" } } diff --git a/repository/Mirage-Highlighter.package/MIWindowHighlighterMorph.class/properties.json b/repository/Mirage-Highlighter.package/MIWindowHighlighterMorph.class/properties.json deleted file mode 100644 index 8dd123d..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowHighlighterMorph.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Mirage-Highlighter-Morphic", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "JulienDelplanque 7/3/2016 13:30", - "instvars" : [ - ], - "name" : "MIWindowHighlighterMorph", - "pools" : [ - ], - "super" : "BorderedMorph", - "type" : "normal" } diff --git a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/README.md b/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/README.md deleted file mode 100644 index 331195c..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I highlight windows selected during the preview. \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/activate..st b/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/activate..st deleted file mode 100644 index 8aaf706..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/activate..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -activate: aBoolean - isActivated := aBoolean \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/buildSettingNamed.with..st b/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/buildSettingNamed.with..st deleted file mode 100644 index 4faa262..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/buildSettingNamed.with..st +++ /dev/null @@ -1,8 +0,0 @@ -setting building -buildSettingNamed: aSymbol with: aBuilder - ^ (aBuilder setting: aSymbol) - setSelector: #activate:; - getSelector: #isActivated; - target: self; - parent: self parent; - yourself \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/initialize.st b/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/initialize.st deleted file mode 100644 index 3e67db8..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -initialize - super initialize. - self activate: false \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/isActivated.st b/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/isActivated.st deleted file mode 100644 index bb713d5..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/isActivated.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -isActivated - ^ isActivated \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/parent.st b/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/parent.st deleted file mode 100644 index 0b593ca..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/parent.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -parent - ^ #mirageViewsSettings \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/wpSettingOn..st b/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/wpSettingOn..st deleted file mode 100644 index 0835694..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/class/wpSettingOn..st +++ /dev/null @@ -1,6 +0,0 @@ -settings -wpSettingOn: aBuilder - - (self buildSettingNamed: #wpWindowsHighlighterSetting with: aBuilder) - label: 'Windows highlighter'; - description: 'Activate the windows highlighter' translated \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/instance/handleCloseRequest..st b/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/instance/handleCloseRequest..st deleted file mode 100644 index 2639266..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/instance/handleCloseRequest..st +++ /dev/null @@ -1,3 +0,0 @@ -announcement handling -handleCloseRequest: aWPCloseRequest - aWPCloseRequest model announcer unsubscribe: self \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/instance/handleOpenRequest..st b/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/instance/handleOpenRequest..st deleted file mode 100644 index 3d18638..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/instance/handleOpenRequest..st +++ /dev/null @@ -1,6 +0,0 @@ -announcement handling -handleOpenRequest: aWPOpenRequest - aWPOpenRequest background submorphs - detect: #isWindowsPreviewer - ifFound: [ :windowsPreviewer | aWPOpenRequest background addMorph: windowHighlighter after: windowsPreviewer ] - ifNone: [ aWPOpenRequest background addMorph: windowHighlighter ] \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/instance/handleWindowSelected..st b/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/instance/handleWindowSelected..st deleted file mode 100644 index f072401..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/instance/handleWindowSelected..st +++ /dev/null @@ -1,6 +0,0 @@ -announcement handling -handleWindowSelected: aWPThumbnailSelected - aWPThumbnailSelected window isCollapsed - ifFalse: [ - windowHighlighter - highlightWindow: aWPThumbnailSelected window ] \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/instance/initialize.st b/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/instance/initialize.st deleted file mode 100644 index 04d4236..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - windowHighlighter := MIWindowHighlighterMorph new - mirageLevel: 200; - yourself \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/methodProperties.json b/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/methodProperties.json deleted file mode 100644 index 08b520b..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/methodProperties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "class" : { - "activate:" : "JulienDelplanque 6/28/2016 15:13", - "buildSettingNamed:with:" : "", - "initialize" : "JulienDelplanque 6/28/2016 15:14", - "isActivated" : "JulienDelplanque 6/30/2016 12:41", - "parent" : "", - "wpSettingOn:" : "JulienDelplanque 6/30/2016 12:48" }, - "instance" : { - "handleCloseRequest:" : "JulienDelplanque 6/30/2016 10:43", - "handleOpenRequest:" : "JulienDelplanque 7/3/2016 13:38", - "handleWindowSelected:" : "JulienDelplanque 10/24/2016 17:49", - "initialize" : "JulienDelplanque 10/24/2016 18:22" } } diff --git a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/properties.json b/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/properties.json deleted file mode 100644 index 50d813d..0000000 --- a/repository/Mirage-Highlighter.package/MIWindowsHighlighter.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Mirage-Highlighter-Core", - "classinstvars" : [ - "isActivated" ], - "classtraitcomposition" : "MIModelListener classTrait + MIViewSetting classTrait", - "classvars" : [ - ], - "commentStamp" : "JulienDelplanque 6/16/2016 21:38", - "instvars" : [ - "windowHighlighter" ], - "name" : "MIWindowsHighlighter", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "MIModelListener + MIViewSetting", - "type" : "normal" } diff --git a/repository/Mirage-Highlighter.package/Pharo3DarkTheme.extension/instance/mirageHighlighterBorderColor.st b/repository/Mirage-Highlighter.package/Pharo3DarkTheme.extension/instance/mirageHighlighterBorderColor.st deleted file mode 100644 index 415d517..0000000 --- a/repository/Mirage-Highlighter.package/Pharo3DarkTheme.extension/instance/mirageHighlighterBorderColor.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Highlighter -mirageHighlighterBorderColor - ^ Color orange \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/Pharo3DarkTheme.extension/instance/mirageTaskbarTasksHighlighterColor.st b/repository/Mirage-Highlighter.package/Pharo3DarkTheme.extension/instance/mirageTaskbarTasksHighlighterColor.st deleted file mode 100644 index e379820..0000000 --- a/repository/Mirage-Highlighter.package/Pharo3DarkTheme.extension/instance/mirageTaskbarTasksHighlighterColor.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Highlighter -mirageTaskbarTasksHighlighterColor - ^ Color orange \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/Pharo3DarkTheme.extension/methodProperties.json b/repository/Mirage-Highlighter.package/Pharo3DarkTheme.extension/methodProperties.json deleted file mode 100644 index 9b5fbce..0000000 --- a/repository/Mirage-Highlighter.package/Pharo3DarkTheme.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "mirageHighlighterBorderColor" : "JulienDelplanque 7/17/2016 14:39", - "mirageTaskbarTasksHighlighterColor" : "JulienDelplanque 7/17/2016 14:40" } } diff --git a/repository/Mirage-Highlighter.package/Pharo3DarkTheme.extension/properties.json b/repository/Mirage-Highlighter.package/Pharo3DarkTheme.extension/properties.json deleted file mode 100644 index c185337..0000000 --- a/repository/Mirage-Highlighter.package/Pharo3DarkTheme.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Pharo3DarkTheme" } diff --git a/repository/Mirage-Highlighter.package/UITheme.extension/instance/mirageHighlighterBorderColor.st b/repository/Mirage-Highlighter.package/UITheme.extension/instance/mirageHighlighterBorderColor.st deleted file mode 100644 index ee6caeb..0000000 --- a/repository/Mirage-Highlighter.package/UITheme.extension/instance/mirageHighlighterBorderColor.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Highlighter -mirageHighlighterBorderColor - ^ Color fromString: '#3297d4' \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/UITheme.extension/instance/mirageHighlighterBorderWidth.st b/repository/Mirage-Highlighter.package/UITheme.extension/instance/mirageHighlighterBorderWidth.st deleted file mode 100644 index d273cc2..0000000 --- a/repository/Mirage-Highlighter.package/UITheme.extension/instance/mirageHighlighterBorderWidth.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Highlighter -mirageHighlighterBorderWidth - ^ 3 \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/UITheme.extension/instance/mirageTaskbarTasksHighlighterColor.st b/repository/Mirage-Highlighter.package/UITheme.extension/instance/mirageTaskbarTasksHighlighterColor.st deleted file mode 100644 index f97acd8..0000000 --- a/repository/Mirage-Highlighter.package/UITheme.extension/instance/mirageTaskbarTasksHighlighterColor.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Highlighter -mirageTaskbarTasksHighlighterColor - ^ Color fromString: '#3297d4' \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/UITheme.extension/instance/mirageTaskbarTasksHighlighterHeight.st b/repository/Mirage-Highlighter.package/UITheme.extension/instance/mirageTaskbarTasksHighlighterHeight.st deleted file mode 100644 index 60b57a5..0000000 --- a/repository/Mirage-Highlighter.package/UITheme.extension/instance/mirageTaskbarTasksHighlighterHeight.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage-Highlighter -mirageTaskbarTasksHighlighterHeight - ^ 5 \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/UITheme.extension/methodProperties.json b/repository/Mirage-Highlighter.package/UITheme.extension/methodProperties.json deleted file mode 100644 index ed0a998..0000000 --- a/repository/Mirage-Highlighter.package/UITheme.extension/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "mirageHighlighterBorderColor" : "JulienDelplanque 7/17/2016 14:39", - "mirageHighlighterBorderWidth" : "JulienDelplanque 7/17/2016 14:40", - "mirageTaskbarTasksHighlighterColor" : "JulienDelplanque 7/17/2016 14:40", - "mirageTaskbarTasksHighlighterHeight" : "JulienDelplanque 7/17/2016 14:40" } } diff --git a/repository/Mirage-Highlighter.package/UITheme.extension/properties.json b/repository/Mirage-Highlighter.package/UITheme.extension/properties.json deleted file mode 100644 index b2db661..0000000 --- a/repository/Mirage-Highlighter.package/UITheme.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "UITheme" } diff --git a/repository/Mirage-Highlighter.package/monticello.meta/categories.st b/repository/Mirage-Highlighter.package/monticello.meta/categories.st deleted file mode 100644 index 2f1588b..0000000 --- a/repository/Mirage-Highlighter.package/monticello.meta/categories.st +++ /dev/null @@ -1,3 +0,0 @@ -SystemOrganization addCategory: #'Mirage-Highlighter'! -SystemOrganization addCategory: 'Mirage-Highlighter-Core'! -SystemOrganization addCategory: 'Mirage-Highlighter-Morphic'! diff --git a/repository/Mirage-Highlighter.package/monticello.meta/initializers.st b/repository/Mirage-Highlighter.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29..0000000 diff --git a/repository/Mirage-Highlighter.package/monticello.meta/package b/repository/Mirage-Highlighter.package/monticello.meta/package deleted file mode 100644 index dcb680d..0000000 --- a/repository/Mirage-Highlighter.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Mirage-Highlighter') \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/monticello.meta/version b/repository/Mirage-Highlighter.package/monticello.meta/version deleted file mode 100644 index 25653e8..0000000 --- a/repository/Mirage-Highlighter.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Mirage-Highlighter-JulienDelplanque.5' message 'Set the level of the view on the background.' id '42c7d576-650b-4465-aa08-21e0edd33bda' date '24 October 2016' time '6:25:35.211434 pm' author 'JulienDelplanque' ancestors ((name 'Mirage-Highlighter-JulienDelplanque.4' message 'Fixed bug #3 by not highlighting collapsed windows.' id 'db8bfb40-1684-4a36-9cd0-75a2bc887e61' date '24 October 2016' time '5:51:24.227562 pm' author 'JulienDelplanque' ancestors ((name 'Mirage-Highlighter-JulienDelplanque.3' message 'Fixed extension methods prefixes.' id '70f3817f-b00b-4636-8bfe-de2d5fe064b5' date '17 July 2016' time '2:49:19.600817 pm' author 'JulienDelplanque' ancestors ((name 'Mirage-Highlighter-JulienDelplanque.2' message 'Fixed problems with traits.' id '0d3f4b42-b686-44aa-9ce8-2bc2a274766e' date '17 July 2016' time '2:04:00.406059 pm' author 'JulienDelplanque' ancestors ((name 'Mirage-Highlighter-JulienDelplanque.1' message 'Renamed this project as ''Mirage''.' id 'd2118903-f2b7-4b6c-b149-14f015d2e0d7' date '17 July 2016' time '1:17:08.32504 pm' author 'JulienDelplanque' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Mirage-Highlighter.package/properties.json b/repository/Mirage-Highlighter.package/properties.json deleted file mode 100644 index f037444..0000000 --- a/repository/Mirage-Highlighter.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Mirage-Tests.package/.filetree b/repository/Mirage-Tests.package/.filetree deleted file mode 100644 index 8998102..0000000 --- a/repository/Mirage-Tests.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Mirage-Tests.package/MIModelTest.class/README.md b/repository/Mirage-Tests.package/MIModelTest.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/repository/Mirage-Tests.package/MIModelTest.class/instance/setUp.st b/repository/Mirage-Tests.package/MIModelTest.class/instance/setUp.st deleted file mode 100644 index f0ee498..0000000 --- a/repository/Mirage-Tests.package/MIModelTest.class/instance/setUp.st +++ /dev/null @@ -1,4 +0,0 @@ -running -setUp - model := MIModel new. - model windowsManaged: { SystemWindow new . SystemWindow new . SystemWindow new } \ No newline at end of file diff --git a/repository/Mirage-Tests.package/MIModelTest.class/instance/testClose.st b/repository/Mirage-Tests.package/MIModelTest.class/instance/testClose.st deleted file mode 100644 index 6c3087a..0000000 --- a/repository/Mirage-Tests.package/MIModelTest.class/instance/testClose.st +++ /dev/null @@ -1,7 +0,0 @@ -tests-actions -testClose - | blockExecuted | - blockExecuted := false. - model announcer when: MICloseRequest do: [ blockExecuted := true ]. - model close. - self assert: blockExecuted \ No newline at end of file diff --git a/repository/Mirage-Tests.package/MIModelTest.class/instance/testNext.st b/repository/Mirage-Tests.package/MIModelTest.class/instance/testNext.st deleted file mode 100644 index b8ef200..0000000 --- a/repository/Mirage-Tests.package/MIModelTest.class/instance/testNext.st +++ /dev/null @@ -1,23 +0,0 @@ -tests-actions -testNext - | blockExecuted | - blockExecuted := false. - model announcer - when: MIWindowSelected do: [ blockExecuted := true ]. - self - assert: model windowsManaged size equals: 3; - assert: model currentIndex equals: 1. - model next. - self - assert: blockExecuted; - assert: model currentIndex equals: 2. - blockExecuted := false. - model next. - self - assert: blockExecuted; - assert: model currentIndex equals: 3. - blockExecuted := false. - model next. - self - assert: blockExecuted; - assert: model currentIndex equals: 1. \ No newline at end of file diff --git a/repository/Mirage-Tests.package/MIModelTest.class/instance/testNextIndex.st b/repository/Mirage-Tests.package/MIModelTest.class/instance/testNextIndex.st deleted file mode 100644 index 118175b..0000000 --- a/repository/Mirage-Tests.package/MIModelTest.class/instance/testNextIndex.st +++ /dev/null @@ -1,5 +0,0 @@ -tests-accessing -testNextIndex - self - assert: model currentIndex equals: 1; - assert: model nextIndex equals: 2 \ No newline at end of file diff --git a/repository/Mirage-Tests.package/MIModelTest.class/instance/testNextWindow.st b/repository/Mirage-Tests.package/MIModelTest.class/instance/testNextWindow.st deleted file mode 100644 index f3da8d3..0000000 --- a/repository/Mirage-Tests.package/MIModelTest.class/instance/testNextWindow.st +++ /dev/null @@ -1,5 +0,0 @@ -tests-accessing -testNextWindow - self - assert: model currentWindow equals: (model windowsManaged at: 1); - assert: model nextWindow equals: (model windowsManaged at: 2) \ No newline at end of file diff --git a/repository/Mirage-Tests.package/MIModelTest.class/instance/testOpen.st b/repository/Mirage-Tests.package/MIModelTest.class/instance/testOpen.st deleted file mode 100644 index 12e2f5a..0000000 --- a/repository/Mirage-Tests.package/MIModelTest.class/instance/testOpen.st +++ /dev/null @@ -1,12 +0,0 @@ -tests-actions -testOpen - | blockExecuted1 blockExecuted2 | - blockExecuted1 := blockExecuted2 := false. - model announcer when: MIOpenRequest do: [ blockExecuted1 := true ]. - model announcer when: MIWindowSelected do: [ blockExecuted2 := true ]. - model open. - self - assert: blockExecuted1; - assert: blockExecuted2. - "Delete the background from world." - model background delete \ No newline at end of file diff --git a/repository/Mirage-Tests.package/MIModelTest.class/instance/testOpenWithIndex.st b/repository/Mirage-Tests.package/MIModelTest.class/instance/testOpenWithIndex.st deleted file mode 100644 index aca1ed0..0000000 --- a/repository/Mirage-Tests.package/MIModelTest.class/instance/testOpenWithIndex.st +++ /dev/null @@ -1,13 +0,0 @@ -tests-actions -testOpenWithIndex - | blockExecuted1 blockExecuted2 | - blockExecuted1 := blockExecuted2 := false. - model announcer when: MIOpenRequest do: [ blockExecuted1 := true ]. - model announcer when: MIWindowSelected do: [ blockExecuted2 := true ]. - model openWithIndex: 42. - self - assert: blockExecuted1; - assert: blockExecuted2; - assert: model currentIndex equals: 42. - "Delete the background from world." - model background delete \ No newline at end of file diff --git a/repository/Mirage-Tests.package/MIModelTest.class/instance/testPrevious.st b/repository/Mirage-Tests.package/MIModelTest.class/instance/testPrevious.st deleted file mode 100644 index 3ba8bd7..0000000 --- a/repository/Mirage-Tests.package/MIModelTest.class/instance/testPrevious.st +++ /dev/null @@ -1,23 +0,0 @@ -tests-actions -testPrevious - | blockExecuted | - blockExecuted := false. - model announcer - when: MIWindowSelected do: [ blockExecuted := true ]. - self - assert: model windowsManaged size equals: 3; - assert: model currentIndex equals: 1. - model previous. - self - assert: blockExecuted; - assert: model currentIndex equals: 3. - blockExecuted := false. - model previous. - self - assert: blockExecuted; - assert: model currentIndex equals: 2. - blockExecuted := false. - model previous. - self - assert: blockExecuted; - assert: model currentIndex equals: 1. \ No newline at end of file diff --git a/repository/Mirage-Tests.package/MIModelTest.class/instance/testPreviousIndex.st b/repository/Mirage-Tests.package/MIModelTest.class/instance/testPreviousIndex.st deleted file mode 100644 index c07a466..0000000 --- a/repository/Mirage-Tests.package/MIModelTest.class/instance/testPreviousIndex.st +++ /dev/null @@ -1,5 +0,0 @@ -tests-accessing -testPreviousIndex - self - assert: model currentIndex equals: 1; - assert: model previousIndex equals: 3 \ No newline at end of file diff --git a/repository/Mirage-Tests.package/MIModelTest.class/instance/testPreviousWindow.st b/repository/Mirage-Tests.package/MIModelTest.class/instance/testPreviousWindow.st deleted file mode 100644 index 1e05d5f..0000000 --- a/repository/Mirage-Tests.package/MIModelTest.class/instance/testPreviousWindow.st +++ /dev/null @@ -1,5 +0,0 @@ -tests-accessing -testPreviousWindow - self - assert: model currentWindow equals: (model windowsManaged at: 1); - assert: model previousWindow equals: (model windowsManaged at: 3) \ No newline at end of file diff --git a/repository/Mirage-Tests.package/MIModelTest.class/methodProperties.json b/repository/Mirage-Tests.package/MIModelTest.class/methodProperties.json deleted file mode 100644 index 0f6338d..0000000 --- a/repository/Mirage-Tests.package/MIModelTest.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "setUp" : "JulienDelplanque 7/17/2016 12:27", - "testClose" : "JulienDelplanque 7/17/2016 12:22", - "testNext" : "JulienDelplanque 7/17/2016 12:22", - "testNextIndex" : "JulienDelplanque 6/21/2016 15:44", - "testNextWindow" : "JulienDelplanque 6/21/2016 15:51", - "testOpen" : "JulienDelplanque 7/17/2016 12:22", - "testOpenWithIndex" : "JulienDelplanque 7/17/2016 12:22", - "testPrevious" : "JulienDelplanque 7/17/2016 12:22", - "testPreviousIndex" : "JulienDelplanque 6/21/2016 15:50", - "testPreviousWindow" : "JulienDelplanque 6/21/2016 15:52" } } diff --git a/repository/Mirage-Tests.package/MIModelTest.class/properties.json b/repository/Mirage-Tests.package/MIModelTest.class/properties.json deleted file mode 100644 index 1d94f59..0000000 --- a/repository/Mirage-Tests.package/MIModelTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Mirage-Tests", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "model" ], - "name" : "MIModelTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Mirage-Tests.package/monticello.meta/categories.st b/repository/Mirage-Tests.package/monticello.meta/categories.st deleted file mode 100644 index b5dd711..0000000 --- a/repository/Mirage-Tests.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Mirage-Tests'! diff --git a/repository/Mirage-Tests.package/monticello.meta/initializers.st b/repository/Mirage-Tests.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29..0000000 diff --git a/repository/Mirage-Tests.package/monticello.meta/package b/repository/Mirage-Tests.package/monticello.meta/package deleted file mode 100644 index c60a712..0000000 --- a/repository/Mirage-Tests.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Mirage-Tests') \ No newline at end of file diff --git a/repository/Mirage-Tests.package/monticello.meta/version b/repository/Mirage-Tests.package/monticello.meta/version deleted file mode 100644 index c14fb38..0000000 --- a/repository/Mirage-Tests.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Mirage-Tests-JulienDelplanque.1' message 'Renamed this project as ''Mirage''.' id '60175f43-2592-457a-a5bb-351c7802cbab' date '17 July 2016' time '1:17:12.861221 pm' author 'JulienDelplanque' ancestors () stepChildren ()) \ No newline at end of file diff --git a/repository/Mirage-Tests.package/properties.json b/repository/Mirage-Tests.package/properties.json deleted file mode 100644 index f037444..0000000 --- a/repository/Mirage-Tests.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Mirage.package/.filetree b/repository/Mirage.package/.filetree deleted file mode 100644 index 8998102..0000000 --- a/repository/Mirage.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Mirage.package/MIBackgroundMorph.class/README.md b/repository/Mirage.package/MIBackgroundMorph.class/README.md deleted file mode 100644 index b47d289..0000000 --- a/repository/Mirage.package/MIBackgroundMorph.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am the background of windows preview I hold all other views as submorphs. \ No newline at end of file diff --git a/repository/Mirage.package/MIBackgroundMorph.class/instance/addMorph..st b/repository/Mirage.package/MIBackgroundMorph.class/instance/addMorph..st deleted file mode 100644 index 6831fb6..0000000 --- a/repository/Mirage.package/MIBackgroundMorph.class/instance/addMorph..st +++ /dev/null @@ -1,7 +0,0 @@ -as yet unclassified -addMorph: aMorph - | firstGreater | - firstGreater := submorphs - detect: [ :morph | aMorph mirageLevel < morph mirageLevel ] - ifNone: [ ^ self addMorphBack: aMorph ]. - ^ self addMorph: aMorph inFrontOf: firstGreater \ No newline at end of file diff --git a/repository/Mirage.package/MIBackgroundMorph.class/instance/handleCloseRequest..st b/repository/Mirage.package/MIBackgroundMorph.class/instance/handleCloseRequest..st deleted file mode 100644 index eb4342a..0000000 --- a/repository/Mirage.package/MIBackgroundMorph.class/instance/handleCloseRequest..st +++ /dev/null @@ -1,5 +0,0 @@ -announcement handling -handleCloseRequest: aWPCloseRequest - self announcer unsubscribe: self. - aWPCloseRequest model announcer unsubscribe: self. - self delete \ No newline at end of file diff --git a/repository/Mirage.package/MIBackgroundMorph.class/instance/handleOpenRequest..st b/repository/Mirage.package/MIBackgroundMorph.class/instance/handleOpenRequest..st deleted file mode 100644 index bf92b47..0000000 --- a/repository/Mirage.package/MIBackgroundMorph.class/instance/handleOpenRequest..st +++ /dev/null @@ -1,8 +0,0 @@ -announcement handling -handleOpenRequest: aWPOpenRequest - self - createShortcutsOn: aWPOpenRequest model; - listenToFocusLossOn: aWPOpenRequest; - extent: World extent; - openInWorld; - takeKeyboardFocus \ No newline at end of file diff --git a/repository/Mirage.package/MIBackgroundMorph.class/instance/handleWindowSelected..st b/repository/Mirage.package/MIBackgroundMorph.class/instance/handleWindowSelected..st deleted file mode 100644 index 0799f39..0000000 --- a/repository/Mirage.package/MIBackgroundMorph.class/instance/handleWindowSelected..st +++ /dev/null @@ -1,3 +0,0 @@ -announcement handling -handleWindowSelected: aWPThumbnailSelected - "Do nothing" \ No newline at end of file diff --git a/repository/Mirage.package/MIBackgroundMorph.class/instance/initialize.st b/repository/Mirage.package/MIBackgroundMorph.class/instance/initialize.st deleted file mode 100644 index 1b9ee5c..0000000 --- a/repository/Mirage.package/MIBackgroundMorph.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self - color: Smalltalk ui theme mirageBackgroundColor; - beSticky \ No newline at end of file diff --git a/repository/Mirage.package/MIBackgroundMorph.class/instance/listenToFocusLossOn..st b/repository/Mirage.package/MIBackgroundMorph.class/instance/listenToFocusLossOn..st deleted file mode 100644 index a04b042..0000000 --- a/repository/Mirage.package/MIBackgroundMorph.class/instance/listenToFocusLossOn..st +++ /dev/null @@ -1,4 +0,0 @@ -listening -listenToFocusLossOn: aWPOpenRequest - self announcer when: MorphLostFocus do: [ :ann | - aWPOpenRequest model close ]. \ No newline at end of file diff --git a/repository/Mirage.package/MIBackgroundMorph.class/instance/wantsToBeTopmost.st b/repository/Mirage.package/MIBackgroundMorph.class/instance/wantsToBeTopmost.st deleted file mode 100644 index 602ed31..0000000 --- a/repository/Mirage.package/MIBackgroundMorph.class/instance/wantsToBeTopmost.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -wantsToBeTopmost - ^ true \ No newline at end of file diff --git a/repository/Mirage.package/MIBackgroundMorph.class/methodProperties.json b/repository/Mirage.package/MIBackgroundMorph.class/methodProperties.json deleted file mode 100644 index 64d9c6e..0000000 --- a/repository/Mirage.package/MIBackgroundMorph.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addMorph:" : "JulienDelplanque 10/24/2016 18:19", - "handleCloseRequest:" : "JulienDelplanque 6/30/2016 10:14", - "handleOpenRequest:" : "JulienDelplanque 7/6/2016 21:32", - "handleWindowSelected:" : "JulienDelplanque 6/30/2016 10:03", - "initialize" : "JulienDelplanque 7/17/2016 14:38", - "listenToFocusLossOn:" : "JulienDelplanque 7/6/2016 21:34", - "wantsToBeTopmost" : "JulienDelplanque 6/30/2016 10:05" } } diff --git a/repository/Mirage.package/MIBackgroundMorph.class/properties.json b/repository/Mirage.package/MIBackgroundMorph.class/properties.json deleted file mode 100644 index cd446bf..0000000 --- a/repository/Mirage.package/MIBackgroundMorph.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "category" : "Mirage-Morphic", - "classinstvars" : [ - ], - "classtraitcomposition" : "MIModelListener classTrait + MIPreviewerShortcuts classTrait", - "classvars" : [ - ], - "commentStamp" : "JulienDelplanque 6/30/2016 10:00", - "instvars" : [ - ], - "name" : "MIBackgroundMorph", - "pools" : [ - ], - "super" : "Morph", - "traitcomposition" : "MIModelListener + MIPreviewerShortcuts", - "type" : "normal" } diff --git a/repository/Mirage.package/MICloseRequest.class/README.md b/repository/Mirage.package/MICloseRequest.class/README.md deleted file mode 100644 index 691b963..0000000 --- a/repository/Mirage.package/MICloseRequest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I announce the fact that the view shoud disappear from the screen. \ No newline at end of file diff --git a/repository/Mirage.package/MICloseRequest.class/methodProperties.json b/repository/Mirage.package/MICloseRequest.class/methodProperties.json deleted file mode 100644 index 0e4a662..0000000 --- a/repository/Mirage.package/MICloseRequest.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/repository/Mirage.package/MICloseRequest.class/properties.json b/repository/Mirage.package/MICloseRequest.class/properties.json deleted file mode 100644 index af4bd4d..0000000 --- a/repository/Mirage.package/MICloseRequest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Mirage-Announcements", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "JulienDelplanque 6/16/2016 17:00", - "instvars" : [ - ], - "name" : "MICloseRequest", - "pools" : [ - ], - "super" : "MIModelAnnouncement", - "type" : "normal" } diff --git a/repository/Mirage.package/MIModel.class/README.md b/repository/Mirage.package/MIModel.class/README.md deleted file mode 100644 index 7df2266..0000000 --- a/repository/Mirage.package/MIModel.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -I define the model of a Windows Previewer. - -I hold the SystemWindowsz, allow to switch to next or previous thumbnail and to apply actions on the window. \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/class/createGlobalKMCategory.st b/repository/Mirage.package/MIModel.class/class/createGlobalKMCategory.st deleted file mode 100644 index d693283..0000000 --- a/repository/Mirage.package/MIModel.class/class/createGlobalKMCategory.st +++ /dev/null @@ -1,4 +0,0 @@ -keymap -createGlobalKMCategory - KMRepository default - setAsGlobalCategory: self globalKMCategoryName \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/class/createOpenShortcut.st b/repository/Mirage.package/MIModel.class/class/createOpenShortcut.st deleted file mode 100644 index 7d0ee5f..0000000 --- a/repository/Mirage.package/MIModel.class/class/createOpenShortcut.st +++ /dev/null @@ -1,7 +0,0 @@ -keymap -createOpenShortcut - self globalKMCategory - addKeymapEntry: (KMKeymap - named: #'Open windows previews' - shortcut: Smalltalk os mirageOpenPreviewerShortcut - action: [ self open ]). \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/class/globalKMCategory.st b/repository/Mirage.package/MIModel.class/class/globalKMCategory.st deleted file mode 100644 index ab890af..0000000 --- a/repository/Mirage.package/MIModel.class/class/globalKMCategory.st +++ /dev/null @@ -1,7 +0,0 @@ -keymap -globalKMCategory - ^ KMRepository default globalCategories - detect: [ :cat | cat name = self globalKMCategoryName ] - ifNone: [ - self createGlobalKMCategory. - ^ self globalKMCategory ] \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/class/globalKMCategoryName.st b/repository/Mirage.package/MIModel.class/class/globalKMCategoryName.st deleted file mode 100644 index 23a9290..0000000 --- a/repository/Mirage.package/MIModel.class/class/globalKMCategoryName.st +++ /dev/null @@ -1,3 +0,0 @@ -keymap -globalKMCategoryName - ^ #WindowsPreviewGlobal \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/class/install..st b/repository/Mirage.package/MIModel.class/class/install..st deleted file mode 100644 index 1d38287..0000000 --- a/repository/Mirage.package/MIModel.class/class/install..st +++ /dev/null @@ -1,5 +0,0 @@ -installation -install: aBoolean - aBoolean - ifTrue: [ self install ] - ifFalse: [ self uninstall ] \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/class/install.st b/repository/Mirage.package/MIModel.class/class/install.st deleted file mode 100644 index 9b36c01..0000000 --- a/repository/Mirage.package/MIModel.class/class/install.st +++ /dev/null @@ -1,6 +0,0 @@ -installation -install - self - createGlobalKMCategory; - createOpenShortcut; - updateSettingBrowsers \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/class/isInstalled.st b/repository/Mirage.package/MIModel.class/class/isInstalled.st deleted file mode 100644 index 2e210bf..0000000 --- a/repository/Mirage.package/MIModel.class/class/isInstalled.st +++ /dev/null @@ -1,4 +0,0 @@ -installation -isInstalled - ^ self globalKMCategory - hasKeymapNamed: #'Open windows previews' \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/class/open.st b/repository/Mirage.package/MIModel.class/class/open.st deleted file mode 100644 index 61fd102..0000000 --- a/repository/Mirage.package/MIModel.class/class/open.st +++ /dev/null @@ -1,10 +0,0 @@ -opening -open - | instance | - instance := self new. - (self views collect: #new) - do: [ :view | view listenToWPModelAnnouncementsOf: instance ]. - self windowsOrderingMethod value: instance. - ^ instance - open; - yourself \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/class/openWithIndex..st b/repository/Mirage.package/MIModel.class/class/openWithIndex..st deleted file mode 100644 index 65f1b0a..0000000 --- a/repository/Mirage.package/MIModel.class/class/openWithIndex..st +++ /dev/null @@ -1,10 +0,0 @@ -opening -openWithIndex: anInteger - | instance | - instance := self new. - (self views collect: #new) - do: [ :view | view listenToWPModelAnnouncementsOf: instance ]. - self windowsOrderingMethod value: instance. - ^ instance - openWithIndex: anInteger; - yourself \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/class/removeShortcuts.st b/repository/Mirage.package/MIModel.class/class/removeShortcuts.st deleted file mode 100644 index 417bd82..0000000 --- a/repository/Mirage.package/MIModel.class/class/removeShortcuts.st +++ /dev/null @@ -1,6 +0,0 @@ -keymap -removeShortcuts - self globalKMCategory keymaps - do: [ :keymap | - self globalKMCategory - removeKeymapEntry: keymap] \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/class/uninstall.st b/repository/Mirage.package/MIModel.class/class/uninstall.st deleted file mode 100644 index b235f38..0000000 --- a/repository/Mirage.package/MIModel.class/class/uninstall.st +++ /dev/null @@ -1,5 +0,0 @@ -installation -uninstall - self - removeShortcuts; - updateSettingBrowsers \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/class/updateSettingBrowsers.st b/repository/Mirage.package/MIModel.class/class/updateSettingBrowsers.st deleted file mode 100644 index 1d74b69..0000000 --- a/repository/Mirage.package/MIModel.class/class/updateSettingBrowsers.st +++ /dev/null @@ -1,4 +0,0 @@ -setting browser -updateSettingBrowsers - self flag: #hack. - SettingBrowser allSubInstances do: #applyFilters \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/class/views.st b/repository/Mirage.package/MIModel.class/class/views.st deleted file mode 100644 index 393a9f4..0000000 --- a/repository/Mirage.package/MIModel.class/class/views.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -views - ^ MIViewSetting users select: #isActivated \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/class/windowsOrderingMethod..st b/repository/Mirage.package/MIModel.class/class/windowsOrderingMethod..st deleted file mode 100644 index 306345f..0000000 --- a/repository/Mirage.package/MIModel.class/class/windowsOrderingMethod..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -windowsOrderingMethod: aSelector - windowsOrderingMethod := aSelector \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/class/windowsOrderingMethod.st b/repository/Mirage.package/MIModel.class/class/windowsOrderingMethod.st deleted file mode 100644 index c12272c..0000000 --- a/repository/Mirage.package/MIModel.class/class/windowsOrderingMethod.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -windowsOrderingMethod - ^ windowsOrderingMethod - ifNil: [ windowsOrderingMethod := MISettings windowsOrderingChoices sorted first tail ] \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/announce..st b/repository/Mirage.package/MIModel.class/instance/announce..st deleted file mode 100644 index bfa337e..0000000 --- a/repository/Mirage.package/MIModel.class/instance/announce..st +++ /dev/null @@ -1,3 +0,0 @@ -announcing -announce: anAnnouncement - self announcer announce: anAnnouncement \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/announceCloseRequest.st b/repository/Mirage.package/MIModel.class/instance/announceCloseRequest.st deleted file mode 100644 index c7fb13e..0000000 --- a/repository/Mirage.package/MIModel.class/instance/announceCloseRequest.st +++ /dev/null @@ -1,5 +0,0 @@ -announcing -announceCloseRequest - self announce: (MICloseRequest new - model: self; - yourself) \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/announceOpenRequest.st b/repository/Mirage.package/MIModel.class/instance/announceOpenRequest.st deleted file mode 100644 index 7cb3786..0000000 --- a/repository/Mirage.package/MIModel.class/instance/announceOpenRequest.st +++ /dev/null @@ -1,5 +0,0 @@ -announcing -announceOpenRequest - self announce: (MIOpenRequest new - model: self; - yourself) \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/announceWindowSelected.st b/repository/Mirage.package/MIModel.class/instance/announceWindowSelected.st deleted file mode 100644 index 41f7bbc..0000000 --- a/repository/Mirage.package/MIModel.class/instance/announceWindowSelected.st +++ /dev/null @@ -1,5 +0,0 @@ -announcing -announceWindowSelected - self announce: (MIWindowSelected new - model: self; - yourself) \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/announcer.st b/repository/Mirage.package/MIModel.class/instance/announcer.st deleted file mode 100644 index 9973653..0000000 --- a/repository/Mirage.package/MIModel.class/instance/announcer.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -announcer - ^ announcer ifNil: [ announcer := Announcer new ] \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/background..st b/repository/Mirage.package/MIModel.class/instance/background..st deleted file mode 100644 index 96b7eec..0000000 --- a/repository/Mirage.package/MIModel.class/instance/background..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -background: anObject - background := anObject \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/background.st b/repository/Mirage.package/MIModel.class/instance/background.st deleted file mode 100644 index 0e8b43b..0000000 --- a/repository/Mirage.package/MIModel.class/instance/background.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -background - ^ background \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/close.st b/repository/Mirage.package/MIModel.class/instance/close.st deleted file mode 100644 index 481bac3..0000000 --- a/repository/Mirage.package/MIModel.class/instance/close.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -close - self announceCloseRequest \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/closeCurrentWindow.st b/repository/Mirage.package/MIModel.class/instance/closeCurrentWindow.st deleted file mode 100644 index c97cc65..0000000 --- a/repository/Mirage.package/MIModel.class/instance/closeCurrentWindow.st +++ /dev/null @@ -1,9 +0,0 @@ -actions -closeCurrentWindow - self currentWindow mirageClose. - self close. - (self windowsManaged size - 1) > 0 - ifTrue: [ self class - openWithIndex: (currentIndex = 1 - ifTrue: [ 1 ] - ifFalse: [ currentIndex - 1 ]) ] \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/currentIndex.st b/repository/Mirage.package/MIModel.class/instance/currentIndex.st deleted file mode 100644 index a14d8a3..0000000 --- a/repository/Mirage.package/MIModel.class/instance/currentIndex.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -currentIndex - ^ currentIndex \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/currentWindow.st b/repository/Mirage.package/MIModel.class/instance/currentWindow.st deleted file mode 100644 index bc1f5db..0000000 --- a/repository/Mirage.package/MIModel.class/instance/currentWindow.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -currentWindow - ^ self windowsManaged at: currentIndex \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/initialize.st b/repository/Mirage.package/MIModel.class/instance/initialize.st deleted file mode 100644 index 6a1c348..0000000 --- a/repository/Mirage.package/MIModel.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialization -initialize - super initialize. - currentIndex := 1. - self initializeBackground \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/initializeBackground.st b/repository/Mirage.package/MIModel.class/instance/initializeBackground.st deleted file mode 100644 index bf16d1d..0000000 --- a/repository/Mirage.package/MIModel.class/instance/initializeBackground.st +++ /dev/null @@ -1,5 +0,0 @@ -initialization -initializeBackground - self background: MIBackgroundMorph new. - self background - listenToWPModelAnnouncementsOf: self. \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/manageAtLeastOneWindow.st b/repository/Mirage.package/MIModel.class/instance/manageAtLeastOneWindow.st deleted file mode 100644 index 4423a4f..0000000 --- a/repository/Mirage.package/MIModel.class/instance/manageAtLeastOneWindow.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -manageAtLeastOneWindow - ^ self windowsManaged size > 0 \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/next.st b/repository/Mirage.package/MIModel.class/instance/next.st deleted file mode 100644 index 8d72a83..0000000 --- a/repository/Mirage.package/MIModel.class/instance/next.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -next - currentIndex := self nextIndex. - self announceWindowSelected \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/nextIndex.st b/repository/Mirage.package/MIModel.class/instance/nextIndex.st deleted file mode 100644 index af03e1a..0000000 --- a/repository/Mirage.package/MIModel.class/instance/nextIndex.st +++ /dev/null @@ -1,6 +0,0 @@ -index computing -nextIndex - "Computes the value of the next index and returns it. Does not change #currentIndex inst. var." - ^ currentIndex = self windowsManaged size - ifTrue: [ 1 ] - ifFalse: [ currentIndex + 1 ]. \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/nextWindow.st b/repository/Mirage.package/MIModel.class/instance/nextWindow.st deleted file mode 100644 index 37411c1..0000000 --- a/repository/Mirage.package/MIModel.class/instance/nextWindow.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -nextWindow - ^ self windowsManaged at: self nextIndex \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/open.st b/repository/Mirage.package/MIModel.class/instance/open.st deleted file mode 100644 index 2a609aa..0000000 --- a/repository/Mirage.package/MIModel.class/instance/open.st +++ /dev/null @@ -1,6 +0,0 @@ -actions -open - self manageAtLeastOneWindow - ifTrue: [ - self announceOpenRequest. - self announceWindowSelected ] \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/openCurrentWindow.st b/repository/Mirage.package/MIModel.class/instance/openCurrentWindow.st deleted file mode 100644 index f2ab34b..0000000 --- a/repository/Mirage.package/MIModel.class/instance/openCurrentWindow.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -openCurrentWindow - self currentWindow mirageOpen. - self announceCloseRequest \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/openWithIndex..st b/repository/Mirage.package/MIModel.class/instance/openWithIndex..st deleted file mode 100644 index a6a8daf..0000000 --- a/repository/Mirage.package/MIModel.class/instance/openWithIndex..st +++ /dev/null @@ -1,4 +0,0 @@ -actions -openWithIndex: anInteger - currentIndex := anInteger. - self open \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/previous.st b/repository/Mirage.package/MIModel.class/instance/previous.st deleted file mode 100644 index 9eaedde..0000000 --- a/repository/Mirage.package/MIModel.class/instance/previous.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -previous - currentIndex := self previousIndex. - self announceWindowSelected \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/previousIndex.st b/repository/Mirage.package/MIModel.class/instance/previousIndex.st deleted file mode 100644 index 2f12dea..0000000 --- a/repository/Mirage.package/MIModel.class/instance/previousIndex.st +++ /dev/null @@ -1,6 +0,0 @@ -index computing -previousIndex - "Computes the value of the previous index and returns it. Does not change #currentIndex inst. var." - ^ currentIndex = 1 - ifTrue: [ self windowsManaged size ] - ifFalse: [ currentIndex - 1 ]. \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/previousWindow.st b/repository/Mirage.package/MIModel.class/instance/previousWindow.st deleted file mode 100644 index fad9fa1..0000000 --- a/repository/Mirage.package/MIModel.class/instance/previousWindow.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -previousWindow - ^ self windowsManaged at: self previousIndex \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/shortcutOn.do..st b/repository/Mirage.package/MIModel.class/instance/shortcutOn.do..st deleted file mode 100644 index 7916647..0000000 --- a/repository/Mirage.package/MIModel.class/instance/shortcutOn.do..st +++ /dev/null @@ -1,3 +0,0 @@ -shortcuts -shortcutOn: aKeyCombination do: aBlock - ^ background on: aKeyCombination do: aBlock \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/useWindowsOrderedByTaskbar.st b/repository/Mirage.package/MIModel.class/instance/useWindowsOrderedByTaskbar.st deleted file mode 100644 index ef9a2f1..0000000 --- a/repository/Mirage.package/MIModel.class/instance/useWindowsOrderedByTaskbar.st +++ /dev/null @@ -1,4 +0,0 @@ -settings -useWindowsOrderedByTaskbar - - self windowsManaged: self windowsOrderedByTaskbar \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/useWindowsOrderedByWorld.st b/repository/Mirage.package/MIModel.class/instance/useWindowsOrderedByWorld.st deleted file mode 100644 index f5b0da8..0000000 --- a/repository/Mirage.package/MIModel.class/instance/useWindowsOrderedByWorld.st +++ /dev/null @@ -1,4 +0,0 @@ -settings -useWindowsOrderedByWorld - - self windowsManaged: self windowsOrderedByWorld \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/windowsManaged..st b/repository/Mirage.package/MIModel.class/instance/windowsManaged..st deleted file mode 100644 index 83a38f6..0000000 --- a/repository/Mirage.package/MIModel.class/instance/windowsManaged..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -windowsManaged: anObject - windowsManaged := anObject \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/instance/windowsManaged.st b/repository/Mirage.package/MIModel.class/instance/windowsManaged.st deleted file mode 100644 index e2bb009..0000000 --- a/repository/Mirage.package/MIModel.class/instance/windowsManaged.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -windowsManaged - ^ windowsManaged \ No newline at end of file diff --git a/repository/Mirage.package/MIModel.class/methodProperties.json b/repository/Mirage.package/MIModel.class/methodProperties.json deleted file mode 100644 index fdd82db..0000000 --- a/repository/Mirage.package/MIModel.class/methodProperties.json +++ /dev/null @@ -1,46 +0,0 @@ -{ - "class" : { - "createGlobalKMCategory" : "JulienDelplanque 6/17/2016 12:11", - "createOpenShortcut" : "JulienDelplanque 7/17/2016 14:37", - "globalKMCategory" : "JulienDelplanque 6/20/2016 11:38", - "globalKMCategoryName" : "JulienDelplanque 6/17/2016 12:11", - "install" : "JulienDelplanque 6/30/2016 15:03", - "install:" : "JulienDelplanque 6/19/2016 11:46", - "isInstalled" : "JulienDelplanque 6/19/2016 17:54", - "open" : "JulienDelplanque 7/1/2016 18:48", - "openWithIndex:" : "JulienDelplanque 7/6/2016 08:03", - "removeShortcuts" : "JulienDelplanque 6/17/2016 16:55", - "uninstall" : "JulienDelplanque 6/30/2016 15:03", - "updateSettingBrowsers" : "JulienDelplanque 6/30/2016 15:03", - "views" : "JulienDelplanque 7/17/2016 12:26", - "windowsOrderingMethod" : "JulienDelplanque 7/17/2016 12:34", - "windowsOrderingMethod:" : "JulienDelplanque 7/1/2016 18:45" }, - "instance" : { - "announce:" : "JulienDelplanque 6/16/2016 16:44", - "announceCloseRequest" : "JulienDelplanque 7/17/2016 12:22", - "announceOpenRequest" : "JulienDelplanque 7/17/2016 12:22", - "announceWindowSelected" : "JulienDelplanque 7/17/2016 12:22", - "announcer" : "JulienDelplanque 6/16/2016 16:44", - "background" : "JulienDelplanque 6/30/2016 09:54", - "background:" : "JulienDelplanque 6/30/2016 09:54", - "close" : "JulienDelplanque 6/16/2016 19:45", - "closeCurrentWindow" : "JulienDelplanque 7/17/2016 14:37", - "currentIndex" : "JulienDelplanque 6/20/2016 22:32", - "currentWindow" : "JulienDelplanque 6/16/2016 21:26", - "initialize" : "JulienDelplanque 6/30/2016 09:58", - "initializeBackground" : "JulienDelplanque 7/17/2016 12:28", - "manageAtLeastOneWindow" : "JulienDelplanque 6/30/2016 15:33", - "next" : "JulienDelplanque 6/21/2016 16:35", - "nextIndex" : "JulienDelplanque 6/24/2016 17:03", - "nextWindow" : "JulienDelplanque 6/16/2016 21:49", - "open" : "JulienDelplanque 6/30/2016 15:33", - "openCurrentWindow" : "JulienDelplanque 7/17/2016 14:37", - "openWithIndex:" : "JulienDelplanque 7/6/2016 08:03", - "previous" : "JulienDelplanque 6/21/2016 16:35", - "previousIndex" : "JulienDelplanque 6/24/2016 17:04", - "previousWindow" : "JulienDelplanque 6/16/2016 21:48", - "shortcutOn:do:" : "JulienDelplanque 7/6/2016 17:50", - "useWindowsOrderedByTaskbar" : "JulienDelplanque 7/17/2016 13:54", - "useWindowsOrderedByWorld" : "JulienDelplanque 7/17/2016 13:54", - "windowsManaged" : "JulienDelplanque 6/16/2016 17:18", - "windowsManaged:" : "JulienDelplanque 6/25/2016 17:39" } } diff --git a/repository/Mirage.package/MIModel.class/properties.json b/repository/Mirage.package/MIModel.class/properties.json deleted file mode 100644 index 543fe52..0000000 --- a/repository/Mirage.package/MIModel.class/properties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "category" : "Mirage-Model", - "classinstvars" : [ - "windowsOrderingMethod" ], - "classtraitcomposition" : "MIWindowManipulator classTrait", - "classvars" : [ - ], - "commentStamp" : "JulienDelplanque 6/16/2016 18:39", - "instvars" : [ - "announcer", - "windowsManaged", - "currentIndex", - "background" ], - "name" : "MIModel", - "pools" : [ - ], - "super" : "Object", - "traitcomposition" : "MIWindowManipulator", - "type" : "normal" } diff --git a/repository/Mirage.package/MIModelAnnouncement.class/README.md b/repository/Mirage.package/MIModelAnnouncement.class/README.md deleted file mode 100644 index 2e352d1..0000000 --- a/repository/Mirage.package/MIModelAnnouncement.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a generic announcement coming from a WPModel. \ No newline at end of file diff --git a/repository/Mirage.package/MIModelAnnouncement.class/instance/background.st b/repository/Mirage.package/MIModelAnnouncement.class/instance/background.st deleted file mode 100644 index 5da03f3..0000000 --- a/repository/Mirage.package/MIModelAnnouncement.class/instance/background.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -background - ^ self model background \ No newline at end of file diff --git a/repository/Mirage.package/MIModelAnnouncement.class/instance/model..st b/repository/Mirage.package/MIModelAnnouncement.class/instance/model..st deleted file mode 100644 index 28b5358..0000000 --- a/repository/Mirage.package/MIModelAnnouncement.class/instance/model..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -model: anObject - model := anObject \ No newline at end of file diff --git a/repository/Mirage.package/MIModelAnnouncement.class/instance/model.st b/repository/Mirage.package/MIModelAnnouncement.class/instance/model.st deleted file mode 100644 index ab508f2..0000000 --- a/repository/Mirage.package/MIModelAnnouncement.class/instance/model.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -model - ^ model \ No newline at end of file diff --git a/repository/Mirage.package/MIModelAnnouncement.class/instance/nextWindow.st b/repository/Mirage.package/MIModelAnnouncement.class/instance/nextWindow.st deleted file mode 100644 index 7119b0d..0000000 --- a/repository/Mirage.package/MIModelAnnouncement.class/instance/nextWindow.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -nextWindow - ^ self model nextWindow \ No newline at end of file diff --git a/repository/Mirage.package/MIModelAnnouncement.class/instance/previousWindow.st b/repository/Mirage.package/MIModelAnnouncement.class/instance/previousWindow.st deleted file mode 100644 index 1e120a5..0000000 --- a/repository/Mirage.package/MIModelAnnouncement.class/instance/previousWindow.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -previousWindow - ^ self model previousWindow \ No newline at end of file diff --git a/repository/Mirage.package/MIModelAnnouncement.class/instance/window.st b/repository/Mirage.package/MIModelAnnouncement.class/instance/window.st deleted file mode 100644 index 26b8470..0000000 --- a/repository/Mirage.package/MIModelAnnouncement.class/instance/window.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -window - ^ self model currentWindow \ No newline at end of file diff --git a/repository/Mirage.package/MIModelAnnouncement.class/instance/windows.st b/repository/Mirage.package/MIModelAnnouncement.class/instance/windows.st deleted file mode 100644 index 6fdf2cc..0000000 --- a/repository/Mirage.package/MIModelAnnouncement.class/instance/windows.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -windows - ^ self model windowsManaged \ No newline at end of file diff --git a/repository/Mirage.package/MIModelAnnouncement.class/methodProperties.json b/repository/Mirage.package/MIModelAnnouncement.class/methodProperties.json deleted file mode 100644 index 6778175..0000000 --- a/repository/Mirage.package/MIModelAnnouncement.class/methodProperties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "background" : "JulienDelplanque 6/30/2016 10:11", - "model" : "JulienDelplanque 6/17/2016 07:10", - "model:" : "JulienDelplanque 6/17/2016 07:10", - "nextWindow" : "JulienDelplanque 6/17/2016 11:50", - "previousWindow" : "JulienDelplanque 6/17/2016 11:50", - "window" : "JulienDelplanque 6/17/2016 11:48", - "windows" : "JulienDelplanque 6/17/2016 11:50" } } diff --git a/repository/Mirage.package/MIModelAnnouncement.class/properties.json b/repository/Mirage.package/MIModelAnnouncement.class/properties.json deleted file mode 100644 index 522896b..0000000 --- a/repository/Mirage.package/MIModelAnnouncement.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Mirage-Announcements", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "JulienDelplanque 6/17/2016 07:11", - "instvars" : [ - "model" ], - "name" : "MIModelAnnouncement", - "pools" : [ - ], - "super" : "Announcement", - "type" : "normal" } diff --git a/repository/Mirage.package/MIModelListener.trait/README.md b/repository/Mirage.package/MIModelListener.trait/README.md deleted file mode 100644 index 8959490..0000000 --- a/repository/Mirage.package/MIModelListener.trait/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I define the behavior of an object that listen to a WPModel. - -The following methods **must** be overrided by the classes using me: -- #handleCloseRequest: For actions to be done when the user quit the windows previewer. -- #handleOpenRequest: For actions to be done when the user open the window previewer. -- #handleWindowSelected: For actions to be done when the user selected another window. \ No newline at end of file diff --git a/repository/Mirage.package/MIModelListener.trait/instance/handleCloseRequest..st b/repository/Mirage.package/MIModelListener.trait/instance/handleCloseRequest..st deleted file mode 100644 index 1bd047c..0000000 --- a/repository/Mirage.package/MIModelListener.trait/instance/handleCloseRequest..st +++ /dev/null @@ -1,4 +0,0 @@ -announcement handling -handleCloseRequest: aMICloseRequest - "Override this method to define the actions to do when the previewer is closed." - ^ self explicitRequirement \ No newline at end of file diff --git a/repository/Mirage.package/MIModelListener.trait/instance/handleOpenRequest..st b/repository/Mirage.package/MIModelListener.trait/instance/handleOpenRequest..st deleted file mode 100644 index 9bd27a2..0000000 --- a/repository/Mirage.package/MIModelListener.trait/instance/handleOpenRequest..st +++ /dev/null @@ -1,4 +0,0 @@ -announcement handling -handleOpenRequest: aMIOpenRequest - "Override this method to define the actions to do when the previewer is opened." - ^ self explicitRequirement \ No newline at end of file diff --git a/repository/Mirage.package/MIModelListener.trait/instance/handleWindowSelected..st b/repository/Mirage.package/MIModelListener.trait/instance/handleWindowSelected..st deleted file mode 100644 index e62d7f8..0000000 --- a/repository/Mirage.package/MIModelListener.trait/instance/handleWindowSelected..st +++ /dev/null @@ -1,4 +0,0 @@ -announcement handling -handleWindowSelected: aMIThumbnailSelected - "Override this method to define the actions to do when the previewer's current window change." - ^ self explicitRequirement \ No newline at end of file diff --git a/repository/Mirage.package/MIModelListener.trait/instance/listenToWPModelAnnouncementsOf..st b/repository/Mirage.package/MIModelListener.trait/instance/listenToWPModelAnnouncementsOf..st deleted file mode 100644 index aaae3ef..0000000 --- a/repository/Mirage.package/MIModelListener.trait/instance/listenToWPModelAnnouncementsOf..st +++ /dev/null @@ -1,6 +0,0 @@ -listening -listenToWPModelAnnouncementsOf: aMIModel - aMIModel announcer - when: MIWindowSelected send: #handleWindowSelected: to: self; - when: MICloseRequest send: #handleCloseRequest: to: self; - when: MIOpenRequest send: #handleOpenRequest: to: self \ No newline at end of file diff --git a/repository/Mirage.package/MIModelListener.trait/methodProperties.json b/repository/Mirage.package/MIModelListener.trait/methodProperties.json deleted file mode 100644 index eb6dbd8..0000000 --- a/repository/Mirage.package/MIModelListener.trait/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "handleCloseRequest:" : "JulienDelplanque 10/26/2016 20:36", - "handleOpenRequest:" : "JulienDelplanque 10/26/2016 20:36", - "handleWindowSelected:" : "JulienDelplanque 10/26/2016 20:36", - "listenToWPModelAnnouncementsOf:" : "JulienDelplanque 10/26/2016 20:36" } } diff --git a/repository/Mirage.package/MIModelListener.trait/properties.json b/repository/Mirage.package/MIModelListener.trait/properties.json deleted file mode 100644 index 912a85f..0000000 --- a/repository/Mirage.package/MIModelListener.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Mirage-Traits", - "commentStamp" : "JulienDelplanque 6/21/2016 19:06", - "name" : "MIModelListener" } diff --git a/repository/Mirage.package/MIOpenRequest.class/README.md b/repository/Mirage.package/MIOpenRequest.class/README.md deleted file mode 100644 index 71a2527..0000000 --- a/repository/Mirage.package/MIOpenRequest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I announce the fact that the view shoud appear on the screen. \ No newline at end of file diff --git a/repository/Mirage.package/MIOpenRequest.class/methodProperties.json b/repository/Mirage.package/MIOpenRequest.class/methodProperties.json deleted file mode 100644 index 0e4a662..0000000 --- a/repository/Mirage.package/MIOpenRequest.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/repository/Mirage.package/MIOpenRequest.class/properties.json b/repository/Mirage.package/MIOpenRequest.class/properties.json deleted file mode 100644 index 2706921..0000000 --- a/repository/Mirage.package/MIOpenRequest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Mirage-Announcements", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "JulienDelplanque 6/17/2016 11:51", - "instvars" : [ - ], - "name" : "MIOpenRequest", - "pools" : [ - ], - "super" : "MIModelAnnouncement", - "type" : "normal" } diff --git a/repository/Mirage.package/MIPreviewerShortcuts.trait/README.md b/repository/Mirage.package/MIPreviewerShortcuts.trait/README.md deleted file mode 100644 index cc184b6..0000000 --- a/repository/Mirage.package/MIPreviewerShortcuts.trait/README.md +++ /dev/null @@ -1,3 +0,0 @@ -I have methods to create the shortcuts of a "previewer" ie an object that has the duty to display windows preview to the use for him to choose which one he want to activate. - -Any user of this trait must implements #on:do: for shortcuts creations (see #createShortcutsOn:). \ No newline at end of file diff --git a/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/closeShortcut.st b/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/closeShortcut.st deleted file mode 100644 index 27f16b0..0000000 --- a/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/closeShortcut.st +++ /dev/null @@ -1,3 +0,0 @@ -shortcuts -closeShortcut - ^ KMUntypeableSingleKeyCombination escape \ No newline at end of file diff --git a/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/closeWindowShortcut.st b/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/closeWindowShortcut.st deleted file mode 100644 index 4cf3f9e..0000000 --- a/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/closeWindowShortcut.st +++ /dev/null @@ -1,3 +0,0 @@ -shortcuts -closeWindowShortcut - ^ KMModifier meta + $w asKeyCombination \ No newline at end of file diff --git a/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/createShortcutsOn..st b/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/createShortcutsOn..st deleted file mode 100644 index f27389e..0000000 --- a/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/createShortcutsOn..st +++ /dev/null @@ -1,8 +0,0 @@ -shortcuts creation -createShortcutsOn: aWPModel - self - on: self openWindowShortcut do: [ aWPModel openCurrentWindow ]; - on: self closeShortcut do: [ aWPModel close ]; - on: self nextShortcut do: [ aWPModel next ]; - on: self previousShortcut do: [ aWPModel previous ]; - on: self closeWindowShortcut do: [ aWPModel closeCurrentWindow ] \ No newline at end of file diff --git a/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/nextShortcut.st b/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/nextShortcut.st deleted file mode 100644 index 341f29b..0000000 --- a/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/nextShortcut.st +++ /dev/null @@ -1,4 +0,0 @@ -shortcuts -nextShortcut - ^ KMUntypeableSingleKeyCombination tab - | KMUntypeableSingleKeyCombination arrowRight \ No newline at end of file diff --git a/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/openWindowShortcut.st b/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/openWindowShortcut.st deleted file mode 100644 index e7e6e64..0000000 --- a/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/openWindowShortcut.st +++ /dev/null @@ -1,6 +0,0 @@ -shortcuts -openWindowShortcut - ^ Character space asKeyCombination - | KMUntypeableSingleKeyCombination enter - | Character cr asKeyCombination - | Character lf asKeyCombination \ No newline at end of file diff --git a/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/previousShortcut.st b/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/previousShortcut.st deleted file mode 100644 index 18c18a6..0000000 --- a/repository/Mirage.package/MIPreviewerShortcuts.trait/instance/previousShortcut.st +++ /dev/null @@ -1,4 +0,0 @@ -shortcuts -previousShortcut - ^ (KMModifier shift + KMUntypeableSingleKeyCombination tab) - | KMUntypeableSingleKeyCombination arrowLeft \ No newline at end of file diff --git a/repository/Mirage.package/MIPreviewerShortcuts.trait/methodProperties.json b/repository/Mirage.package/MIPreviewerShortcuts.trait/methodProperties.json deleted file mode 100644 index 650da4e..0000000 --- a/repository/Mirage.package/MIPreviewerShortcuts.trait/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "closeShortcut" : "JulienDelplanque 7/1/2016 17:55", - "closeWindowShortcut" : "JulienDelplanque 7/6/2016 17:57", - "createShortcutsOn:" : "JulienDelplanque 7/6/2016 17:48", - "nextShortcut" : "JulienDelplanque 7/1/2016 17:56", - "openWindowShortcut" : "JulienDelplanque 7/1/2016 17:55", - "previousShortcut" : "JulienDelplanque 7/1/2016 17:56" } } diff --git a/repository/Mirage.package/MIPreviewerShortcuts.trait/properties.json b/repository/Mirage.package/MIPreviewerShortcuts.trait/properties.json deleted file mode 100644 index de17afd..0000000 --- a/repository/Mirage.package/MIPreviewerShortcuts.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Mirage-Traits", - "commentStamp" : "JulienDelplanque 7/1/2016 17:58", - "name" : "MIPreviewerShortcuts" } diff --git a/repository/Mirage.package/MISettings.class/README.md b/repository/Mirage.package/MISettings.class/README.md deleted file mode 100644 index 460f98f..0000000 --- a/repository/Mirage.package/MISettings.class/README.md +++ /dev/null @@ -1 +0,0 @@ -The settings for the Windows Previewer. \ No newline at end of file diff --git a/repository/Mirage.package/MISettings.class/class/windowsOrderingChoices.st b/repository/Mirage.package/MISettings.class/class/windowsOrderingChoices.st deleted file mode 100644 index e89a6a4..0000000 --- a/repository/Mirage.package/MISettings.class/class/windowsOrderingChoices.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -windowsOrderingChoices - ^ ((Pragma allNamed: #mirageWindowsManagementNamed: in: MIModel) - collect: [ :pragma | - pragma arguments first -> pragma selector ]) \ No newline at end of file diff --git a/repository/Mirage.package/MISettings.class/class/wpActivateSettingsOn..st b/repository/Mirage.package/MISettings.class/class/wpActivateSettingsOn..st deleted file mode 100644 index 070d718..0000000 --- a/repository/Mirage.package/MISettings.class/class/wpActivateSettingsOn..st +++ /dev/null @@ -1,10 +0,0 @@ -settings-definition -wpActivateSettingsOn: aBuilder - - (aBuilder setting: #mirage) - label: 'Activate'; - description: 'Activate the window previewer' translated; - setSelector: #install:; - getSelector: #isInstalled; - target: MIModel; - parent: #mirageSettings. \ No newline at end of file diff --git a/repository/Mirage.package/MISettings.class/class/wpOpenShortcutSettingsOn..st b/repository/Mirage.package/MISettings.class/class/wpOpenShortcutSettingsOn..st deleted file mode 100644 index 39f10fe..0000000 --- a/repository/Mirage.package/MISettings.class/class/wpOpenShortcutSettingsOn..st +++ /dev/null @@ -1,11 +0,0 @@ -settings-definition -wpOpenShortcutSettingsOn: aBuilder - - MIModel isInstalled - ifTrue: [ - (aBuilder shortcut: #mirageOpenShortcutSetting) - label: 'Open shortcut'; - description: 'Set the shortcut to open the windows previewer' translated; - category: MIModel globalKMCategoryName; - shortcutName: #'Open windows previews'; - parent: #mirageSettings ] \ No newline at end of file diff --git a/repository/Mirage.package/MISettings.class/class/wpSettingsOn..st b/repository/Mirage.package/MISettings.class/class/wpSettingsOn..st deleted file mode 100644 index 08320f5..0000000 --- a/repository/Mirage.package/MISettings.class/class/wpSettingsOn..st +++ /dev/null @@ -1,7 +0,0 @@ -settings-definition -wpSettingsOn: aBuilder - - - (aBuilder group: #mirageSettings) - label: 'Mirage' translated; - parent: #tools. \ No newline at end of file diff --git a/repository/Mirage.package/MISettings.class/class/wpViewsSettingsOn..st b/repository/Mirage.package/MISettings.class/class/wpViewsSettingsOn..st deleted file mode 100644 index 753b7c6..0000000 --- a/repository/Mirage.package/MISettings.class/class/wpViewsSettingsOn..st +++ /dev/null @@ -1,8 +0,0 @@ -settings-definition -wpViewsSettingsOn: aBuilder - - - (aBuilder group: #mirageViewsSettings) - label: 'Views to use' translated; - parent: #mirageSettings - \ No newline at end of file diff --git a/repository/Mirage.package/MISettings.class/class/wpWindowsManagementSettingOn..st b/repository/Mirage.package/MISettings.class/class/wpWindowsManagementSettingOn..st deleted file mode 100644 index 0c8d378..0000000 --- a/repository/Mirage.package/MISettings.class/class/wpWindowsManagementSettingOn..st +++ /dev/null @@ -1,11 +0,0 @@ -settings-definition -wpWindowsManagementSettingOn: aBuilder - - (aBuilder pickOne: #windowsOrder) - label: 'Windows management'; - description: 'Set the windows management needed' translated; - target: MIModel; - domainValues: self windowsOrderingChoices; - setSelector: #windowsOrderingMethod:; - getSelector: #windowsOrderingMethod; - parent: #mirageSettings \ No newline at end of file diff --git a/repository/Mirage.package/MISettings.class/methodProperties.json b/repository/Mirage.package/MISettings.class/methodProperties.json deleted file mode 100644 index 500db5a..0000000 --- a/repository/Mirage.package/MISettings.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "class" : { - "windowsOrderingChoices" : "JulienDelplanque 7/17/2016 13:54", - "wpActivateSettingsOn:" : "JulienDelplanque 7/17/2016 13:54", - "wpOpenShortcutSettingsOn:" : "JulienDelplanque 7/17/2016 13:53", - "wpSettingsOn:" : "JulienDelplanque 7/17/2016 14:04", - "wpViewsSettingsOn:" : "JulienDelplanque 7/17/2016 13:53", - "wpWindowsManagementSettingOn:" : "JulienDelplanque 9/26/2016 13:01" }, - "instance" : { - } } diff --git a/repository/Mirage.package/MISettings.class/properties.json b/repository/Mirage.package/MISettings.class/properties.json deleted file mode 100644 index 3c8e0ca..0000000 --- a/repository/Mirage.package/MISettings.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Mirage-Settings", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "JulienDelplanque 6/19/2016 17:57", - "instvars" : [ - ], - "name" : "MISettings", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/repository/Mirage.package/MITaskbarManipulator.trait/README.md b/repository/Mirage.package/MITaskbarManipulator.trait/README.md deleted file mode 100644 index f9e79da..0000000 --- a/repository/Mirage.package/MITaskbarManipulator.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -I define methods to manipulate the TaskbarMorph. \ No newline at end of file diff --git a/repository/Mirage.package/MITaskbarManipulator.trait/instance/taskbarMorph.st b/repository/Mirage.package/MITaskbarManipulator.trait/instance/taskbarMorph.st deleted file mode 100644 index b93068a..0000000 --- a/repository/Mirage.package/MITaskbarManipulator.trait/instance/taskbarMorph.st +++ /dev/null @@ -1,3 +0,0 @@ -taskbar -taskbarMorph - ^ self taskbarMorphIn: World \ No newline at end of file diff --git a/repository/Mirage.package/MITaskbarManipulator.trait/instance/taskbarMorphIn..st b/repository/Mirage.package/MITaskbarManipulator.trait/instance/taskbarMorphIn..st deleted file mode 100644 index 5b329cf..0000000 --- a/repository/Mirage.package/MITaskbarManipulator.trait/instance/taskbarMorphIn..st +++ /dev/null @@ -1,3 +0,0 @@ -taskbar -taskbarMorphIn: aWorldMorph - ^ aWorldMorph submorphs detect: [ :morph | morph isKindOf: TaskbarMorph ] \ No newline at end of file diff --git a/repository/Mirage.package/MITaskbarManipulator.trait/methodProperties.json b/repository/Mirage.package/MITaskbarManipulator.trait/methodProperties.json deleted file mode 100644 index 4879ce6..0000000 --- a/repository/Mirage.package/MITaskbarManipulator.trait/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "taskbarMorph" : "JulienDelplanque 6/17/2016 22:39", - "taskbarMorphIn:" : "JulienDelplanque 6/17/2016 22:39" } } diff --git a/repository/Mirage.package/MITaskbarManipulator.trait/properties.json b/repository/Mirage.package/MITaskbarManipulator.trait/properties.json deleted file mode 100644 index 5e32a6e..0000000 --- a/repository/Mirage.package/MITaskbarManipulator.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Mirage-Traits", - "commentStamp" : "JulienDelplanque 6/17/2016 22:40", - "name" : "MITaskbarManipulator" } diff --git a/repository/Mirage.package/MIViewSetting.trait/README.md b/repository/Mirage.package/MIViewSetting.trait/README.md deleted file mode 100644 index ee597a2..0000000 --- a/repository/Mirage.package/MIViewSetting.trait/README.md +++ /dev/null @@ -1,4 +0,0 @@ -I am the trait that should be used to be able to activate a view from the Settings browser. - -- #activate: Must be overrided to activate the view according to a Boolean given as parameter. -- #isActivated Must be overrided to return true if the view is activated, else false. \ No newline at end of file diff --git a/repository/Mirage.package/MIViewSetting.trait/class/activate..st b/repository/Mirage.package/MIViewSetting.trait/class/activate..st deleted file mode 100644 index 7f55bc9..0000000 --- a/repository/Mirage.package/MIViewSetting.trait/class/activate..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -activate: aBoolean - "Override this method such that if true is given as parameter, the view is - activated else, it is not." - self explicitRequirement \ No newline at end of file diff --git a/repository/Mirage.package/MIViewSetting.trait/class/buildSettingNamed.with..st b/repository/Mirage.package/MIViewSetting.trait/class/buildSettingNamed.with..st deleted file mode 100644 index 4faa262..0000000 --- a/repository/Mirage.package/MIViewSetting.trait/class/buildSettingNamed.with..st +++ /dev/null @@ -1,8 +0,0 @@ -setting building -buildSettingNamed: aSymbol with: aBuilder - ^ (aBuilder setting: aSymbol) - setSelector: #activate:; - getSelector: #isActivated; - target: self; - parent: self parent; - yourself \ No newline at end of file diff --git a/repository/Mirage.package/MIViewSetting.trait/class/isActivated.st b/repository/Mirage.package/MIViewSetting.trait/class/isActivated.st deleted file mode 100644 index a964b73..0000000 --- a/repository/Mirage.package/MIViewSetting.trait/class/isActivated.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -isActivated - "Override this method such that it returns true if the view is activated, else false." - ^ self explicitRequirement \ No newline at end of file diff --git a/repository/Mirage.package/MIViewSetting.trait/class/parent.st b/repository/Mirage.package/MIViewSetting.trait/class/parent.st deleted file mode 100644 index 0b593ca..0000000 --- a/repository/Mirage.package/MIViewSetting.trait/class/parent.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -parent - ^ #mirageViewsSettings \ No newline at end of file diff --git a/repository/Mirage.package/MIViewSetting.trait/class/wpSettingOn..st b/repository/Mirage.package/MIViewSetting.trait/class/wpSettingOn..st deleted file mode 100644 index 66bd824..0000000 --- a/repository/Mirage.package/MIViewSetting.trait/class/wpSettingOn..st +++ /dev/null @@ -1,6 +0,0 @@ -settings -wpSettingOn: aBuilder - "Override this method to make the view appears in the Setting browser. - You will probably call #buildSettingNamed:with: when override it. - Do not forget to use pragma." - self explicitRequirement \ No newline at end of file diff --git a/repository/Mirage.package/MIViewSetting.trait/methodProperties.json b/repository/Mirage.package/MIViewSetting.trait/methodProperties.json deleted file mode 100644 index c470923..0000000 --- a/repository/Mirage.package/MIViewSetting.trait/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "class" : { - "activate:" : "JulienDelplanque 7/3/2016 11:55", - "buildSettingNamed:with:" : "JulienDelplanque 6/30/2016 12:47", - "isActivated" : "JulienDelplanque 7/3/2016 11:54", - "parent" : "JulienDelplanque 7/17/2016 13:58", - "wpSettingOn:" : "JulienDelplanque 7/3/2016 11:57" }, - "instance" : { - } } diff --git a/repository/Mirage.package/MIViewSetting.trait/properties.json b/repository/Mirage.package/MIViewSetting.trait/properties.json deleted file mode 100644 index df2b597..0000000 --- a/repository/Mirage.package/MIViewSetting.trait/properties.json +++ /dev/null @@ -1,4 +0,0 @@ -{ - "category" : "Mirage-Traits", - "commentStamp" : "JulienDelplanque 6/30/2016 12:46", - "name" : "MIViewSetting" } diff --git a/repository/Mirage.package/MIWindowManipulator.trait/README.md b/repository/Mirage.package/MIWindowManipulator.trait/README.md deleted file mode 100644 index 8e59095..0000000 --- a/repository/Mirage.package/MIWindowManipulator.trait/README.md +++ /dev/null @@ -1 +0,0 @@ -I define methods to manipulate windows of a WorldMorph. \ No newline at end of file diff --git a/repository/Mirage.package/MIWindowManipulator.trait/instance/topWindow.st b/repository/Mirage.package/MIWindowManipulator.trait/instance/topWindow.st deleted file mode 100644 index 028f66c..0000000 --- a/repository/Mirage.package/MIWindowManipulator.trait/instance/topWindow.st +++ /dev/null @@ -1,3 +0,0 @@ -windows manipulation -topWindow - ^ self topWindowIn: World \ No newline at end of file diff --git a/repository/Mirage.package/MIWindowManipulator.trait/instance/topWindowIn..st b/repository/Mirage.package/MIWindowManipulator.trait/instance/topWindowIn..st deleted file mode 100644 index 1db40a7..0000000 --- a/repository/Mirage.package/MIWindowManipulator.trait/instance/topWindowIn..st +++ /dev/null @@ -1,5 +0,0 @@ -windows manipulation -topWindowIn: aWorldMorph - ^ (self windowsIn: aWorldMorph) - detect: #isTopWindow - ifNone: [ ENoTopWindow signal ] \ No newline at end of file diff --git a/repository/Mirage.package/MIWindowManipulator.trait/instance/windows.st b/repository/Mirage.package/MIWindowManipulator.trait/instance/windows.st deleted file mode 100644 index ead2ed9..0000000 --- a/repository/Mirage.package/MIWindowManipulator.trait/instance/windows.st +++ /dev/null @@ -1,3 +0,0 @@ -windows manipulation -windows - ^ self windowsIn: World \ No newline at end of file diff --git a/repository/Mirage.package/MIWindowManipulator.trait/instance/windowsIn..st b/repository/Mirage.package/MIWindowManipulator.trait/instance/windowsIn..st deleted file mode 100644 index f73e3f3..0000000 --- a/repository/Mirage.package/MIWindowManipulator.trait/instance/windowsIn..st +++ /dev/null @@ -1,3 +0,0 @@ -windows manipulation -windowsIn: aWorldMorph - ^ aWorldMorph submorphs select: [ :morph | morph isKindOf: SystemWindow ] \ No newline at end of file diff --git a/repository/Mirage.package/MIWindowManipulator.trait/instance/windowsOrderedByTaskbar.st b/repository/Mirage.package/MIWindowManipulator.trait/instance/windowsOrderedByTaskbar.st deleted file mode 100644 index 07ad435..0000000 --- a/repository/Mirage.package/MIWindowManipulator.trait/instance/windowsOrderedByTaskbar.st +++ /dev/null @@ -1,3 +0,0 @@ -windows manipulation -windowsOrderedByTaskbar - ^ self windowsOrderedByTaskbarIn: World \ No newline at end of file diff --git a/repository/Mirage.package/MIWindowManipulator.trait/instance/windowsOrderedByTaskbarIn..st b/repository/Mirage.package/MIWindowManipulator.trait/instance/windowsOrderedByTaskbarIn..st deleted file mode 100644 index 82ed283..0000000 --- a/repository/Mirage.package/MIWindowManipulator.trait/instance/windowsOrderedByTaskbarIn..st +++ /dev/null @@ -1,4 +0,0 @@ -windows manipulation -windowsOrderedByTaskbarIn: aWorldMorph - ^ ((self taskbarMorphIn: aWorldMorph) orderedTasks - collect: #morph) select: [ :morph | morph isKindOf: SystemWindow ] \ No newline at end of file diff --git a/repository/Mirage.package/MIWindowManipulator.trait/instance/windowsOrderedByWorld.st b/repository/Mirage.package/MIWindowManipulator.trait/instance/windowsOrderedByWorld.st deleted file mode 100644 index 612601a..0000000 --- a/repository/Mirage.package/MIWindowManipulator.trait/instance/windowsOrderedByWorld.st +++ /dev/null @@ -1,3 +0,0 @@ -windows manipulation -windowsOrderedByWorld - ^ self windowsOrderedByWorldIn: World \ No newline at end of file diff --git a/repository/Mirage.package/MIWindowManipulator.trait/instance/windowsOrderedByWorldIn..st b/repository/Mirage.package/MIWindowManipulator.trait/instance/windowsOrderedByWorldIn..st deleted file mode 100644 index dbc46f0..0000000 --- a/repository/Mirage.package/MIWindowManipulator.trait/instance/windowsOrderedByWorldIn..st +++ /dev/null @@ -1,3 +0,0 @@ -windows manipulation -windowsOrderedByWorldIn: aWorldMorph - ^ aWorldMorph submorphs select: #isSystemWindow \ No newline at end of file diff --git a/repository/Mirage.package/MIWindowManipulator.trait/methodProperties.json b/repository/Mirage.package/MIWindowManipulator.trait/methodProperties.json deleted file mode 100644 index 913879a..0000000 --- a/repository/Mirage.package/MIWindowManipulator.trait/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "topWindow" : "JulienDelplanque 6/15/2016 13:16", - "topWindowIn:" : "JulienDelplanque 6/15/2016 13:12", - "windows" : "JulienDelplanque 6/15/2016 13:16", - "windowsIn:" : "JulienDelplanque 6/15/2016 12:38", - "windowsOrderedByTaskbar" : "JulienDelplanque 6/15/2016 13:16", - "windowsOrderedByTaskbarIn:" : "JulienDelplanque 6/15/2016 14:10", - "windowsOrderedByWorld" : "JulienDelplanque 7/1/2016 18:01", - "windowsOrderedByWorldIn:" : "JulienDelplanque 7/1/2016 18:01" } } diff --git a/repository/Mirage.package/MIWindowManipulator.trait/properties.json b/repository/Mirage.package/MIWindowManipulator.trait/properties.json deleted file mode 100644 index 01b02fc..0000000 --- a/repository/Mirage.package/MIWindowManipulator.trait/properties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "category" : "Mirage-Traits", - "classtraitcomposition" : "MITaskbarManipulator classTrait", - "commentStamp" : "JulienDelplanque 6/15/2016 12:39", - "name" : "MIWindowManipulator", - "traitcomposition" : "MITaskbarManipulator" } diff --git a/repository/Mirage.package/MIWindowSelected.class/README.md b/repository/Mirage.package/MIWindowSelected.class/README.md deleted file mode 100644 index e2dc561..0000000 --- a/repository/Mirage.package/MIWindowSelected.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I announce the fact that the #currentWindow has been selected. \ No newline at end of file diff --git a/repository/Mirage.package/MIWindowSelected.class/methodProperties.json b/repository/Mirage.package/MIWindowSelected.class/methodProperties.json deleted file mode 100644 index 0e4a662..0000000 --- a/repository/Mirage.package/MIWindowSelected.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/repository/Mirage.package/MIWindowSelected.class/properties.json b/repository/Mirage.package/MIWindowSelected.class/properties.json deleted file mode 100644 index a813f84..0000000 --- a/repository/Mirage.package/MIWindowSelected.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Mirage-Announcements", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "JulienDelplanque 6/24/2016 17:31", - "instvars" : [ - ], - "name" : "MIWindowSelected", - "pools" : [ - ], - "super" : "MIModelAnnouncement", - "type" : "normal" } diff --git a/repository/Mirage.package/MacOSPlatform.extension/instance/mirageOpenPreviewerShortcut.st b/repository/Mirage.package/MacOSPlatform.extension/instance/mirageOpenPreviewerShortcut.st deleted file mode 100644 index 6678f4c..0000000 --- a/repository/Mirage.package/MacOSPlatform.extension/instance/mirageOpenPreviewerShortcut.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage -mirageOpenPreviewerShortcut - ^ KMModifier shift + KMUntypeableSingleKeyCombination tab \ No newline at end of file diff --git a/repository/Mirage.package/MacOSPlatform.extension/methodProperties.json b/repository/Mirage.package/MacOSPlatform.extension/methodProperties.json deleted file mode 100644 index 171549a..0000000 --- a/repository/Mirage.package/MacOSPlatform.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "mirageOpenPreviewerShortcut" : "JulienDelplanque 7/17/2016 14:37" } } diff --git a/repository/Mirage.package/MacOSPlatform.extension/properties.json b/repository/Mirage.package/MacOSPlatform.extension/properties.json deleted file mode 100644 index 498a751..0000000 --- a/repository/Mirage.package/MacOSPlatform.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MacOSPlatform" } diff --git a/repository/Mirage.package/Morph.extension/instance/mirageLevel..st b/repository/Mirage.package/Morph.extension/instance/mirageLevel..st deleted file mode 100644 index 5b01997..0000000 --- a/repository/Mirage.package/Morph.extension/instance/mirageLevel..st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage -mirageLevel: anInteger - ^ self setProperty: #mirageLevel toValue: anInteger \ No newline at end of file diff --git a/repository/Mirage.package/Morph.extension/instance/mirageLevel.st b/repository/Mirage.package/Morph.extension/instance/mirageLevel.st deleted file mode 100644 index d02c73b..0000000 --- a/repository/Mirage.package/Morph.extension/instance/mirageLevel.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage -mirageLevel - ^ self valueOfProperty: #mirageLevel ifAbsent: [ ^ Float infinity ] \ No newline at end of file diff --git a/repository/Mirage.package/Morph.extension/methodProperties.json b/repository/Mirage.package/Morph.extension/methodProperties.json deleted file mode 100644 index 0fed9eb..0000000 --- a/repository/Mirage.package/Morph.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "mirageLevel" : "JulienDelplanque 10/24/2016 18:10", - "mirageLevel:" : "JulienDelplanque 10/24/2016 18:11" } } diff --git a/repository/Mirage.package/Morph.extension/properties.json b/repository/Mirage.package/Morph.extension/properties.json deleted file mode 100644 index 58989fd..0000000 --- a/repository/Mirage.package/Morph.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Morph" } diff --git a/repository/Mirage.package/OSPlatform.extension/instance/mirageOpenPreviewerShortcut.st b/repository/Mirage.package/OSPlatform.extension/instance/mirageOpenPreviewerShortcut.st deleted file mode 100644 index 99e938c..0000000 --- a/repository/Mirage.package/OSPlatform.extension/instance/mirageOpenPreviewerShortcut.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage -mirageOpenPreviewerShortcut - ^ self shouldBeImplemented \ No newline at end of file diff --git a/repository/Mirage.package/OSPlatform.extension/methodProperties.json b/repository/Mirage.package/OSPlatform.extension/methodProperties.json deleted file mode 100644 index 171549a..0000000 --- a/repository/Mirage.package/OSPlatform.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "mirageOpenPreviewerShortcut" : "JulienDelplanque 7/17/2016 14:37" } } diff --git a/repository/Mirage.package/OSPlatform.extension/properties.json b/repository/Mirage.package/OSPlatform.extension/properties.json deleted file mode 100644 index 8a8a260..0000000 --- a/repository/Mirage.package/OSPlatform.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "OSPlatform" } diff --git a/repository/Mirage.package/Object.extension/instance/isWindowsPreviewer.st b/repository/Mirage.package/Object.extension/instance/isWindowsPreviewer.st deleted file mode 100644 index a0ee29d..0000000 --- a/repository/Mirage.package/Object.extension/instance/isWindowsPreviewer.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage -isWindowsPreviewer - ^ false \ No newline at end of file diff --git a/repository/Mirage.package/Object.extension/methodProperties.json b/repository/Mirage.package/Object.extension/methodProperties.json deleted file mode 100644 index 069fa8b..0000000 --- a/repository/Mirage.package/Object.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "isWindowsPreviewer" : "JulienDelplanque 6/17/2016 17:54" } } diff --git a/repository/Mirage.package/Object.extension/properties.json b/repository/Mirage.package/Object.extension/properties.json deleted file mode 100644 index 3d3b9ec..0000000 --- a/repository/Mirage.package/Object.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Object" } diff --git a/repository/Mirage.package/SystemWindow.extension/instance/mirageClose.st b/repository/Mirage.package/SystemWindow.extension/instance/mirageClose.st deleted file mode 100644 index 5d1f52a..0000000 --- a/repository/Mirage.package/SystemWindow.extension/instance/mirageClose.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage -mirageClose - ^ self close \ No newline at end of file diff --git a/repository/Mirage.package/SystemWindow.extension/instance/mirageOpen.st b/repository/Mirage.package/SystemWindow.extension/instance/mirageOpen.st deleted file mode 100644 index 5da0c96..0000000 --- a/repository/Mirage.package/SystemWindow.extension/instance/mirageOpen.st +++ /dev/null @@ -1,7 +0,0 @@ -*Mirage -mirageOpen - self isMinimized - ifTrue: [ self restore ] - ifFalse: [ - self isActive - ifFalse: [self activate] ] \ No newline at end of file diff --git a/repository/Mirage.package/SystemWindow.extension/methodProperties.json b/repository/Mirage.package/SystemWindow.extension/methodProperties.json deleted file mode 100644 index 87a3f00..0000000 --- a/repository/Mirage.package/SystemWindow.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "mirageClose" : "JulienDelplanque 7/17/2016 14:37", - "mirageOpen" : "JulienDelplanque 7/17/2016 14:37" } } diff --git a/repository/Mirage.package/SystemWindow.extension/properties.json b/repository/Mirage.package/SystemWindow.extension/properties.json deleted file mode 100644 index 5a884f1..0000000 --- a/repository/Mirage.package/SystemWindow.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SystemWindow" } diff --git a/repository/Mirage.package/UITheme.extension/instance/mirageBackgroundColor.st b/repository/Mirage.package/UITheme.extension/instance/mirageBackgroundColor.st deleted file mode 100644 index b5c1d41..0000000 --- a/repository/Mirage.package/UITheme.extension/instance/mirageBackgroundColor.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage -mirageBackgroundColor - ^ Color gray alpha: 0.5 \ No newline at end of file diff --git a/repository/Mirage.package/UITheme.extension/methodProperties.json b/repository/Mirage.package/UITheme.extension/methodProperties.json deleted file mode 100644 index cb0986f..0000000 --- a/repository/Mirage.package/UITheme.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "mirageBackgroundColor" : "JulienDelplanque 7/17/2016 14:38" } } diff --git a/repository/Mirage.package/UITheme.extension/properties.json b/repository/Mirage.package/UITheme.extension/properties.json deleted file mode 100644 index b2db661..0000000 --- a/repository/Mirage.package/UITheme.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "UITheme" } diff --git a/repository/Mirage.package/UnixPlatform.extension/instance/mirageOpenPreviewerShortcut.st b/repository/Mirage.package/UnixPlatform.extension/instance/mirageOpenPreviewerShortcut.st deleted file mode 100644 index e07943f..0000000 --- a/repository/Mirage.package/UnixPlatform.extension/instance/mirageOpenPreviewerShortcut.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage -mirageOpenPreviewerShortcut - ^ KMModifier ctrl + KMUntypeableSingleKeyCombination tab \ No newline at end of file diff --git a/repository/Mirage.package/UnixPlatform.extension/methodProperties.json b/repository/Mirage.package/UnixPlatform.extension/methodProperties.json deleted file mode 100644 index 171549a..0000000 --- a/repository/Mirage.package/UnixPlatform.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "mirageOpenPreviewerShortcut" : "JulienDelplanque 7/17/2016 14:37" } } diff --git a/repository/Mirage.package/UnixPlatform.extension/properties.json b/repository/Mirage.package/UnixPlatform.extension/properties.json deleted file mode 100644 index 99eac88..0000000 --- a/repository/Mirage.package/UnixPlatform.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "UnixPlatform" } diff --git a/repository/Mirage.package/Win32Platform.extension/instance/mirageOpenPreviewerShortcut.st b/repository/Mirage.package/Win32Platform.extension/instance/mirageOpenPreviewerShortcut.st deleted file mode 100644 index 6678f4c..0000000 --- a/repository/Mirage.package/Win32Platform.extension/instance/mirageOpenPreviewerShortcut.st +++ /dev/null @@ -1,3 +0,0 @@ -*Mirage -mirageOpenPreviewerShortcut - ^ KMModifier shift + KMUntypeableSingleKeyCombination tab \ No newline at end of file diff --git a/repository/Mirage.package/Win32Platform.extension/methodProperties.json b/repository/Mirage.package/Win32Platform.extension/methodProperties.json deleted file mode 100644 index 171549a..0000000 --- a/repository/Mirage.package/Win32Platform.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "mirageOpenPreviewerShortcut" : "JulienDelplanque 7/17/2016 14:37" } } diff --git a/repository/Mirage.package/Win32Platform.extension/properties.json b/repository/Mirage.package/Win32Platform.extension/properties.json deleted file mode 100644 index 3943d17..0000000 --- a/repository/Mirage.package/Win32Platform.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Win32Platform" } diff --git a/repository/Mirage.package/monticello.meta/categories.st b/repository/Mirage.package/monticello.meta/categories.st deleted file mode 100644 index b25b7e6..0000000 --- a/repository/Mirage.package/monticello.meta/categories.st +++ /dev/null @@ -1,6 +0,0 @@ -SystemOrganization addCategory: #Mirage! -SystemOrganization addCategory: 'Mirage-Announcements'! -SystemOrganization addCategory: 'Mirage-Model'! -SystemOrganization addCategory: 'Mirage-Morphic'! -SystemOrganization addCategory: 'Mirage-Settings'! -SystemOrganization addCategory: 'Mirage-Traits'! diff --git a/repository/Mirage.package/monticello.meta/initializers.st b/repository/Mirage.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29..0000000 diff --git a/repository/Mirage.package/monticello.meta/package b/repository/Mirage.package/monticello.meta/package deleted file mode 100644 index 6f5fe20..0000000 --- a/repository/Mirage.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Mirage') \ No newline at end of file diff --git a/repository/Mirage.package/monticello.meta/version b/repository/Mirage.package/monticello.meta/version deleted file mode 100644 index 4f97f01..0000000 --- a/repository/Mirage.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Mirage-JulienDelplanque.8' message 'Renamed parameters.' id '6efca0fd-ee49-4738-8816-c5969b2bd719' date '26 October 2016' time '8:37:10.473236 pm' author 'JulienDelplanque' ancestors ((name 'Mirage-JulienDelplanque.7' message 'Added the possiblity to specify the level of the view on the background.' id '734e325f-f6f3-40d5-bf40-28520eb01477' date '24 October 2016' time '6:24:43.582987 pm' author 'JulienDelplanque' ancestors ((name 'Mirage-JulienDelplanque.6' message 'Fixed one more problem with traits...' id 'f69cf055-9a30-4ff1-a96f-4db45b48ea89' date '17 July 2016' time '8:06:29.09808 pm' author 'JulienDelplanque' ancestors ((name 'Mirage-JulienDelplanque.5' message 'Fixed extension methods prefixes.' id 'f5274ac8-cca7-4be8-ad8e-aa015d384994' date '17 July 2016' time '2:48:20.183802 pm' author 'JulienDelplanque' ancestors ((name 'Mirage-JulienDelplanque.4' message 'Fixed problem with trait (due to renaming).' id '6d55c54a-e783-49d5-8e18-cdea0ec19d43' date '17 July 2016' time '2:16:34.011869 pm' author 'JulienDelplanque' ancestors ((name 'Mirage-JulienDelplanque.3' message 'Put mirage settings in ''Tools'' group.' id '611d3ad9-91d6-4ad7-91ef-9b6ece7d65ac' date '17 July 2016' time '2:05:02.324176 pm' author 'JulienDelplanque' ancestors ((name 'Mirage-JulienDelplanque.2' message 'Fixed settings and problems with traits.' id '0549bf8d-1d48-4f5e-9a83-dc33af70e8c3' date '17 July 2016' time '2:03:13.453235 pm' author 'JulienDelplanque' ancestors ((name 'Mirage-JulienDelplanque.1' message 'Renamed this project as ''Mirage''.' id '8f9942db-f1a4-4510-b653-fa4dc8dde4ce' date '17 July 2016' time '1:16:52.9954 pm' author 'JulienDelplanque' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Mirage.package/properties.json b/repository/Mirage.package/properties.json deleted file mode 100644 index f037444..0000000 --- a/repository/Mirage.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/src/.properties b/src/.properties new file mode 100644 index 0000000..ad0471d --- /dev/null +++ b/src/.properties @@ -0,0 +1,3 @@ +{ + #format : #tonel +} \ No newline at end of file diff --git a/repository/BaselineOfMirage.package/BaselineOfMirage.class/instance/baseline..st b/src/BaselineOfMirage/BaselineOfMirage.class.st similarity index 61% rename from repository/BaselineOfMirage.package/BaselineOfMirage.class/instance/baseline..st rename to src/BaselineOfMirage/BaselineOfMirage.class.st index 22b13db..142c629 100644 --- a/repository/BaselineOfMirage.package/BaselineOfMirage.class/instance/baseline..st +++ b/src/BaselineOfMirage/BaselineOfMirage.class.st @@ -1,5 +1,11 @@ -baseline -baseline: spec +Class { + #name : #BaselineOfMirage, + #superclass : #BaselineOf, + #category : 'BaselineOfMirage' +} + +{ #category : #baseline } +BaselineOfMirage >> baseline: spec [ spec for: #common @@ -8,4 +14,5 @@ baseline: spec package: 'Mirage'; package: 'Mirage-Tests' with: [ spec requires: 'Mirage' ]; package: 'Mirage-Carousel' with: [ spec requires: 'Mirage' ]; - package: 'Mirage-Highlighter' with: [ spec requires: 'Mirage' ] ] \ No newline at end of file + package: 'Mirage-Highlighter' with: [ spec requires: 'Mirage' ] ] +] diff --git a/src/BaselineOfMirage/package.st b/src/BaselineOfMirage/package.st new file mode 100644 index 0000000..520badc --- /dev/null +++ b/src/BaselineOfMirage/package.st @@ -0,0 +1 @@ +Package { #name : #BaselineOfMirage } diff --git a/src/ConfigurationOfMirage/ConfigurationOfMirage.class.st b/src/ConfigurationOfMirage/ConfigurationOfMirage.class.st new file mode 100644 index 0000000..754e507 --- /dev/null +++ b/src/ConfigurationOfMirage/ConfigurationOfMirage.class.st @@ -0,0 +1,176 @@ +Class { + #name : #ConfigurationOfMirage, + #superclass : #Object, + #instVars : [ + 'project' + ], + #classVars : [ + 'LastVersionLoad' + ], + #category : 'ConfigurationOfMirage' +} + +{ #category : #'development support' } +ConfigurationOfMirage class >> DevelopmentSupport [ + +"See the methods in the 'development support' category on the class-side of MetacelloBaseConfiguration. Decide what development support methods you would like to use and copy them the the class-side of your configuration." + +] + +{ #category : #private } +ConfigurationOfMirage class >> baseConfigurationClassIfAbsent: aBlock [ + + ^Smalltalk + at: #'ConfigurationOf' + ifAbsent: [ + self ensureMetacelloBaseConfiguration. + Smalltalk at: #'ConfigurationOf' ifAbsent: aBlock ]. +] + +{ #category : #catalog } +ConfigurationOfMirage class >> catalogContactInfo [ + ^ 'julien.delplanque@live.be' +] + +{ #category : #catalog } +ConfigurationOfMirage class >> catalogDescription [ + ^ 'A windows switcher with a previewer for Pharo! + +Enable/disable it by toggling the checkbox in Tools>Mirage>Activate in the Settings Browser. + +Check the github repository for documentation [https://github.com/juliendelplanque/Mirage].' +] + +{ #category : #catalog } +ConfigurationOfMirage class >> catalogKeywords [ + ^ #('mirage' 'windows management' 'windows previewer' 'windows switcher' 'morphic' 'gui' 'ergonomy') +] + +{ #category : #private } +ConfigurationOfMirage class >> ensureMetacello [ + + (self baseConfigurationClassIfAbsent: []) ensureMetacello +] + +{ #category : #private } +ConfigurationOfMirage class >> ensureMetacelloBaseConfiguration [ + Smalltalk + at: #'ConfigurationOf' + ifAbsent: [ + | repository version | + repository := MCHttpRepository + location: 'http://smalltalkhub.com/mc/dkh/metacello/main' + user: '' + password: ''. + repository + versionReaderForFileNamed: 'Metacello-Base-dkh.107' + do: [ :reader | + version := reader version. + version load. + version workingCopy repositoryGroup addRepository: repository ] ] +] + +{ #category : #'metacello tool support' } +ConfigurationOfMirage class >> isMetacelloConfig [ + "Answer true and the Metacello tools will operate on you" + + ^true +] + +{ #category : #loading } +ConfigurationOfMirage class >> load [ + "Load the #stable version defined for this platform. The #stable version is the version that is recommended to be used on this platform." + + "self load" + + + ^(self project version: #stable) load +] + +{ #category : #loading } +ConfigurationOfMirage class >> loadDevelopment [ + "Load the #development version defined for this platform. The #development version will change over time and is not expected to be stable." + + "self loadDevelopment" + + + ^(self project version: #development) load +] + +{ #category : #accessing } +ConfigurationOfMirage class >> project [ + + ^self new project +] + +{ #category : #'development support' } +ConfigurationOfMirage class >> validate [ + "Check the configuration for Errors, Critical Warnings, and Warnings (see class comment for MetacelloMCVersionValidator for more information). + Errors identify specification issues that will result in unexpected behaviour when you load the configuration. + Critical Warnings identify specification issues that may result in unexpected behavior when you load the configuration. + Warnings identify specification issues that are technically correct, but are worth take a look at." + + "self validate" + + + self ensureMetacello. + ^ ((Smalltalk at: #MetacelloToolBox) validateConfiguration: self debug: #() recurse: false) explore +] + +{ #category : #baselines } +ConfigurationOfMirage >> baselineDev: spec [ + + + spec for: #'common' do: [ + spec blessing: #'baseline'. + spec baseline: 'Mirage' with: [ + spec repository: 'github://juliendelplanque/Mirage:dev/repository' ] ]. + +] + +{ #category : #baselines } +ConfigurationOfMirage >> baselineMaster: spec [ + + + spec for: #'common' do: [ + spec blessing: #'baseline'. + spec baseline: 'Mirage' with: [ + spec repository: 'github://juliendelplanque/Mirage/repository' ] ]. + +] + +{ #category : #accessing } +ConfigurationOfMirage >> customProjectAttributes [ + "Edit to return a collection of any custom attributes e.g. for conditional loading: Array with: #'Condition1' with: #'Condition2. + For more information see: http://code.google.com/p/metacello/wiki/CustomProjectAttrributes " + + ^ #() +] + +{ #category : #'symbolic versions' } +ConfigurationOfMirage >> dev: spec [ + + + spec for: #'common' version: 'dev-baseline'. + +] + +{ #category : #accessing } +ConfigurationOfMirage >> project [ + ^ project + ifNil: [ + "Bootstrap Metacello if it is not already loaded" + self class ensureMetacello. + project := MetacelloMCProject new projectAttributes: self customProjectAttributes. "Create the Metacello project" + (Smalltalk at: #'MetacelloVersionConstructor') on: self project: project. "Construct the project" + project loadType: #'linear'. "change to #atomic if desired" + project ] +] + +{ #category : #'symbolic versions' } +ConfigurationOfMirage >> stable: spec [ + + + spec for: #'common' version: 'master-baseline'. + +] diff --git a/src/ConfigurationOfMirage/package.st b/src/ConfigurationOfMirage/package.st new file mode 100644 index 0000000..7234d3d --- /dev/null +++ b/src/ConfigurationOfMirage/package.st @@ -0,0 +1 @@ +Package { #name : #ConfigurationOfMirage } diff --git a/src/Mirage-Carousel/MICarousel.class.st b/src/Mirage-Carousel/MICarousel.class.st new file mode 100644 index 0000000..53b8e9f --- /dev/null +++ b/src/Mirage-Carousel/MICarousel.class.st @@ -0,0 +1,218 @@ +" +I am the preview of the windows available in world. +" +Class { + #name : #MICarousel, + #superclass : #Morph, + #traits : 'MIModelListener + MIViewSetting', + #classTraits : 'MIModelListener classTrait + MIViewSetting classTrait', + #instVars : [ + 'thumbnailsSelectedBorderColor', + 'thumbnailsBorderColor', + 'thumbnailsBorderWidth', + 'titleMorph', + 'spaceBetweenThumbnails' + ], + #classInstVars : [ + 'isActivated' + ], + #category : 'Mirage-Carousel-Morphic' +} + +{ #category : #accessing } +MICarousel class >> activate: aBoolean [ + isActivated := aBoolean +] + +{ #category : #'initialize-release' } +MICarousel class >> initialize [ + super initialize. + self activate: false +] + +{ #category : #accessing } +MICarousel class >> isActivated [ + ^ isActivated +] + +{ #category : #settings } +MICarousel class >> wpSettingOn: aBuilder [ + + (self buildSettingNamed: #wpCarouselSetting with: aBuilder) + label: 'Carousel'; + description: 'Activate the Carousel view' translated +] + +{ #category : #accessing } +MICarousel >> availableWidth [ + ^ World width +] + +{ #category : #opening } +MICarousel >> beCenteredInWorld [ + self center: World center +] + +{ #category : #'announcement handling' } +MICarousel >> handleCloseRequest: aWPCloseRequest [ + aWPCloseRequest model announcer unsubscribe: self. + self announcer unsubscribe: self +] + +{ #category : #'announcement handling' } +MICarousel >> handleOpenRequest: aWPOpenRequest [ + self + refreshThumbnailsOn: aWPOpenRequest; + initializeTitleMorph; + openCenteredInBackground: aWPOpenRequest background +] + +{ #category : #'announcement handling' } +MICarousel >> handleWindowSelected: aWPThumbnailSelected [ + + self + refreshThumbnailsOn: aWPThumbnailSelected; + refreshTitleOn: aWPThumbnailSelected. + + aWPThumbnailSelected thumbnail + borderColor: self thumbnailsSelectedBorderColor. +] + +{ #category : #initialization } +MICarousel >> initialize [ + super initialize. + self + color: Smalltalk ui theme mirageCarouselColor; + thumbnailsBorderColor: Smalltalk ui theme mirageThumbnailsBorderColor; + thumbnailsSelectedBorderColor: Smalltalk ui theme mirageThumbnailsSelectedBorderColor; + thumbnailsBorderWidth: Smalltalk ui theme mirageThumbnailsBorderWidth; + spaceBetweenThumbnails: Smalltalk ui theme mirageSpaceBetweenThumbnails; + mirageLevel: 100 +] + +{ #category : #initialization } +MICarousel >> initializeTitleMorph [ + titleMorph := MITitleMorph new. + titleMorph + color: Color transparent; + titleColor: self thumbnailsSelectedBorderColor; + extent: self extent x @ titleMorph extent y; + minimalHeight; + position: titleMorph position x @ (titleMorph position y + self extent y). + self addMorph: titleMorph. +] + +{ #category : #testing } +MICarousel >> isWindowsPreviewer [ + ^ true +] + +{ #category : #opening } +MICarousel >> openCenteredInBackground: aWPBackgroundMorph [ + aWPBackgroundMorph addMorph: self. + self beCenteredInWorld +] + +{ #category : #thumbnails } +MICarousel >> positionThumbnailsAfterIndex: index on: aWPModelAnnouncement [ + | selected position | + selected := aWPModelAnnouncement thumbnail. + position := selected position + selected width + self spaceBetweenThumbnails. + + aWPModelAnnouncement thumbnails from: index + 1 to: aWPModelAnnouncement thumbnails size do: [ :thumbnail | + thumbnail + position: position; + center: thumbnail center x @ self center y. + position := (position x + thumbnail width + self spaceBetweenThumbnails) @ position y ] +] + +{ #category : #thumbnails } +MICarousel >> positionThumbnailsBeforeIndex: index on: aWPModelAnnouncement [ + | selected position | + selected := aWPModelAnnouncement thumbnail. + position := selected position. + + (aWPModelAnnouncement thumbnails copyFrom: 1 to: index - 1) reversed do: [ :thumbnail | + position := (position x - thumbnail width - self spaceBetweenThumbnails) @ position y. + thumbnail + position: position; + center: thumbnail center x @ self center y ]. +] + +{ #category : #thumbnails } +MICarousel >> positionThumbnailsOn: aWPModelAnnouncement [ + | index | + aWPModelAnnouncement thumbnail center: self center. + + index := aWPModelAnnouncement thumbnails indexOf: aWPModelAnnouncement thumbnail. + self + positionThumbnailsBeforeIndex: index on: aWPModelAnnouncement; + positionThumbnailsAfterIndex: index on: aWPModelAnnouncement +] + +{ #category : #thumbnails } +MICarousel >> refreshThumbnailsOn: aWPModelAnnouncement [ + self removeAllMorphsIn: (self submorphsSatisfying: [ :m | m class ~= MITitleMorph ]). + + self + extent: + self availableWidth @ (aWPModelAnnouncement thumbnails detectMax: #height) height. + self + addAllMorphs: aWPModelAnnouncement thumbnails; + positionThumbnailsOn: aWPModelAnnouncement; + resetThumbnailsBordersOn: aWPModelAnnouncement +] + +{ #category : #title } +MICarousel >> refreshTitleOn: aWPThumbnailSelected [ + titleMorph title: aWPThumbnailSelected window label contents +] + +{ #category : #thumbnails } +MICarousel >> resetThumbnailsBordersOn: aWPModelAnnouncement [ + aWPModelAnnouncement thumbnails + do: [ :m | + m + borderWidth: self thumbnailsBorderWidth; + borderColor: self thumbnailsBorderColor ]. +] + +{ #category : #accessing } +MICarousel >> spaceBetweenThumbnails [ + ^ spaceBetweenThumbnails +] + +{ #category : #accessing } +MICarousel >> spaceBetweenThumbnails: anObject [ + spaceBetweenThumbnails := anObject +] + +{ #category : #accessing } +MICarousel >> thumbnailsBorderColor [ + ^ thumbnailsBorderColor +] + +{ #category : #accessing } +MICarousel >> thumbnailsBorderColor: aColor [ + thumbnailsBorderColor := aColor +] + +{ #category : #accessing } +MICarousel >> thumbnailsBorderWidth [ + ^ thumbnailsBorderWidth +] + +{ #category : #accessing } +MICarousel >> thumbnailsBorderWidth: anObject [ + thumbnailsBorderWidth := anObject +] + +{ #category : #accessing } +MICarousel >> thumbnailsSelectedBorderColor [ + ^ thumbnailsSelectedBorderColor +] + +{ #category : #accessing } +MICarousel >> thumbnailsSelectedBorderColor: anObject [ + thumbnailsSelectedBorderColor := anObject +] diff --git a/src/Mirage-Carousel/MICarouselSettings.class.st b/src/Mirage-Carousel/MICarouselSettings.class.st new file mode 100644 index 0000000..d2b5e5b --- /dev/null +++ b/src/Mirage-Carousel/MICarouselSettings.class.st @@ -0,0 +1,40 @@ +" +The settings for the Windows Previewer's carousel. +" +Class { + #name : #MICarouselSettings, + #superclass : #Object, + #classInstVars : [ + 'thumbnailUpdateTime' + ], + #category : 'Mirage-Carousel-Settings' +} + +{ #category : #accessing } +MICarouselSettings class >> defaultThumbnailUpdateTime [ + ^ 5 +] + +{ #category : #accessing } +MICarouselSettings class >> thumbnailUpdateTime [ + ^ thumbnailUpdateTime ifNil: [ thumbnailUpdateTime := self defaultThumbnailUpdateTime ] +] + +{ #category : #accessing } +MICarouselSettings class >> thumbnailUpdateTime: anInteger [ + thumbnailUpdateTime := anInteger +] + +{ #category : #'settings-definition' } +MICarouselSettings class >> wpThumbnailUpdateTimeSettingsOn: aBuilder [ + + (aBuilder range: #mirageThumbnailUpdateTime) + label: 'Thumbnail update time'; + description: 'Set the time between thumbnail updates in seconds' translated; + setSelector: #thumbnailUpdateTime:; + getSelector: #thumbnailUpdateTime; + default: self thumbnailUpdateTime; + range: (1 to: 30); + target: self; + parent: #mirageSettings. +] diff --git a/src/Mirage-Carousel/MIModelAnnouncement.extension.st b/src/Mirage-Carousel/MIModelAnnouncement.extension.st new file mode 100644 index 0000000..0012551 --- /dev/null +++ b/src/Mirage-Carousel/MIModelAnnouncement.extension.st @@ -0,0 +1,21 @@ +Extension { #name : #MIModelAnnouncement } + +{ #category : #'*Mirage-Carousel' } +MIModelAnnouncement >> nextThumbnail [ + ^ self nextWindow mirageThumbnail +] + +{ #category : #'*Mirage-Carousel' } +MIModelAnnouncement >> previousThumbnail [ + ^ self previousWindow mirageThumbnail +] + +{ #category : #'*Mirage-Carousel' } +MIModelAnnouncement >> thumbnail [ + ^ self window mirageThumbnail +] + +{ #category : #'*Mirage-Carousel' } +MIModelAnnouncement >> thumbnails [ + ^ self windows collect: #mirageThumbnail +] diff --git a/src/Mirage-Carousel/MITitleMorph.class.st b/src/Mirage-Carousel/MITitleMorph.class.st new file mode 100644 index 0000000..4737536 --- /dev/null +++ b/src/Mirage-Carousel/MITitleMorph.class.st @@ -0,0 +1,60 @@ +" +I am a title for the WPMorph. +" +Class { + #name : #MITitleMorph, + #superclass : #Morph, + #instVars : [ + 'title' + ], + #category : 'Mirage-Carousel-Morphic' +} + +{ #category : #'instance creation' } +MITitleMorph class >> title: aString color: aColor [ + ^ self new + title: aString; + color: aColor; + yourself +] + +{ #category : #geometry } +MITitleMorph >> extent: aPoint [ + super extent: aPoint. + title center: self center +] + +{ #category : #initialization } +MITitleMorph >> initialize [ + super initialize. + self color: Color gray. + title := '' asMorph. + title emphasis: 1. "Bold text" + self addMorph: title +] + +{ #category : #geometry } +MITitleMorph >> minimalHeight [ + self extent: self extent x @ title extent y +] + +{ #category : #accessing } +MITitleMorph >> title [ + ^ title +] + +{ #category : #accessing } +MITitleMorph >> title: aString [ + title contents: aString. + title center: self center +] + +{ #category : #accessing } +MITitleMorph >> titleColor [ + ^ title color +] + +{ #category : #accessing } +MITitleMorph >> titleColor: aColor [ + title color: aColor +] diff --git a/src/Mirage-Carousel/Pharo3DarkTheme.extension.st b/src/Mirage-Carousel/Pharo3DarkTheme.extension.st new file mode 100644 index 0000000..692623a --- /dev/null +++ b/src/Mirage-Carousel/Pharo3DarkTheme.extension.st @@ -0,0 +1,6 @@ +Extension { #name : #Pharo3DarkTheme } + +{ #category : #'*Mirage-Carousel' } +Pharo3DarkTheme >> mirageThumbnailsSelectedBorderColor [ + ^ Color orange +] diff --git a/src/Mirage-Carousel/SystemWindow.extension.st b/src/Mirage-Carousel/SystemWindow.extension.st new file mode 100644 index 0000000..7d70d46 --- /dev/null +++ b/src/Mirage-Carousel/SystemWindow.extension.st @@ -0,0 +1,56 @@ +Extension { #name : #SystemWindow } + +{ #category : #'*Mirage-Carousel' } +SystemWindow >> continueToScheduleUpdate [ + ^ self valueOfProperty: #continueToScheduleUpdate ifAbsentPut: [ false ] +] + +{ #category : #'*Mirage-Carousel' } +SystemWindow >> continueToScheduleUpdate: aBoolean [ + self setProperty: #continueToScheduleUpdate toValue: aBoolean +] + +{ #category : #'*Mirage-Carousel' } +SystemWindow >> mirageMutex [ + ^ self valueOfProperty: #mirageMutex ifAbsentPut: [ Mutex new ] +] + +{ #category : #'*Mirage-Carousel' } +SystemWindow >> mirageThumbnail [ + self continueToScheduleUpdate + ifFalse: [ + self continueToScheduleUpdate: true. + self onAnnouncement: WindowClosed do: [ + self continueToScheduleUpdate: false ]. + self scheduleThumbnailUpdate ]. + self mirageMutex critical: [ + ^ self + valueOfProperty: self mirageThumbnailPropertySymbol + ifAbsentPut: [ + self continueToScheduleUpdate: true. + self taskbarThumbnail ] ] +] + +{ #category : #'*Mirage-Carousel' } +SystemWindow >> mirageThumbnailPropertySymbol [ + ^ #mirageThumbnail +] + +{ #category : #'*Mirage-Carousel' } +SystemWindow >> scheduleThumbnailUpdate [ + [ + MICarouselSettings thumbnailUpdateTime seconds wait. + self mirageMutex + critical: [ + self isCollapsed ifFalse: [ self updateMirageThumbnail ] ]. + self continueToScheduleUpdate + ifTrue: [ self scheduleThumbnailUpdate ] + ] forkNamed: 'MirageThumbnailUpdater' +] + +{ #category : #'*Mirage-Carousel' } +SystemWindow >> updateMirageThumbnail [ + self + setProperty: self mirageThumbnailPropertySymbol + toValue: self taskbarThumbnail +] diff --git a/src/Mirage-Carousel/UITheme.extension.st b/src/Mirage-Carousel/UITheme.extension.st new file mode 100644 index 0000000..6d8f9c7 --- /dev/null +++ b/src/Mirage-Carousel/UITheme.extension.st @@ -0,0 +1,26 @@ +Extension { #name : #UITheme } + +{ #category : #'*Mirage-Carousel' } +UITheme >> mirageCarouselColor [ + ^ Color transparent +] + +{ #category : #'*Mirage-Carousel' } +UITheme >> mirageSpaceBetweenThumbnails [ + ^ 10 +] + +{ #category : #'*Mirage-Carousel' } +UITheme >> mirageThumbnailsBorderColor [ + ^ Color gray +] + +{ #category : #'*Mirage-Carousel' } +UITheme >> mirageThumbnailsBorderWidth [ + ^ 3 +] + +{ #category : #'*Mirage-Carousel' } +UITheme >> mirageThumbnailsSelectedBorderColor [ + ^ Color fromString: '#3297d4' +] diff --git a/src/Mirage-Carousel/package.st b/src/Mirage-Carousel/package.st new file mode 100644 index 0000000..b446421 --- /dev/null +++ b/src/Mirage-Carousel/package.st @@ -0,0 +1 @@ +Package { #name : #'Mirage-Carousel' } diff --git a/src/Mirage-Highlighter/MIButtonHighlighterMorph.class.st b/src/Mirage-Highlighter/MIButtonHighlighterMorph.class.st new file mode 100644 index 0000000..6011d7b --- /dev/null +++ b/src/Mirage-Highlighter/MIButtonHighlighterMorph.class.st @@ -0,0 +1,23 @@ +" +I highlight a button of the taskbar. +" +Class { + #name : #MIButtonHighlighterMorph, + #superclass : #Morph, + #category : 'Mirage-Highlighter-Morphic' +} + +{ #category : #highlighting } +MIButtonHighlighterMorph >> highlightButton: aButton [ + self + position: aButton position - (0@self height); + width: aButton width +] + +{ #category : #initialization } +MIButtonHighlighterMorph >> initialize [ + super initialize. + self + height: Smalltalk ui theme mirageTaskbarTasksHighlighterHeight; + color: Smalltalk ui theme mirageTaskbarTasksHighlighterColor +] diff --git a/src/Mirage-Highlighter/MITaskbarTasksHighlighter.class.st b/src/Mirage-Highlighter/MITaskbarTasksHighlighter.class.st new file mode 100644 index 0000000..244eac8 --- /dev/null +++ b/src/Mirage-Highlighter/MITaskbarTasksHighlighter.class.st @@ -0,0 +1,79 @@ +" +I highlight taskbar tasks selected during the preview. +" +Class { + #name : #MITaskbarTasksHighlighter, + #superclass : #Object, + #traits : 'MIModelListener + MIViewSetting', + #classTraits : 'MIModelListener classTrait + MIViewSetting classTrait', + #instVars : [ + 'buttonHighlighter' + ], + #classInstVars : [ + 'isActivated' + ], + #category : 'Mirage-Highlighter-Core' +} + +{ #category : #accessing } +MITaskbarTasksHighlighter class >> activate: aBoolean [ + isActivated := aBoolean +] + +{ #category : #'setting building' } +MITaskbarTasksHighlighter class >> buildSettingNamed: aSymbol with: aBuilder [ + ^ (aBuilder setting: aSymbol) + setSelector: #activate:; + getSelector: #isActivated; + target: self; + parent: self parent; + yourself +] + +{ #category : #'class initialization' } +MITaskbarTasksHighlighter class >> initialize [ + super initialize. + self activate: false +] + +{ #category : #accessing } +MITaskbarTasksHighlighter class >> isActivated [ + ^ isActivated +] + +{ #category : #accessing } +MITaskbarTasksHighlighter class >> parent [ + ^ #mirageViewsSettings +] + +{ #category : #settings } +MITaskbarTasksHighlighter class >> wpSettingOn: aBuilder [ + + (self buildSettingNamed: #wpTaskbarTasksHighlighterSetting with: aBuilder) + label: 'Taskbar tasks highlighter'; + description: 'Activate the taskbar tasks highlighter' translated +] + +{ #category : #'announcement handling' } +MITaskbarTasksHighlighter >> handleCloseRequest: aWPCloseRequest [ + aWPCloseRequest model announcer unsubscribe: self +] + +{ #category : #'announcement handling' } +MITaskbarTasksHighlighter >> handleOpenRequest: aWPOpenRequest [ + aWPOpenRequest background addMorph: buttonHighlighter +] + +{ #category : #'announcement handling' } +MITaskbarTasksHighlighter >> handleWindowSelected: aWPThumbnailSelected [ + buttonHighlighter + highlightButton: (aWPThumbnailSelected window worldTaskbar buttonForMorph: aWPThumbnailSelected window) +] + +{ #category : #initialization } +MITaskbarTasksHighlighter >> initialize [ + super initialize. + buttonHighlighter := MIButtonHighlighterMorph new + mirageLevel: 200; + yourself +] diff --git a/src/Mirage-Highlighter/MIWindowHighlighterMorph.class.st b/src/Mirage-Highlighter/MIWindowHighlighterMorph.class.st new file mode 100644 index 0000000..6efe69d --- /dev/null +++ b/src/Mirage-Highlighter/MIWindowHighlighterMorph.class.st @@ -0,0 +1,24 @@ +" +I highlight a SystemWindow (or subclass). +" +Class { + #name : #MIWindowHighlighterMorph, + #superclass : #BorderedMorph, + #category : 'Mirage-Highlighter-Morphic' +} + +{ #category : #highlighting } +MIWindowHighlighterMorph >> highlightWindow: aSystemWindow [ + self + position: aSystemWindow position; + extent: aSystemWindow extent +] + +{ #category : #initialization } +MIWindowHighlighterMorph >> initialize [ + super initialize. + self + color: Color transparent; + borderColor: Smalltalk ui theme mirageHighlighterBorderColor; + borderWidth: Smalltalk ui theme mirageHighlighterBorderWidth +] diff --git a/src/Mirage-Highlighter/MIWindowsHighlighter.class.st b/src/Mirage-Highlighter/MIWindowsHighlighter.class.st new file mode 100644 index 0000000..c0bd817 --- /dev/null +++ b/src/Mirage-Highlighter/MIWindowsHighlighter.class.st @@ -0,0 +1,84 @@ +" +I highlight windows selected during the preview. +" +Class { + #name : #MIWindowsHighlighter, + #superclass : #Object, + #traits : 'MIModelListener + MIViewSetting', + #classTraits : 'MIModelListener classTrait + MIViewSetting classTrait', + #instVars : [ + 'windowHighlighter' + ], + #classInstVars : [ + 'isActivated' + ], + #category : 'Mirage-Highlighter-Core' +} + +{ #category : #accessing } +MIWindowsHighlighter class >> activate: aBoolean [ + isActivated := aBoolean +] + +{ #category : #'setting building' } +MIWindowsHighlighter class >> buildSettingNamed: aSymbol with: aBuilder [ + ^ (aBuilder setting: aSymbol) + setSelector: #activate:; + getSelector: #isActivated; + target: self; + parent: self parent; + yourself +] + +{ #category : #'class initialization' } +MIWindowsHighlighter class >> initialize [ + super initialize. + self activate: false +] + +{ #category : #accessing } +MIWindowsHighlighter class >> isActivated [ + ^ isActivated +] + +{ #category : #accessing } +MIWindowsHighlighter class >> parent [ + ^ #mirageViewsSettings +] + +{ #category : #settings } +MIWindowsHighlighter class >> wpSettingOn: aBuilder [ + + (self buildSettingNamed: #wpWindowsHighlighterSetting with: aBuilder) + label: 'Windows highlighter'; + description: 'Activate the windows highlighter' translated +] + +{ #category : #'announcement handling' } +MIWindowsHighlighter >> handleCloseRequest: aWPCloseRequest [ + aWPCloseRequest model announcer unsubscribe: self +] + +{ #category : #'announcement handling' } +MIWindowsHighlighter >> handleOpenRequest: aWPOpenRequest [ + aWPOpenRequest background submorphs + detect: #isWindowsPreviewer + ifFound: [ :windowsPreviewer | aWPOpenRequest background addMorph: windowHighlighter after: windowsPreviewer ] + ifNone: [ aWPOpenRequest background addMorph: windowHighlighter ] +] + +{ #category : #'announcement handling' } +MIWindowsHighlighter >> handleWindowSelected: aWPThumbnailSelected [ + aWPThumbnailSelected window isCollapsed + ifFalse: [ + windowHighlighter + highlightWindow: aWPThumbnailSelected window ] +] + +{ #category : #initialization } +MIWindowsHighlighter >> initialize [ + super initialize. + windowHighlighter := MIWindowHighlighterMorph new + mirageLevel: 200; + yourself +] diff --git a/src/Mirage-Highlighter/Pharo3DarkTheme.extension.st b/src/Mirage-Highlighter/Pharo3DarkTheme.extension.st new file mode 100644 index 0000000..1b1374a --- /dev/null +++ b/src/Mirage-Highlighter/Pharo3DarkTheme.extension.st @@ -0,0 +1,11 @@ +Extension { #name : #Pharo3DarkTheme } + +{ #category : #'*Mirage-Highlighter' } +Pharo3DarkTheme >> mirageHighlighterBorderColor [ + ^ Color orange +] + +{ #category : #'*Mirage-Highlighter' } +Pharo3DarkTheme >> mirageTaskbarTasksHighlighterColor [ + ^ Color orange +] diff --git a/src/Mirage-Highlighter/UITheme.extension.st b/src/Mirage-Highlighter/UITheme.extension.st new file mode 100644 index 0000000..b92c098 --- /dev/null +++ b/src/Mirage-Highlighter/UITheme.extension.st @@ -0,0 +1,21 @@ +Extension { #name : #UITheme } + +{ #category : #'*Mirage-Highlighter' } +UITheme >> mirageHighlighterBorderColor [ + ^ Color fromString: '#3297d4' +] + +{ #category : #'*Mirage-Highlighter' } +UITheme >> mirageHighlighterBorderWidth [ + ^ 3 +] + +{ #category : #'*Mirage-Highlighter' } +UITheme >> mirageTaskbarTasksHighlighterColor [ + ^ Color fromString: '#3297d4' +] + +{ #category : #'*Mirage-Highlighter' } +UITheme >> mirageTaskbarTasksHighlighterHeight [ + ^ 5 +] diff --git a/src/Mirage-Highlighter/package.st b/src/Mirage-Highlighter/package.st new file mode 100644 index 0000000..9899709 --- /dev/null +++ b/src/Mirage-Highlighter/package.st @@ -0,0 +1 @@ +Package { #name : #'Mirage-Highlighter' } diff --git a/src/Mirage-Tests/MIModelTest.class.st b/src/Mirage-Tests/MIModelTest.class.st new file mode 100644 index 0000000..6314e92 --- /dev/null +++ b/src/Mirage-Tests/MIModelTest.class.st @@ -0,0 +1,130 @@ +Class { + #name : #MIModelTest, + #superclass : #TestCase, + #instVars : [ + 'model' + ], + #category : 'Mirage-Tests' +} + +{ #category : #running } +MIModelTest >> setUp [ + model := MIModel new. + model windowsManaged: { SystemWindow new . SystemWindow new . SystemWindow new } +] + +{ #category : #'tests-actions' } +MIModelTest >> testClose [ + | blockExecuted | + blockExecuted := false. + model announcer when: MICloseRequest do: [ blockExecuted := true ]. + model close. + self assert: blockExecuted +] + +{ #category : #'tests-actions' } +MIModelTest >> testNext [ + | blockExecuted | + blockExecuted := false. + model announcer + when: MIWindowSelected do: [ blockExecuted := true ]. + self + assert: model windowsManaged size equals: 3; + assert: model currentIndex equals: 1. + model next. + self + assert: blockExecuted; + assert: model currentIndex equals: 2. + blockExecuted := false. + model next. + self + assert: blockExecuted; + assert: model currentIndex equals: 3. + blockExecuted := false. + model next. + self + assert: blockExecuted; + assert: model currentIndex equals: 1. +] + +{ #category : #'tests-accessing' } +MIModelTest >> testNextIndex [ + self + assert: model currentIndex equals: 1; + assert: model nextIndex equals: 2 +] + +{ #category : #'tests-accessing' } +MIModelTest >> testNextWindow [ + self + assert: model currentWindow equals: (model windowsManaged at: 1); + assert: model nextWindow equals: (model windowsManaged at: 2) +] + +{ #category : #'tests-actions' } +MIModelTest >> testOpen [ + | blockExecuted1 blockExecuted2 | + blockExecuted1 := blockExecuted2 := false. + model announcer when: MIOpenRequest do: [ blockExecuted1 := true ]. + model announcer when: MIWindowSelected do: [ blockExecuted2 := true ]. + model open. + self + assert: blockExecuted1; + assert: blockExecuted2. + "Delete the background from world." + model background delete +] + +{ #category : #'tests-actions' } +MIModelTest >> testOpenWithIndex [ + | blockExecuted1 blockExecuted2 | + blockExecuted1 := blockExecuted2 := false. + model announcer when: MIOpenRequest do: [ blockExecuted1 := true ]. + model announcer when: MIWindowSelected do: [ blockExecuted2 := true ]. + model openWithIndex: 42. + self + assert: blockExecuted1; + assert: blockExecuted2; + assert: model currentIndex equals: 42. + "Delete the background from world." + model background delete +] + +{ #category : #'tests-actions' } +MIModelTest >> testPrevious [ + | blockExecuted | + blockExecuted := false. + model announcer + when: MIWindowSelected do: [ blockExecuted := true ]. + self + assert: model windowsManaged size equals: 3; + assert: model currentIndex equals: 1. + model previous. + self + assert: blockExecuted; + assert: model currentIndex equals: 3. + blockExecuted := false. + model previous. + self + assert: blockExecuted; + assert: model currentIndex equals: 2. + blockExecuted := false. + model previous. + self + assert: blockExecuted; + assert: model currentIndex equals: 1. +] + +{ #category : #'tests-accessing' } +MIModelTest >> testPreviousIndex [ + self + assert: model currentIndex equals: 1; + assert: model previousIndex equals: 3 +] + +{ #category : #'tests-accessing' } +MIModelTest >> testPreviousWindow [ + self + assert: model currentWindow equals: (model windowsManaged at: 1); + assert: model previousWindow equals: (model windowsManaged at: 3) +] diff --git a/src/Mirage-Tests/package.st b/src/Mirage-Tests/package.st new file mode 100644 index 0000000..69e7f14 --- /dev/null +++ b/src/Mirage-Tests/package.st @@ -0,0 +1 @@ +Package { #name : #'Mirage-Tests' } diff --git a/src/Mirage/MIBackgroundMorph.class.st b/src/Mirage/MIBackgroundMorph.class.st new file mode 100644 index 0000000..ec1b692 --- /dev/null +++ b/src/Mirage/MIBackgroundMorph.class.st @@ -0,0 +1,60 @@ +" +I am the background of windows preview I hold all other views as submorphs. +" +Class { + #name : #MIBackgroundMorph, + #superclass : #Morph, + #traits : 'MIModelListener + MIPreviewerShortcuts', + #classTraits : 'MIModelListener classTrait + MIPreviewerShortcuts classTrait', + #category : 'Mirage-Morphic' +} + +{ #category : #'as yet unclassified' } +MIBackgroundMorph >> addMorph: aMorph [ + | firstGreater | + firstGreater := submorphs + detect: [ :morph | aMorph mirageLevel < morph mirageLevel ] + ifNone: [ ^ self addMorphBack: aMorph ]. + ^ self addMorph: aMorph inFrontOf: firstGreater +] + +{ #category : #'announcement handling' } +MIBackgroundMorph >> handleCloseRequest: aWPCloseRequest [ + self announcer unsubscribe: self. + aWPCloseRequest model announcer unsubscribe: self. + self delete +] + +{ #category : #'announcement handling' } +MIBackgroundMorph >> handleOpenRequest: aWPOpenRequest [ + self + createShortcutsOn: aWPOpenRequest model; + listenToFocusLossOn: aWPOpenRequest; + extent: World extent; + openInWorld; + takeKeyboardFocus +] + +{ #category : #'announcement handling' } +MIBackgroundMorph >> handleWindowSelected: aWPThumbnailSelected [ + "Do nothing" +] + +{ #category : #initialization } +MIBackgroundMorph >> initialize [ + super initialize. + self + color: Smalltalk ui theme mirageBackgroundColor; + beSticky +] + +{ #category : #listening } +MIBackgroundMorph >> listenToFocusLossOn: aWPOpenRequest [ + self announcer when: MorphLostFocus do: [ :ann | + aWPOpenRequest model close ]. +] + +{ #category : #accessing } +MIBackgroundMorph >> wantsToBeTopmost [ + ^ true +] diff --git a/src/Mirage/MICloseRequest.class.st b/src/Mirage/MICloseRequest.class.st new file mode 100644 index 0000000..675019e --- /dev/null +++ b/src/Mirage/MICloseRequest.class.st @@ -0,0 +1,8 @@ +" +I announce the fact that the view shoud disappear from the screen. +" +Class { + #name : #MICloseRequest, + #superclass : #MIModelAnnouncement, + #category : 'Mirage-Announcements' +} diff --git a/src/Mirage/MIModel.class.st b/src/Mirage/MIModel.class.st new file mode 100644 index 0000000..6c7b522 --- /dev/null +++ b/src/Mirage/MIModel.class.st @@ -0,0 +1,303 @@ +" +I define the model of a Windows Previewer. + +I hold the SystemWindowsz, allow to switch to next or previous thumbnail and to apply actions on the window. +" +Class { + #name : #MIModel, + #superclass : #Object, + #traits : 'MIWindowManipulator', + #classTraits : 'MIWindowManipulator classTrait', + #instVars : [ + 'announcer', + 'windowsManaged', + 'currentIndex', + 'background' + ], + #classInstVars : [ + 'windowsOrderingMethod' + ], + #category : 'Mirage-Model' +} + +{ #category : #keymap } +MIModel class >> createGlobalKMCategory [ + KMRepository default + setAsGlobalCategory: self globalKMCategoryName +] + +{ #category : #keymap } +MIModel class >> createOpenShortcut [ + self globalKMCategory + addKeymapEntry: (KMKeymap + named: #'Open windows previews' + shortcut: Smalltalk os mirageOpenPreviewerShortcut + action: [ self open ]). +] + +{ #category : #keymap } +MIModel class >> globalKMCategory [ + ^ KMRepository default globalCategories + detect: [ :cat | cat name = self globalKMCategoryName ] + ifNone: [ + self createGlobalKMCategory. + ^ self globalKMCategory ] +] + +{ #category : #keymap } +MIModel class >> globalKMCategoryName [ + ^ #WindowsPreviewGlobal +] + +{ #category : #installation } +MIModel class >> install [ + self + createGlobalKMCategory; + createOpenShortcut; + updateSettingBrowsers +] + +{ #category : #installation } +MIModel class >> install: aBoolean [ + aBoolean + ifTrue: [ self install ] + ifFalse: [ self uninstall ] +] + +{ #category : #installation } +MIModel class >> isInstalled [ + ^ self globalKMCategory + hasKeymapNamed: #'Open windows previews' +] + +{ #category : #opening } +MIModel class >> open [ + | instance | + instance := self new. + (self views collect: #new) + do: [ :view | view listenToWPModelAnnouncementsOf: instance ]. + self windowsOrderingMethod value: instance. + ^ instance + open; + yourself +] + +{ #category : #opening } +MIModel class >> openWithIndex: anInteger [ + | instance | + instance := self new. + (self views collect: #new) + do: [ :view | view listenToWPModelAnnouncementsOf: instance ]. + self windowsOrderingMethod value: instance. + ^ instance + openWithIndex: anInteger; + yourself +] + +{ #category : #keymap } +MIModel class >> removeShortcuts [ + self globalKMCategory keymaps + do: [ :keymap | + self globalKMCategory + removeKeymapEntry: keymap] +] + +{ #category : #installation } +MIModel class >> uninstall [ + self + removeShortcuts; + updateSettingBrowsers +] + +{ #category : #'setting browser' } +MIModel class >> updateSettingBrowsers [ + self flag: #hack. + SettingBrowser allSubInstances do: #applyFilters +] + +{ #category : #accessing } +MIModel class >> views [ + ^ MIViewSetting users select: #isActivated +] + +{ #category : #accessing } +MIModel class >> windowsOrderingMethod [ + ^ windowsOrderingMethod + ifNil: [ windowsOrderingMethod := MISettings windowsOrderingChoices sorted first value ] +] + +{ #category : #accessing } +MIModel class >> windowsOrderingMethod: aSelector [ + windowsOrderingMethod := aSelector +] + +{ #category : #announcing } +MIModel >> announce: anAnnouncement [ + self announcer announce: anAnnouncement +] + +{ #category : #announcing } +MIModel >> announceCloseRequest [ + self announce: (MICloseRequest new + model: self; + yourself) +] + +{ #category : #announcing } +MIModel >> announceOpenRequest [ + self announce: (MIOpenRequest new + model: self; + yourself) +] + +{ #category : #announcing } +MIModel >> announceWindowSelected [ + self announce: (MIWindowSelected new + model: self; + yourself) +] + +{ #category : #accessing } +MIModel >> announcer [ + ^ announcer ifNil: [ announcer := Announcer new ] +] + +{ #category : #accessing } +MIModel >> background [ + ^ background +] + +{ #category : #accessing } +MIModel >> background: anObject [ + background := anObject +] + +{ #category : #actions } +MIModel >> close [ + self announceCloseRequest +] + +{ #category : #actions } +MIModel >> closeCurrentWindow [ + self currentWindow mirageClose. + self close. + (self windowsManaged size - 1) > 0 + ifTrue: [ self class + openWithIndex: (currentIndex = 1 + ifTrue: [ 1 ] + ifFalse: [ currentIndex - 1 ]) ] +] + +{ #category : #accessing } +MIModel >> currentIndex [ + ^ currentIndex +] + +{ #category : #accessing } +MIModel >> currentWindow [ + ^ self windowsManaged at: currentIndex +] + +{ #category : #initialization } +MIModel >> initialize [ + super initialize. + currentIndex := 1. + self initializeBackground +] + +{ #category : #initialization } +MIModel >> initializeBackground [ + self background: MIBackgroundMorph new. + self background + listenToWPModelAnnouncementsOf: self. +] + +{ #category : #testing } +MIModel >> manageAtLeastOneWindow [ + ^ self windowsManaged size > 0 +] + +{ #category : #actions } +MIModel >> next [ + currentIndex := self nextIndex. + self announceWindowSelected +] + +{ #category : #'index computing' } +MIModel >> nextIndex [ + "Computes the value of the next index and returns it. Does not change #currentIndex inst. var." + ^ currentIndex = self windowsManaged size + ifTrue: [ 1 ] + ifFalse: [ currentIndex + 1 ]. +] + +{ #category : #accessing } +MIModel >> nextWindow [ + ^ self windowsManaged at: self nextIndex +] + +{ #category : #actions } +MIModel >> open [ + self manageAtLeastOneWindow + ifTrue: [ + self announceOpenRequest. + self announceWindowSelected ] +] + +{ #category : #actions } +MIModel >> openCurrentWindow [ + self currentWindow mirageOpen. + self announceCloseRequest +] + +{ #category : #actions } +MIModel >> openWithIndex: anInteger [ + currentIndex := anInteger. + self open +] + +{ #category : #actions } +MIModel >> previous [ + currentIndex := self previousIndex. + self announceWindowSelected +] + +{ #category : #'index computing' } +MIModel >> previousIndex [ + "Computes the value of the previous index and returns it. Does not change #currentIndex inst. var." + ^ currentIndex = 1 + ifTrue: [ self windowsManaged size ] + ifFalse: [ currentIndex - 1 ]. +] + +{ #category : #accessing } +MIModel >> previousWindow [ + ^ self windowsManaged at: self previousIndex +] + +{ #category : #shortcuts } +MIModel >> shortcutOn: aKeyCombination do: aBlock [ + ^ background on: aKeyCombination do: aBlock +] + +{ #category : #settings } +MIModel >> useWindowsOrderedByTaskbar [ + + self windowsManaged: self windowsOrderedByTaskbar +] + +{ #category : #settings } +MIModel >> useWindowsOrderedByWorld [ + + self windowsManaged: self windowsOrderedByWorld +] + +{ #category : #accessing } +MIModel >> windowsManaged [ + ^ windowsManaged +] + +{ #category : #accessing } +MIModel >> windowsManaged: anObject [ + windowsManaged := anObject +] diff --git a/src/Mirage/MIModelAnnouncement.class.st b/src/Mirage/MIModelAnnouncement.class.st new file mode 100644 index 0000000..956d65f --- /dev/null +++ b/src/Mirage/MIModelAnnouncement.class.st @@ -0,0 +1,46 @@ +" +I am a generic announcement coming from a WPModel. +" +Class { + #name : #MIModelAnnouncement, + #superclass : #Announcement, + #instVars : [ + 'model' + ], + #category : 'Mirage-Announcements' +} + +{ #category : #accessing } +MIModelAnnouncement >> background [ + ^ self model background +] + +{ #category : #accessing } +MIModelAnnouncement >> model [ + ^ model +] + +{ #category : #accessing } +MIModelAnnouncement >> model: anObject [ + model := anObject +] + +{ #category : #accessing } +MIModelAnnouncement >> nextWindow [ + ^ self model nextWindow +] + +{ #category : #accessing } +MIModelAnnouncement >> previousWindow [ + ^ self model previousWindow +] + +{ #category : #accessing } +MIModelAnnouncement >> window [ + ^ self model currentWindow +] + +{ #category : #accessing } +MIModelAnnouncement >> windows [ + ^ self model windowsManaged +] diff --git a/src/Mirage/MIModelListener.trait.st b/src/Mirage/MIModelListener.trait.st new file mode 100644 index 0000000..9cf7cc5 --- /dev/null +++ b/src/Mirage/MIModelListener.trait.st @@ -0,0 +1,38 @@ +" +I define the behavior of an object that listen to a WPModel. + +The following methods **must** be overrided by the classes using me: +- #handleCloseRequest: For actions to be done when the user quit the windows previewer. +- #handleOpenRequest: For actions to be done when the user open the window previewer. +- #handleWindowSelected: For actions to be done when the user selected another window. +" +Trait { + #name : #MIModelListener, + #category : 'Mirage-Traits' +} + +{ #category : #'announcement handling' } +MIModelListener >> handleCloseRequest: aMICloseRequest [ + "Override this method to define the actions to do when the previewer is closed." + ^ self explicitRequirement +] + +{ #category : #'announcement handling' } +MIModelListener >> handleOpenRequest: aMIOpenRequest [ + "Override this method to define the actions to do when the previewer is opened." + ^ self explicitRequirement +] + +{ #category : #'announcement handling' } +MIModelListener >> handleWindowSelected: aMIThumbnailSelected [ + "Override this method to define the actions to do when the previewer's current window change." + ^ self explicitRequirement +] + +{ #category : #listening } +MIModelListener >> listenToWPModelAnnouncementsOf: aMIModel [ + aMIModel announcer + when: MIWindowSelected send: #handleWindowSelected: to: self; + when: MICloseRequest send: #handleCloseRequest: to: self; + when: MIOpenRequest send: #handleOpenRequest: to: self +] diff --git a/src/Mirage/MIOpenRequest.class.st b/src/Mirage/MIOpenRequest.class.st new file mode 100644 index 0000000..78df33f --- /dev/null +++ b/src/Mirage/MIOpenRequest.class.st @@ -0,0 +1,8 @@ +" +I announce the fact that the view shoud appear on the screen. +" +Class { + #name : #MIOpenRequest, + #superclass : #MIModelAnnouncement, + #category : 'Mirage-Announcements' +} diff --git a/src/Mirage/MIPreviewerShortcuts.trait.st b/src/Mirage/MIPreviewerShortcuts.trait.st new file mode 100644 index 0000000..d73d6ce --- /dev/null +++ b/src/Mirage/MIPreviewerShortcuts.trait.st @@ -0,0 +1,49 @@ +" +I have methods to create the shortcuts of a ""previewer"" ie an object that has the duty to display windows preview to the use for him to choose which one he want to activate. + +Any user of this trait must implements #on:do: for shortcuts creations (see #createShortcutsOn:). +" +Trait { + #name : #MIPreviewerShortcuts, + #category : 'Mirage-Traits' +} + +{ #category : #shortcuts } +MIPreviewerShortcuts >> closeShortcut [ + ^ KMUntypeableSingleKeyCombination escape +] + +{ #category : #shortcuts } +MIPreviewerShortcuts >> closeWindowShortcut [ + ^ KMModifier meta + $w asKeyCombination +] + +{ #category : #'shortcuts creation' } +MIPreviewerShortcuts >> createShortcutsOn: aWPModel [ + self + on: self openWindowShortcut do: [ aWPModel openCurrentWindow ]; + on: self closeShortcut do: [ aWPModel close ]; + on: self nextShortcut do: [ aWPModel next ]; + on: self previousShortcut do: [ aWPModel previous ]; + on: self closeWindowShortcut do: [ aWPModel closeCurrentWindow ] +] + +{ #category : #shortcuts } +MIPreviewerShortcuts >> nextShortcut [ + ^ KMUntypeableSingleKeyCombination tab + | KMUntypeableSingleKeyCombination arrowRight +] + +{ #category : #shortcuts } +MIPreviewerShortcuts >> openWindowShortcut [ + ^ Character space asKeyCombination + | KMUntypeableSingleKeyCombination enter + | Character cr asKeyCombination + | Character lf asKeyCombination +] + +{ #category : #shortcuts } +MIPreviewerShortcuts >> previousShortcut [ + ^ (KMModifier shift + KMUntypeableSingleKeyCombination tab) + | KMUntypeableSingleKeyCombination arrowLeft +] diff --git a/src/Mirage/MISettings.class.st b/src/Mirage/MISettings.class.st new file mode 100644 index 0000000..356eef6 --- /dev/null +++ b/src/Mirage/MISettings.class.st @@ -0,0 +1,72 @@ +" +The settings for the Windows Previewer. +" +Class { + #name : #MISettings, + #superclass : #Object, + #category : 'Mirage-Settings' +} + +{ #category : #accessing } +MISettings class >> windowsOrderingChoices [ + ^ ((Pragma allNamed: #mirageWindowsManagementNamed: in: MIModel) + collect: [ :pragma | + pragma arguments first -> pragma methodSelector ]) +] + +{ #category : #'settings-definition' } +MISettings class >> wpActivateSettingsOn: aBuilder [ + + (aBuilder setting: #mirage) + label: 'Activate'; + description: 'Activate the window previewer' translated; + setSelector: #install:; + getSelector: #isInstalled; + target: MIModel; + parent: #mirageSettings. +] + +{ #category : #'settings-definition' } +MISettings class >> wpOpenShortcutSettingsOn: aBuilder [ + + MIModel isInstalled + ifTrue: [ + (aBuilder shortcut: #mirageOpenShortcutSetting) + label: 'Open shortcut'; + description: 'Set the shortcut to open the windows previewer' translated; + category: MIModel globalKMCategoryName; + shortcutName: #'Open windows previews'; + parent: #mirageSettings ] +] + +{ #category : #'settings-definition' } +MISettings class >> wpSettingsOn: aBuilder [ + + + (aBuilder group: #mirageSettings) + label: 'Mirage' translated; + parent: #tools. +] + +{ #category : #'settings-definition' } +MISettings class >> wpViewsSettingsOn: aBuilder [ + + + (aBuilder group: #mirageViewsSettings) + label: 'Views to use' translated; + parent: #mirageSettings + +] + +{ #category : #'settings-definition' } +MISettings class >> wpWindowsManagementSettingOn: aBuilder [ + + (aBuilder pickOne: #windowsOrder) + label: 'Windows management'; + description: 'Set the windows management needed' translated; + target: MIModel; + domainValues: self windowsOrderingChoices; + setSelector: #windowsOrderingMethod:; + getSelector: #windowsOrderingMethod; + parent: #mirageSettings +] diff --git a/src/Mirage/MITaskbarManipulator.trait.st b/src/Mirage/MITaskbarManipulator.trait.st new file mode 100644 index 0000000..be060e9 --- /dev/null +++ b/src/Mirage/MITaskbarManipulator.trait.st @@ -0,0 +1,17 @@ +" +I define methods to manipulate the TaskbarMorph. +" +Trait { + #name : #MITaskbarManipulator, + #category : 'Mirage-Traits' +} + +{ #category : #taskbar } +MITaskbarManipulator >> taskbarMorph [ + ^ self taskbarMorphIn: World +] + +{ #category : #taskbar } +MITaskbarManipulator >> taskbarMorphIn: aWorldMorph [ + ^ aWorldMorph submorphs detect: [ :morph | morph isKindOf: TaskbarMorph ] +] diff --git a/src/Mirage/MIViewSetting.trait.st b/src/Mirage/MIViewSetting.trait.st new file mode 100644 index 0000000..56b592f --- /dev/null +++ b/src/Mirage/MIViewSetting.trait.st @@ -0,0 +1,46 @@ +" +I am the trait that should be used to be able to activate a view from the Settings browser. + +- #activate: Must be overrided to activate the view according to a Boolean given as parameter. +- #isActivated Must be overrided to return true if the view is activated, else false. +" +Trait { + #name : #MIViewSetting, + #category : 'Mirage-Traits' +} + +{ #category : #accessing } +MIViewSetting classSide >> activate: aBoolean [ + "Override this method such that if true is given as parameter, the view is + activated else, it is not." + self explicitRequirement +] + +{ #category : #'setting building' } +MIViewSetting classSide >> buildSettingNamed: aSymbol with: aBuilder [ + ^ (aBuilder setting: aSymbol) + setSelector: #activate:; + getSelector: #isActivated; + target: self; + parent: self parent; + yourself +] + +{ #category : #accessing } +MIViewSetting classSide >> isActivated [ + "Override this method such that it returns true if the view is activated, else false." + ^ self explicitRequirement +] + +{ #category : #accessing } +MIViewSetting classSide >> parent [ + ^ #mirageViewsSettings +] + +{ #category : #settings } +MIViewSetting classSide >> wpSettingOn: aBuilder [ + "Override this method to make the view appears in the Setting browser. + You will probably call #buildSettingNamed:with: when override it. + Do not forget to use pragma." + self explicitRequirement +] diff --git a/src/Mirage/MIWindowManipulator.trait.st b/src/Mirage/MIWindowManipulator.trait.st new file mode 100644 index 0000000..ffe21c5 --- /dev/null +++ b/src/Mirage/MIWindowManipulator.trait.st @@ -0,0 +1,52 @@ +" +I define methods to manipulate windows of a WorldMorph. +" +Trait { + #name : #MIWindowManipulator, + #traits : 'MITaskbarManipulator', + #classTraits : 'MITaskbarManipulator classTrait', + #category : 'Mirage-Traits' +} + +{ #category : #'windows manipulation' } +MIWindowManipulator >> topWindow [ + ^ self topWindowIn: World +] + +{ #category : #'windows manipulation' } +MIWindowManipulator >> topWindowIn: aWorldMorph [ + ^ (self windowsIn: aWorldMorph) + detect: #isTopWindow + ifNone: [ ENoTopWindow signal ] +] + +{ #category : #'windows manipulation' } +MIWindowManipulator >> windows [ + ^ self windowsIn: World +] + +{ #category : #'windows manipulation' } +MIWindowManipulator >> windowsIn: aWorldMorph [ + ^ aWorldMorph submorphs select: [ :morph | morph isKindOf: SystemWindow ] +] + +{ #category : #'windows manipulation' } +MIWindowManipulator >> windowsOrderedByTaskbar [ + ^ self windowsOrderedByTaskbarIn: World +] + +{ #category : #'windows manipulation' } +MIWindowManipulator >> windowsOrderedByTaskbarIn: aWorldMorph [ + ^ ((self taskbarMorphIn: aWorldMorph) orderedTasks + collect: #morph) select: [ :morph | morph isKindOf: SystemWindow ] +] + +{ #category : #'windows manipulation' } +MIWindowManipulator >> windowsOrderedByWorld [ + ^ self windowsOrderedByWorldIn: World +] + +{ #category : #'windows manipulation' } +MIWindowManipulator >> windowsOrderedByWorldIn: aWorldMorph [ + ^ aWorldMorph submorphs select: #isSystemWindow +] diff --git a/src/Mirage/MIWindowSelected.class.st b/src/Mirage/MIWindowSelected.class.st new file mode 100644 index 0000000..34c1bff --- /dev/null +++ b/src/Mirage/MIWindowSelected.class.st @@ -0,0 +1,8 @@ +" +I announce the fact that the #currentWindow has been selected. +" +Class { + #name : #MIWindowSelected, + #superclass : #MIModelAnnouncement, + #category : 'Mirage-Announcements' +} diff --git a/src/Mirage/MacOSPlatform.extension.st b/src/Mirage/MacOSPlatform.extension.st new file mode 100644 index 0000000..a3a5eb9 --- /dev/null +++ b/src/Mirage/MacOSPlatform.extension.st @@ -0,0 +1,6 @@ +Extension { #name : #MacOSPlatform } + +{ #category : #'*Mirage' } +MacOSPlatform >> mirageOpenPreviewerShortcut [ + ^ KMModifier shift + KMUntypeableSingleKeyCombination tab +] diff --git a/src/Mirage/Morph.extension.st b/src/Mirage/Morph.extension.st new file mode 100644 index 0000000..353a145 --- /dev/null +++ b/src/Mirage/Morph.extension.st @@ -0,0 +1,11 @@ +Extension { #name : #Morph } + +{ #category : #'*Mirage' } +Morph >> mirageLevel [ + ^ self valueOfProperty: #mirageLevel ifAbsent: [ ^ Float infinity ] +] + +{ #category : #'*Mirage' } +Morph >> mirageLevel: anInteger [ + ^ self setProperty: #mirageLevel toValue: anInteger +] diff --git a/src/Mirage/OSPlatform.extension.st b/src/Mirage/OSPlatform.extension.st new file mode 100644 index 0000000..919c75c --- /dev/null +++ b/src/Mirage/OSPlatform.extension.st @@ -0,0 +1,6 @@ +Extension { #name : #OSPlatform } + +{ #category : #'*Mirage' } +OSPlatform >> mirageOpenPreviewerShortcut [ + ^ self shouldBeImplemented +] diff --git a/src/Mirage/Object.extension.st b/src/Mirage/Object.extension.st new file mode 100644 index 0000000..9027ded --- /dev/null +++ b/src/Mirage/Object.extension.st @@ -0,0 +1,6 @@ +Extension { #name : #Object } + +{ #category : #'*Mirage' } +Object >> isWindowsPreviewer [ + ^ false +] diff --git a/src/Mirage/SystemWindow.extension.st b/src/Mirage/SystemWindow.extension.st new file mode 100644 index 0000000..0c9ad0b --- /dev/null +++ b/src/Mirage/SystemWindow.extension.st @@ -0,0 +1,15 @@ +Extension { #name : #SystemWindow } + +{ #category : #'*Mirage' } +SystemWindow >> mirageClose [ + ^ self close +] + +{ #category : #'*Mirage' } +SystemWindow >> mirageOpen [ + self isMinimized + ifTrue: [ self restore ] + ifFalse: [ + self isActive + ifFalse: [self activate] ] +] diff --git a/src/Mirage/UITheme.extension.st b/src/Mirage/UITheme.extension.st new file mode 100644 index 0000000..df4973f --- /dev/null +++ b/src/Mirage/UITheme.extension.st @@ -0,0 +1,6 @@ +Extension { #name : #UITheme } + +{ #category : #'*Mirage' } +UITheme >> mirageBackgroundColor [ + ^ Color gray alpha: 0.5 +] diff --git a/src/Mirage/UnixPlatform.extension.st b/src/Mirage/UnixPlatform.extension.st new file mode 100644 index 0000000..8decb04 --- /dev/null +++ b/src/Mirage/UnixPlatform.extension.st @@ -0,0 +1,6 @@ +Extension { #name : #UnixPlatform } + +{ #category : #'*Mirage' } +UnixPlatform >> mirageOpenPreviewerShortcut [ + ^ KMModifier ctrl + KMUntypeableSingleKeyCombination tab +] diff --git a/src/Mirage/Win32Platform.extension.st b/src/Mirage/Win32Platform.extension.st new file mode 100644 index 0000000..a75ad07 --- /dev/null +++ b/src/Mirage/Win32Platform.extension.st @@ -0,0 +1,6 @@ +Extension { #name : #Win32Platform } + +{ #category : #'*Mirage' } +Win32Platform >> mirageOpenPreviewerShortcut [ + ^ KMModifier shift + KMUntypeableSingleKeyCombination tab +] diff --git a/src/Mirage/package.st b/src/Mirage/package.st new file mode 100644 index 0000000..8e5b28e --- /dev/null +++ b/src/Mirage/package.st @@ -0,0 +1 @@ +Package { #name : #Mirage }