-
Notifications
You must be signed in to change notification settings - Fork 14
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
15890 some cleaning https://pharo.fogbugz.com/f/cases/15890 15072 Senders and implementors do not work when one parameter is a string containing : https://pharo.fogbugz.com/f/cases/15072 15899 Remove destructive example https://pharo.fogbugz.com/f/cases/15899 15897 Load new Workspace from AlainPlantec/WorkspaceRevisited https://pharo.fogbugz.com/f/cases/15897 http://files.pharo.org/image/50/50153.zip
- Loading branch information
Jenkins Build Server
authored and
ci
committed
Jul 6, 2015
1 parent
5d9ea00
commit fef56f2
Showing
117 changed files
with
276 additions
and
347 deletions.
There are no files selected for viewing
2 changes: 1 addition & 1 deletion
2
Gofer-Core.package/GoferResolvedReference.class/instance/accessing/version.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,4 +1,4 @@ | ||
version | ||
"Answer a Monticello version of the receiver." | ||
|
||
^ self repository goferVersionFrom: self | ||
^ self repository versionFrom: self name |
2 changes: 0 additions & 2 deletions
2
Gofer-Core.package/extension/MCFileBasedRepository/instance/goferVersionFrom_.st
This file was deleted.
Oops, something went wrong.
2 changes: 0 additions & 2 deletions
2
Gofer-Core.package/extension/MCRepository/instance/goferVersionFrom_.st
This file was deleted.
Oops, something went wrong.
4 changes: 2 additions & 2 deletions
4
...yRepository/instance/goferVersionFrom_.st → ....class/instance/accessing/versionFrom_.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,2 +1,2 @@ | ||
goferVersionFrom: aVersionReference | ||
^ self dictionary detect: [ :version | version info name = aVersionReference name ] | ||
versionFrom: aVersionReferenceString | ||
^ self dictionary detect: [ :version | version info name = aVersionReferenceString ] |
14 changes: 7 additions & 7 deletions
14
Monticello.package/MCFileBasedRepository.class/instance/accessing/versionFromFileNamed_.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,7 +1,7 @@ | ||
versionFromFileNamed: aString | ||
| v | | ||
v := self cache | ||
at: aString | ||
ifAbsent: [ self loadVersionFromFileNamed: aString ]. | ||
self updateCachedVersionFromFileName: aString with: v. | ||
^ v | ||
versionFromFileNamed: aFileName | ||
| version | | ||
version := self cache | ||
at: aFileName | ||
ifAbsent: [ self loadVersionFromFileNamed: aFileName ]. | ||
self updateCachedVersionFromFileName: aFileName with: version. | ||
^ version |
14 changes: 7 additions & 7 deletions
14
...age/MCFileBasedRepository.class/instance/accessing/versionFromRepositoryFromFileNamed_.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,7 +1,7 @@ | ||
versionFromRepositoryFromFileNamed: aString | ||
| v | | ||
v := self cache | ||
at: aString | ||
ifAbsent: [ self loadNotCachedVersionFromFileNamed: aString ]. | ||
self updateCachedVersionFromFileName: aString with: v. | ||
^ v | ||
versionFromRepositoryFromFileNamed: aFileName | ||
| version | | ||
version := self cache | ||
at: aFileName | ||
ifAbsent: [ self loadNotCachedVersionFromFileNamed: aFileName ]. | ||
self updateCachedVersionFromFileName: aFileName with: version. | ||
^ version |
2 changes: 2 additions & 0 deletions
2
Monticello.package/MCFileBasedRepository.class/instance/accessing/versionFrom_.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,2 @@ | ||
versionFrom: aVersionReferenceString | ||
^ self loadVersionFromFileNamed: aVersionReferenceString , '.mcz' |
8 changes: 5 additions & 3 deletions
8
...cello.package/MCFileBasedRepository.class/instance/accessing/versionInfoFromFileNamed_.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,3 +1,5 @@ | ||
versionInfoFromFileNamed: aString | ||
self cache at: aString ifPresent: [:v | ^ v info]. | ||
^ self loadVersionInfoFromFileNamed: aString | ||
versionInfoFromFileNamed: aFileName | ||
self cache | ||
at: aFileName | ||
ifPresent: [:version | ^ version info]. | ||
^ self loadVersionInfoFromFileNamed: aFileName |
4 changes: 2 additions & 2 deletions
4
...icello.package/MCFileBasedRepository.class/instance/accessing/versionNameFromFileName_.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,2 +1,2 @@ | ||
versionNameFromFileName: aString | ||
^ (aString copyUpToLast: $.) copyUpTo: $( | ||
versionNameFromFileName: aFileName | ||
^ (aFileName copyUpToLast: $.) copyUpTo: $( |
2 changes: 2 additions & 0 deletions
2
Monticello.package/MCRepository.class/instance/accessing/versionFrom_.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,2 @@ | ||
versionFrom: aVersionReferenceString | ||
self error: 'Unable to load from ' , self printString |
10 changes: 5 additions & 5 deletions
10
...eRepository/instance/goferVersionFrom_.st → ....class/instance/accessing/versionFrom_.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,9 +1,9 @@ | ||
goferVersionFrom: aVersionReference | ||
versionFrom: aVersionReferenceString | ||
"until we no longer find .tree directories in the wild" | ||
|
||
((self readableFileNames collect: [ :fileName | self fileDirectoryOn: fileName ]) | ||
select: [ :packageDirectory | self fileUtils directoryExists: packageDirectory ]) | ||
collect: [ :packageDirectory | | ||
(self versionInfoForPackageDirectory: packageDirectory) name = aVersionReference name | ||
(self readableFileNames collect: [ :fileName | self fileDirectoryOn: fileName ]) | ||
select: [ :packageDirectory | self fileUtils directoryExists: packageDirectory ] | ||
thenCollect: [ :packageDirectory | | ||
(self versionInfoForPackageDirectory: packageDirectory) name = aVersionReferenceString | ||
ifTrue: [ ^ self loadVersionFromFileNamed: (self fileUtils directoryName: packageDirectory) ] ]. | ||
^ nil |
11 changes: 0 additions & 11 deletions
11
NECompletion.package/extension/Workspace/instance/guessTypeForName_.st
This file was deleted.
Oops, something went wrong.
2 changes: 0 additions & 2 deletions
2
NECompletion.package/extension/Workspace/instance/hasBindingThatBeginsWith_.st
This file was deleted.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
15 changes: 0 additions & 15 deletions
15
ScriptLoader50.package/ScriptLoader.class/instance/pharo - updates/update50152.st
This file was deleted.
Oops, something went wrong.
15 changes: 15 additions & 0 deletions
15
ScriptLoader50.package/ScriptLoader.class/instance/pharo - updates/update50153.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,15 @@ | ||
update50153 | ||
"self new update50153" | ||
self withUpdateLog: '15890 some cleaning | ||
https://pharo.fogbugz.com/f/cases/15890 | ||
15072 Senders and implementors do not work when one parameter is a string containing : | ||
https://pharo.fogbugz.com/f/cases/15072 | ||
15899 Remove destructive example | ||
https://pharo.fogbugz.com/f/cases/15899 | ||
15897 Load new Workspace from AlainPlantec/WorkspaceRevisited | ||
https://pharo.fogbugz.com/f/cases/15897'. | ||
self loadTogether: self script50153 merge: false. | ||
self flushCaches. |
16 changes: 8 additions & 8 deletions
16
ScriptLoader50.package/ScriptLoader.class/instance/public/commentForCurrentUpdate.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,12 +1,12 @@ | ||
commentForCurrentUpdate | ||
^ '7008 Shared Pools to be treated like dictionaries still necessary? | ||
https://pharo.fogbugz.com/f/cases/7008 | ||
^ '15890 some cleaning | ||
https://pharo.fogbugz.com/f/cases/15890 | ||
15886 Find class dialog from a scope nautilus window shows all classes | ||
https://pharo.fogbugz.com/f/cases/15886 | ||
15072 Senders and implementors do not work when one parameter is a string containing : | ||
https://pharo.fogbugz.com/f/cases/15072 | ||
15889 do not call asOrderedCollection on compiled methods | ||
https://pharo.fogbugz.com/f/cases/15889 | ||
15899 Remove destructive example | ||
https://pharo.fogbugz.com/f/cases/15899 | ||
15892 Cleanups: clean annotation handling + rename HookGenerator2 | ||
https://pharo.fogbugz.com/f/cases/15892' | ||
15897 Load new Workspace from AlainPlantec/WorkspaceRevisited | ||
https://pharo.fogbugz.com/f/cases/15897' |
10 changes: 0 additions & 10 deletions
10
StartupPreferences.package/StartupPreferencesLoader.class/class/example/example3.st
This file was deleted.
Oops, something went wrong.
6 changes: 5 additions & 1 deletion
6
Text-Edition.package/SmalltalkEditor.class/instance/menu messages/selectedSelector.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,3 +1,7 @@ | ||
selectedSelector | ||
"Try to make a selector out of the current text selection" | ||
^self selection string findSelector | ||
| node | | ||
node := RBParser parseFaultyExpression: self selection string. | ||
node isMessage | ||
ifTrue: [ ^ node selector ] | ||
ifFalse: [ ^ node name ] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1 @@ | ||
A bottom bar to change the editing mode, switch with/without line numbers and switch wrapping mode |
2 changes: 2 additions & 0 deletions
2
Tool-Workspace.package/RubWorkspaceBar.class/class/querying/key.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,2 @@ | ||
key | ||
^ #workspaceBar |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,5 @@ | ||
RubScrolledTextSideRuler subclass: #RubWorkspaceBar | ||
instanceVariableNames: 'row wrappingPolicyMorph editingModeMorph lineNumbersDisplayMorph' | ||
classVariableNames: '' | ||
poolDictionaries: '' | ||
category: 'Tool-Workspace' |
2 changes: 2 additions & 0 deletions
2
Tool-Workspace.package/RubWorkspaceBar.class/instance/accessing/backgroundColor.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,2 @@ | ||
backgroundColor | ||
^ self paragraphProvider backgroundColor darker |
2 changes: 2 additions & 0 deletions
2
Tool-Workspace.package/RubWorkspaceBar.class/instance/accessing/fontToUse.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,2 @@ | ||
fontToUse | ||
^ RubAbstractTextArea lineNumbersFont |
2 changes: 2 additions & 0 deletions
2
Tool-Workspace.package/RubWorkspaceBar.class/instance/accessing/level.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,2 @@ | ||
level | ||
^ 1 |
2 changes: 2 additions & 0 deletions
2
Tool-Workspace.package/RubWorkspaceBar.class/instance/accessing/textColor.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,2 @@ | ||
textColor | ||
^ self textArea lineNumbersTextColor muchDarker |
6 changes: 6 additions & 0 deletions
6
Tool-Workspace.package/RubWorkspaceBar.class/instance/event handling/updateContents.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,6 @@ | ||
updateContents | ||
row ifNil: [ ^self ]. | ||
wrappingPolicyMorph contents: self wrappingPolicyLabel. | ||
editingModeMorph contents: self editingModeLabel. | ||
lineNumbersDisplayMorph contents: self lineNumbersDisplayLabel. | ||
row bounds: self innerBounds |
2 changes: 2 additions & 0 deletions
2
Tool-Workspace.package/RubWorkspaceBar.class/instance/geometry/computedHeightFrom_.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,2 @@ | ||
computedHeightFrom: aRectangle | ||
^ row ifNil: [0] ifNotNil: [row height] |
2 changes: 2 additions & 0 deletions
2
Tool-Workspace.package/RubWorkspaceBar.class/instance/geometry/computedWidthFrom_.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,2 @@ | ||
computedWidthFrom: aRectangle | ||
^ aRectangle width |
5 changes: 5 additions & 0 deletions
5
Tool-Workspace.package/RubWorkspaceBar.class/instance/geometry/manageLayoutInBounds_.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,5 @@ | ||
manageLayoutInBounds: aRectangle | ||
| ret | | ||
ret := super manageLayoutInBounds: aRectangle. | ||
self updateContents. | ||
^ ret |
3 changes: 3 additions & 0 deletions
3
Tool-Workspace.package/RubWorkspaceBar.class/instance/initialize-release/initialize.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,3 @@ | ||
initialize | ||
super initialize. | ||
self side: #bottom. |
3 changes: 3 additions & 0 deletions
3
...kspace.package/RubWorkspaceBar.class/instance/managing editing mode/chooseEditingMode_.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,3 @@ | ||
chooseEditingMode: anEvent | ||
self modeListMenu invokeAt: anEvent position in: self world. | ||
self updateContents |
2 changes: 2 additions & 0 deletions
2
...orkspace.package/RubWorkspaceBar.class/instance/managing editing mode/editingModeLabel.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,2 @@ | ||
editingModeLabel | ||
^ self paragraphProvider editingMode label |
4 changes: 4 additions & 0 deletions
4
...ace.package/RubWorkspaceBar.class/instance/managing editing mode/editingModeLabelMorph.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,4 @@ | ||
editingModeLabelMorph | ||
^ StringMorph | ||
contents: self editingModeLabel | ||
font: self fontToUse |
8 changes: 8 additions & 0 deletions
8
Tool-Workspace.package/RubWorkspaceBar.class/instance/managing editing mode/modeListMenu.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,8 @@ | ||
modeListMenu | ||
"Answer the menu to be presented to select an editing mode" | ||
|
||
| menu | | ||
menu := MenuMorph new. | ||
menu add: 'Plain text' target: self selector: #switchToPlainTextMode. | ||
menu add: 'Smalltalk scripting' target: self selector: #switchToSmalltalkScriptingMode. | ||
^ menu |
2 changes: 2 additions & 0 deletions
2
...ace.package/RubWorkspaceBar.class/instance/managing editing mode/switchToPlainTextMode.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,2 @@ | ||
switchToPlainTextMode | ||
self paragraphProvider beForPlainText |
2 changes: 2 additions & 0 deletions
2
...ge/RubWorkspaceBar.class/instance/managing editing mode/switchToSmalltalkScriptingMode.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,2 @@ | ||
switchToSmalltalkScriptingMode | ||
self paragraphProvider beForSmalltalkScripting |
6 changes: 6 additions & 0 deletions
6
....package/RubWorkspaceBar.class/instance/managing line numbers/changeLineNumbersDisplay.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,6 @@ | ||
changeLineNumbersDisplay | ||
self paragraphProvider lineNumbersRuler | ||
ifNil: [ self paragraphProvider withLineNumbers ] | ||
ifNotNil: [ self paragraphProvider withoutLineNumbers ]. | ||
self paragraphProvider manageLayout. | ||
self updateContents |
4 changes: 4 additions & 0 deletions
4
...e.package/RubWorkspaceBar.class/instance/managing line numbers/lineNumbersDisplayLabel.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,4 @@ | ||
lineNumbersDisplayLabel | ||
^ self paragraphProvider lineNumbersRuler | ||
ifNil: [ '+L' ] | ||
ifNotNil: [ 'L' ] |
4 changes: 4 additions & 0 deletions
4
...kage/RubWorkspaceBar.class/instance/managing line numbers/lineNumbersDisplayLabelMorph.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,4 @@ | ||
lineNumbersDisplayLabelMorph | ||
^ StringMorph | ||
contents: self lineNumbersDisplayLabel | ||
font: self fontToUse |
6 changes: 6 additions & 0 deletions
6
...e.package/RubWorkspaceBar.class/instance/managing wrapping policy/changeWrappingPolicy.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,6 @@ | ||
changeWrappingPolicy | ||
self paragraphProvider wrapped | ||
ifTrue: [ self paragraphProvider beNotWrapped ] | ||
ifFalse: [ self paragraphProvider beWrapped ]. | ||
self updateContents. | ||
self paragraphProvider changed |
4 changes: 4 additions & 0 deletions
4
...ce.package/RubWorkspaceBar.class/instance/managing wrapping policy/wrappingPolicyLabel.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,4 @@ | ||
wrappingPolicyLabel | ||
^ self paragraphProvider wrapped | ||
ifTrue: [ 'W' ] | ||
ifFalse: [ 'NW' ] |
4 changes: 4 additions & 0 deletions
4
...ckage/RubWorkspaceBar.class/instance/managing wrapping policy/wrappingPolicyLabelMorph.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,4 @@ | ||
wrappingPolicyLabelMorph | ||
^ StringMorph | ||
contents: self wrappingPolicyLabel | ||
font: self fontToUse |
5 changes: 5 additions & 0 deletions
5
Tool-Workspace.package/RubWorkspaceBar.class/instance/private/spacer_.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,5 @@ | ||
spacer: anInteger | ||
^ Morph new | ||
borderWidth: 0; | ||
color: Color transparent; | ||
extent: anInteger@3 |
Oops, something went wrong.