Packages November 2015

packages@lists.squeakfoundation.org

1 participants
228 discussions

The Trunk: MorphicExtras-kfr.168.mcz
by commits＠source.squeak.org 21 Nov '15

21 Nov '15

Karl Ramberg uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.168.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.168 Author: kfr Time: 21 November 2015, 10:36:27.418 pm UUID: 99d2fb92-d0ff-4175-9ca5-73d90053a5a1 Ancestors: MorphicExtras-kfr.167 Moved from MorphicExtras-Obsolete to Morphic-Extras-Widgets =============== Diff against MorphicExtras-kfr.167 =============== Item was changed: BorderedMorph subclass: #ProgressBarMorph instanceVariableNames: 'value progressColor lastValue' classVariableNames: '' poolDictionaries: '' + category: 'MorphicExtras-Widgets'! - category: 'MorphicExtras-Obsolete'! Item was changed: RectangleMorph subclass: #ProgressMorph instanceVariableNames: 'labelMorph subLabelMorph progress' classVariableNames: '' poolDictionaries: '' + category: 'MorphicExtras-Widgets'! - category: 'MorphicExtras-Obsolete'!

1 0

The Trunk: MorphicExtras-kfr.168.mcz
by commits＠source.squeak.org 21 Nov '15

21 Nov '15

1 0

The Trunk: Environments-kfr.59.mcz
by commits＠source.squeak.org 21 Nov '15

21 Nov '15

Karl Ramberg uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-kfr.59.mcz ==================== Summary ==================== Name: Environments-kfr.59 Author: kfr Time: 21 November 2015, 10:33:48.689 pm UUID: 28f20424-19f0-4333-90c3-7fe53fbd51b5 Ancestors: Environments-eem.58 Colin's suggested workaround for Bindings http://lists.squeakfoundation.org/pipermail/squeak-dev/2014-September/18001… =============== Diff against Environments-eem.58 =============== Item was changed: ----- Method: Binding>>objectForDataStream: (in category 'as yet unclassified') ----- + objectForDataStream: refStrm + | dp | + "I am about to be written on an object file. If I am a known global, write a proxy that will hook up with the same resource in the destination system." + self flag: #environments. + + ^ (Smalltalk globals associationAt: key ifAbsent: [nil]) == self + ifTrue: [dp := DiskProxy global: #Smalltalk selector: #associationOrUndeclaredAt: + args: (Array with: key). + refStrm replace: self with: dp. + dp] + ifFalse: [self]! - objectForDataStream: refStream - "It's not yet clear how serialization should work in the presence of environments" - - self shouldBeImplemented.!

1 0

The Trunk: Environments-kfr.59.mcz
by commits＠source.squeak.org 21 Nov '15

21 Nov '15

1 0

The Trunk: Morphic-cmm.1052.mcz
by commits＠source.squeak.org 21 Nov '15

21 Nov '15

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1052.mcz ==================== Summary ==================== Name: Morphic-cmm.1052 Author: cmm Time: 21 November 2015, 11:23:10.034 am UUID: 984e80fd-459b-467b-b350-bff00bb77b60 Ancestors: Morphic-mt.1051 - Restore the use-case "Replace Expression With A New Expression" (e.g., fix autoEnclose). "Connect Existing Expression To A New Expression" is already present via the Command key. We need to support both of those use cases. =============== Diff against Morphic-mt.1051 =============== Item was changed: ----- Method: TextEditor>>autoEncloseFor: (in category 'typing support') ----- autoEncloseFor: typedChar "Answer whether typeChar was handled by auto-enclosure. Caller should call normalCharacter if not." | openers closers | openers := '([{'. closers := ')]}'. (closers includes: typedChar) ifTrue: [ | pos | self blinkPrevParen: typedChar. ((pos := self indexOfNextNonwhitespaceCharacter) notNil and: [ (paragraph string at: pos) = typedChar ]) ifTrue: [ self moveCursor: [ : position | position + pos - pointBlock stringIndex + 1 ] forward: true select: false. ^ true ] ifFalse: [ ^ false ] ]. + (self class autoEnclose and: [ openers includes: typedChar ]) ifTrue: + [ self + addString: (closers at: (openers indexOf: typedChar)) asString ; + insertTypeAhead ; - (openers includes: typedChar) ifTrue: [ - self - openTypeIn; - addString: typedChar asString; - addString: (closers at: (openers indexOf: typedChar)) asString ; - insertAndCloseTypeIn ; moveCursor: [ : position | position - 1 ] forward: false select: false. + ^ false ]. - ^ true ]. ^ false! Item was changed: ----- Method: TextEditor>>dispatchOnKeyboardEvent: (in category 'typing support') ----- dispatchOnKeyboardEvent: aKeyboardEvent "Carry out the action associated with this character, if any. Type-ahead is passed so some routines can flush or use it." | honorCommandKeys typedChar | typedChar := aKeyboardEvent keyCharacter. "Create a new command for separating characters. Do not create separate commands for consecutive separators." ((Character separators includes: typedChar) and: [(Character separators includes: previousKeyCharacter) not]) ifTrue: [self closeTypeIn]. previousKeyCharacter := typedChar. "Handle one-line input fields." (typedChar == Character cr and: [morph acceptOnCR]) ifTrue: [^ true]. "Clear highlight for last opened parenthesis." self clearParens. "Handle line breaks and auto indent." typedChar == Character cr ifTrue: [ aKeyboardEvent controlKeyPressed ifTrue: [^ self normalCharacter: aKeyboardEvent]. aKeyboardEvent shiftPressed ifTrue: [^ self lf: aKeyboardEvent]. aKeyboardEvent commandKeyPressed ifTrue: [^ self crlf: aKeyboardEvent]. ^ self crWithIndent: aKeyboardEvent]. "Handle indent/outdent with selected text block." typedChar == Character tab ifTrue: [ aKeyboardEvent shiftPressed ifTrue: [self outdent: aKeyboardEvent. ^ true] ifFalse: [self hasMultipleLinesSelected ifTrue: [self indent: aKeyboardEvent. ^ true]]]. honorCommandKeys := Preferences cmdKeysInText. (honorCommandKeys and: [typedChar == Character enter]) ifTrue: [^ self dispatchOnEnterWith: aKeyboardEvent]. "Special keys overwrite crtl+key combinations - at least on Windows. To resolve this conflict, assume that keys other than cursor keys aren't used together with Crtl." ((self class specialShiftCmdKeys includes: aKeyboardEvent keyValue) and: [aKeyboardEvent keyValue < 27]) ifTrue: [^ aKeyboardEvent controlKeyPressed ifTrue: [self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent] ifFalse: [self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent]]. "backspace, and escape keys (ascii 8 and 27) are command keys" ((honorCommandKeys and: [aKeyboardEvent commandKeyPressed]) or: [self class specialShiftCmdKeys includes: aKeyboardEvent keyValue]) ifTrue: [ ^ aKeyboardEvent shiftPressed ifTrue: [self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent] ifFalse: [self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent]]. "the control key can be used to invoke shift-cmd shortcuts" (honorCommandKeys and: [ aKeyboardEvent controlKeyPressed ]) ifTrue: [^ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent]. - "Automatically enclose paired characters such as brackets." self class autoEnclose + ifTrue: + [ (self autoEncloseFor: typedChar) ifFalse: [ self normalCharacter: aKeyboardEvent ] ] + ifFalse: [ self normalCharacter: aKeyboardEvent ]. + - ifTrue: [((self hasSelection and: [self enclose: aKeyboardEvent]) - or: [self autoEncloseFor: typedChar]) - ifTrue: [^ true]]. - - self normalCharacter: aKeyboardEvent. ^ false!

1 0

The Trunk: Morphic-cmm.1052.mcz
by commits＠source.squeak.org 21 Nov '15

21 Nov '15

1 0

The Trunk: WebClient-HTTP-cmm.4.mcz
by commits＠source.squeak.org 21 Nov '15

21 Nov '15

Chris Muller uploaded a new version of WebClient-HTTP to project The Trunk: http://source.squeak.org/trunk/WebClient-HTTP-cmm.4.mcz ==================== Summary ==================== Name: WebClient-HTTP-cmm.4 Author: cmm Time: 20 November 2015, 5:30:31.892 pm UUID: 8f2d17a2-99b0-4216-8808-5d3276f15ae0 Ancestors: WebClient-HTTP-cmm.3 Support the 'args' variable in HTTPSocket class>>#httpGet:args:user:passwd:. This fixes the in-image 'mc history' and origin functions for methods and classes. =============== Diff against WebClient-HTTP-cmm.3 =============== Item was changed: ----- Method: HTTPSocket class>>httpGet:args:user:passwd: (in category '*webclient-http') ----- httpGet: url args: args user: user passwd: passwd "Upload the contents of the stream to a file on the server. WARNING: This method will send a basic auth header proactively. This is necessary to avoid breaking MC and SqueakSource since SS does not return a 401 when accessing a private (global no access) repository." | urlString xhdrs client resp progress | + "Normalize the url and append args" - "Normalize the url" urlString := (Url absoluteFromText: url) asString. + args ifNotNil: [ + urlString := urlString, (self argString: args) + ]. "Some raw extra headers which historically have been added" xhdrs := HTTPProxyCredentials, HTTPBlabEmail. "may be empty" client := WebClient new. client username: user; password: passwd. ^[resp := client httpGet: urlString do:[:req| "HACK: Proactively send a basic auth header. See comment above." req headerAt: 'Authorization' put: 'Basic ', (user, ':', passwd) base64Encoded. "Accept anything" req addHeader: 'Accept' value: '*/*'. "Add the additional headers" (WebUtils readHeadersFrom: xhdrs readStream) do:[:assoc| req addHeader: assoc key value: assoc value]]. progress := [:total :amount| (HTTPProgress new) total: total; amount: amount; signal: 'Downloading...' ]. "Simulate old HTTPSocket return behavior" (resp code between: 200 and: 299) ifTrue:[^(RWBinaryOrTextStream with: (resp contentWithProgress: progress)) reset] ifFalse:[resp asString, resp content]. ] ensure:[client destroy]. !

1 0

The Trunk: WebClient-HTTP-cmm.4.mcz
by commits＠source.squeak.org 21 Nov '15

21 Nov '15

1 0

The Trunk: Morphic-mt.1051.mcz
by commits＠source.squeak.org 20 Nov '15

20 Nov '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1051.mcz ==================== Summary ==================== Name: Morphic-mt.1051 Author: mt Time: 20 November 2015, 2:29:13.339 pm UUID: ccdb7ba4-414d-4c5b-ac18-6b858c14b3ea Ancestors: Morphic-mt.1050 Minor fix in text editor history. Do not create separate commands for consecutively typed separators. Allows for search/replace tabs with spaces (or vice versa) in-place. =============== Diff against Morphic-mt.1050 =============== Item was changed: Editor subclass: #TextEditor + instanceVariableNames: 'model paragraph markBlock pointBlock beginTypeInIndex emphasisHere lastParenLocation otherInterval oldInterval typeAhead history previousKeyCharacter' - instanceVariableNames: 'model paragraph markBlock pointBlock beginTypeInIndex emphasisHere lastParenLocation otherInterval oldInterval typeAhead history' classVariableNames: 'AutoEnclose AutoIndent ChangeText FindText' poolDictionaries: '' category: 'Morphic-Text Support'! TextEditor class instanceVariableNames: 'cmdActions shiftCmdActions yellowButtonMenu shiftedYellowButtonMenu'! !TextEditor commentStamp: '<historical>' prior: 0! See comment in Editor. My instances edit Text, this is, they support multiple lines and TextAttributes. They have no specific facilities for editing Smalltalk code. Those are found in SmalltalkEditor.! TextEditor class instanceVariableNames: 'cmdActions shiftCmdActions yellowButtonMenu shiftedYellowButtonMenu'! Item was changed: ----- Method: TextEditor>>dispatchOnKeyboardEvent: (in category 'typing support') ----- dispatchOnKeyboardEvent: aKeyboardEvent "Carry out the action associated with this character, if any. Type-ahead is passed so some routines can flush or use it." | honorCommandKeys typedChar | typedChar := aKeyboardEvent keyCharacter. + "Create a new command for separating characters. Do not create separate commands for consecutive separators." + ((Character separators includes: typedChar) + and: [(Character separators includes: previousKeyCharacter) not]) + ifTrue: [self closeTypeIn]. + previousKeyCharacter := typedChar. - "Create a new command for separating characters." - (Character separators includes: typedChar) - ifTrue: [self closeTypeIn]. "Handle one-line input fields." (typedChar == Character cr and: [morph acceptOnCR]) ifTrue: [^ true]. "Clear highlight for last opened parenthesis." self clearParens. "Handle line breaks and auto indent." typedChar == Character cr ifTrue: [ aKeyboardEvent controlKeyPressed ifTrue: [^ self normalCharacter: aKeyboardEvent]. aKeyboardEvent shiftPressed ifTrue: [^ self lf: aKeyboardEvent]. aKeyboardEvent commandKeyPressed ifTrue: [^ self crlf: aKeyboardEvent]. ^ self crWithIndent: aKeyboardEvent]. "Handle indent/outdent with selected text block." typedChar == Character tab ifTrue: [ aKeyboardEvent shiftPressed ifTrue: [self outdent: aKeyboardEvent. ^ true] ifFalse: [self hasMultipleLinesSelected ifTrue: [self indent: aKeyboardEvent. ^ true]]]. honorCommandKeys := Preferences cmdKeysInText. (honorCommandKeys and: [typedChar == Character enter]) ifTrue: [^ self dispatchOnEnterWith: aKeyboardEvent]. "Special keys overwrite crtl+key combinations - at least on Windows. To resolve this conflict, assume that keys other than cursor keys aren't used together with Crtl." ((self class specialShiftCmdKeys includes: aKeyboardEvent keyValue) and: [aKeyboardEvent keyValue < 27]) ifTrue: [^ aKeyboardEvent controlKeyPressed ifTrue: [self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent] ifFalse: [self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent]]. "backspace, and escape keys (ascii 8 and 27) are command keys" ((honorCommandKeys and: [aKeyboardEvent commandKeyPressed]) or: [self class specialShiftCmdKeys includes: aKeyboardEvent keyValue]) ifTrue: [ ^ aKeyboardEvent shiftPressed ifTrue: [self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent] ifFalse: [self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent]]. "the control key can be used to invoke shift-cmd shortcuts" (honorCommandKeys and: [ aKeyboardEvent controlKeyPressed ]) ifTrue: [^ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent]. "Automatically enclose paired characters such as brackets." self class autoEnclose ifTrue: [((self hasSelection and: [self enclose: aKeyboardEvent]) or: [self autoEncloseFor: typedChar]) ifTrue: [^ true]]. self normalCharacter: aKeyboardEvent. ^ false!

1 0

The Trunk: Morphic-mt.1051.mcz
by commits＠source.squeak.org 20 Nov '15

20 Nov '15

1 0

← Newer
1
2
3
4
5
6
7
...
23
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2015