Squeak-dev June 2011

squeak-dev@lists.squeakfoundation.org

77 participants
236 discussions

The Trunk: Morphic-cmm.549.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.549.mcz ==================== Summary ==================== Name: Morphic-cmm.549 Author: cmm Time: 21 June 2011, 4:37:36.774 pm UUID: 7a4d2568-d94b-41ea-ba5d-36dd5eba9557 Ancestors: Morphic-cmm.548, Morphic-rhi.439 Integrated Morphic-rhi.439, full-screen toggle button on the tool-bar. =============== Diff against Morphic-cmm.548 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>fillDockingBar: (in category 'construction') ----- fillDockingBar: aDockingBar "Private - fill the given docking bar" aDockingBar addSpace: 6. self menusOn: aDockingBar. + aDockingBar addSpacer. + self rightSideOn: aDockingBar. aDockingBar setProperty: #mainDockingBarTimeStamp + toValue: self class timeStamp.! - toValue: self class timeStamp! Item was changed: ----- Method: TheWorldMainDockingBar>>menusOn: (in category 'construction') ----- + menusOn: aDockingBar - menusOn: aDockingBar + self - self squeakMenuOn: aDockingBar; projectsMenuOn: aDockingBar; toolsMenuOn: aDockingBar; appsMenuOn: aDockingBar; extrasMenuOn: aDockingBar; windowsMenuOn: aDockingBar; + helpMenuOn: aDockingBar.! - helpMenuOn: aDockingBar. - aDockingBar addSpacer. - self - searchBarOn: aDockingBar; - clockOn: aDockingBar! Item was added: + ----- Method: TheWorldMainDockingBar>>rightSideOn: (in category 'construction') ----- + rightSideOn: aDockingBar + + self + searchBarOn: aDockingBar; + clockOn: aDockingBar; + toggleFullScreenOn: aDockingBar.! Item was added: + ----- Method: TheWorldMainDockingBar>>toggleFullScreenOn: (in category 'right side') ----- + toggleFullScreenOn: aDockingBar + + | toggleMorph toggleColor toggleColorOver | + toggleColor := Color "transparent" lightOrange. + toggleColorOver := Color orange. + (toggleMorph := Morph new) + extent: 18 @ 18; flag: #rhi; "*** 18 = MAGIC NUMBER? ***" + borderWidth: 0; + color: toggleColor; + setBalloonText: 'toggle full screen mode'; + on: #mouseDown send: #value to: [Project current toggleFullScreen]; + on: #mouseEnter send: #value to: [toggleMorph color: toggleColorOver]; + on: #mouseLeave send: #value to: [toggleMorph color: toggleColor]. + aDockingBar addMorphBack: toggleMorph.!

1 0

The Trunk: Kernel-nice.569.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.569.mcz ==================== Summary ==================== Name: Kernel-nice.569 Author: nice Time: 12 April 2011, 9:22:32.787 am UUID: 6fde25b5-ec3e-3146-94b5-d9e228e02776 Ancestors: Kernel-cmm.568 A bit faster bitReverse: for LargePositiveInteger =============== Diff against Kernel-cmm.568 =============== Item was added: + ----- Method: LargePositiveInteger>>bitReverse: (in category 'bit manipulation') ----- + bitReverse: highBit + "This implementation is faster than super" + + | digitSize reversed | + highBit < self highBit ifTrue: [ self error: 'Not enough bits.' ]. + digitSize := highBit + 7 // 8. + reversed := self class new: digitSize. + 1 to: self digitLength do: [:i | + reversed digitAt: digitSize + 1 - i put: (self digitAt: i) byteReversed]. + ^reversed bitShift: highBit - (digitSize * 8)! Item was added: + ----- Method: SmallInteger>>byteReversed (in category 'bit manipulation') ----- + byteReversed + "Answer the receiver with bits reversed in a byte. + The receiver must be between 0 and 255. + The constant has been obtained by this snippet: + (0 to: 255) collect: [:e | + | r | + r := ((e bitAnd: 2r11110000) bitShift: -4) + ((e bitAnd: 2r00001111) bitShift: 4). + r := ((r bitAnd: 2r11001100) bitShift: -2) + ((r bitAnd: 2r00110011) bitShift: 2). + ((r bitAnd: 2r10101010) bitShift: -1) + ((r bitAnd: 2r01010101) bitShift: 1).] as: ByteArray" + + ^#[0 128 64 192 32 160 96 224 16 144 80 208 48 176 112 240 8 136 72 200 40 168 104 232 24 152 88 216 56 184 120 248 4 132 68 196 36 164 100 228 20 148 84 212 52 180 116 244 12 140 76 204 44 172 108 236 28 156 92 220 60 188 124 252 2 130 66 194 34 162 98 226 18 146 82 210 50 178 114 242 10 138 74 202 42 170 106 234 26 154 90 218 58 186 122 250 6 134 70 198 38 166 102 230 22 150 86 214 54 182 118 246 14 142 78 206 46 174 110 238 30 158 94 222 62 190 126 254 1 129 65 193 33 161 97 225 17 145 81 209 49 177 113 241 9 137 73 201 41 169 105 233 25 153 89 217 57 185 121 249 5 133 69 197 37 165 101 229 21 149 85 213 53 181 117 245 13 141 77 205 45 173 109 237 29 157 93 221 61 189 125 253 3 131 67 195 35 163 99 227 19 147 83 211 51 179 115 243 11 139 75 203 43 171 107 235 27 155 91 219 59 187 123 251 7 135 71 199 39 167 103 231 23 151 87 215 55 183 119 247 15 143 79 207 47 175 111 239 31 159 95 223 63 191 127 255] at: 1 + self!

1 0

The Trunk: Kernel-cmm.600.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.600.mcz ==================== Summary ==================== Name: Kernel-cmm.600 Author: cmm Time: 21 June 2011, 4:20:30.074 pm UUID: ce9a0eba-082b-48c3-873d-d824b8898571 Ancestors: Kernel-nice.569, Kernel-ul.599 merged Kernel-nice.569. =============== Diff against Kernel-ul.599 =============== Item was added: + ----- Method: LargePositiveInteger>>bitReverse: (in category 'bit manipulation') ----- + bitReverse: highBit + "This implementation is faster than super" + + | digitSize reversed | + highBit < self highBit ifTrue: [ self error: 'Not enough bits.' ]. + digitSize := highBit + 7 // 8. + reversed := self class new: digitSize. + 1 to: self digitLength do: [:i | + reversed digitAt: digitSize + 1 - i put: (self digitAt: i) byteReversed]. + ^reversed bitShift: highBit - (digitSize * 8)! Item was added: + ----- Method: SmallInteger>>byteReversed (in category 'bit manipulation') ----- + byteReversed + "Answer the receiver with bits reversed in a byte. + The receiver must be between 0 and 255. + The constant has been obtained by this snippet: + (0 to: 255) collect: [:e | + | r | + r := ((e bitAnd: 2r11110000) bitShift: -4) + ((e bitAnd: 2r00001111) bitShift: 4). + r := ((r bitAnd: 2r11001100) bitShift: -2) + ((r bitAnd: 2r00110011) bitShift: 2). + ((r bitAnd: 2r10101010) bitShift: -1) + ((r bitAnd: 2r01010101) bitShift: 1).] as: ByteArray" + + ^#[0 128 64 192 32 160 96 224 16 144 80 208 48 176 112 240 8 136 72 200 40 168 104 232 24 152 88 216 56 184 120 248 4 132 68 196 36 164 100 228 20 148 84 212 52 180 116 244 12 140 76 204 44 172 108 236 28 156 92 220 60 188 124 252 2 130 66 194 34 162 98 226 18 146 82 210 50 178 114 242 10 138 74 202 42 170 106 234 26 154 90 218 58 186 122 250 6 134 70 198 38 166 102 230 22 150 86 214 54 182 118 246 14 142 78 206 46 174 110 238 30 158 94 222 62 190 126 254 1 129 65 193 33 161 97 225 17 145 81 209 49 177 113 241 9 137 73 201 41 169 105 233 25 153 89 217 57 185 121 249 5 133 69 197 37 165 101 229 21 149 85 213 53 181 117 245 13 141 77 205 45 173 109 237 29 157 93 221 61 189 125 253 3 131 67 195 35 163 99 227 19 147 83 211 51 179 115 243 11 139 75 203 43 171 107 235 27 155 91 219 59 187 123 251 7 135 71 199 39 167 103 231 23 151 87 215 55 183 119 247 15 143 79 207 47 175 111 239 31 159 95 223 63 191 127 255] at: 1 + self!

1 0

The Trunk: Network-cmm.100.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-cmm.100.mcz ==================== Summary ==================== Name: Network-cmm.100 Author: cmm Time: 30 January 2011, 2:49:47.664 pm UUID: 38c367c6-54a9-406c-94ad-c414b90a3987 Ancestors: Network-ul.99 When shouldSignal is true, we should pass the exception, not ignore it! =============== Diff against Network-ul.99 =============== Item was changed: ----- Method: SocketStream>>flush (in category 'control') ----- flush "If the other end is connected and we have something to send, then we send it and reset the outBuffer." + (outNextToWrite > 1 and: [ socket isOtherEndClosed not ]) ifTrue: + [ [ self + sendData: outBuffer + count: outNextToWrite - 1 ] + on: ConnectionTimedOut + do: [ : ex | shouldSignal ifTrue: [ ex pass ] ]. + outNextToWrite := 1 ]! - - ((outNextToWrite > 1) and: [socket isOtherEndClosed not]) - ifTrue: [ - [self sendData: outBuffer count: outNextToWrite - 1] - on: ConnectionTimedOut - do: [:ex | shouldSignal ifFalse: ["swallow"]]. - outNextToWrite := 1]! Item was changed: ----- Method: SocketStream>>nextPutAllFlush: (in category 'stream out') ----- + nextPutAllFlush: aCollection - nextPutAllFlush: aCollection "Put a String or a ByteArray onto the stream. You can use this if you have very large data - it avoids copying into the buffer (and avoids buffer growing) and also flushes any other pending data first." - | toPut | + toPut := binary + ifTrue: [ aCollection asByteArray ] + ifFalse: [ aCollection asString ]. + self flush. + "first flush pending stuff, then directly send" + socket isOtherEndClosed ifFalse: + [ [ self + sendData: toPut + count: toPut size ] - toPut := binary ifTrue: [aCollection asByteArray] ifFalse: [aCollection asString]. - self flush. "first flush pending stuff, then directly send" - socket isOtherEndClosed ifFalse: [ - [self sendData: toPut count: toPut size] on: ConnectionTimedOut + do: [ : ex | shouldSignal ifTrue: [ ex pass ] ] ]! - do: [:ex | shouldSignal ifFalse: ["swallow"]]]!

1 0

The Trunk: Network-cmm.116.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-cmm.116.mcz ==================== Summary ==================== Name: Network-cmm.116 Author: cmm Time: 21 June 2011, 3:55:44.34 pm UUID: d73f5641-b64c-47cd-b353-211ed31428a0 Ancestors: Network-ul.115, Network-cmm.100 Merged Network-cmm.100. =============== Diff against Network-ul.115 =============== Item was changed: ----- Method: SocketStream>>flush (in category 'control') ----- flush "If the other end is connected and we have something to send, then we send it and reset the outBuffer." + (outNextToWrite > 1 and: [ socket isOtherEndClosed not ]) ifTrue: + [ [ self + sendData: outBuffer + count: outNextToWrite - 1 ] + on: ConnectionTimedOut + do: [ : ex | shouldSignal ifTrue: [ ex pass ] ]. + outNextToWrite := 1 ]! - - ((outNextToWrite > 1) and: [socket isOtherEndClosed not]) - ifTrue: [ - [self sendData: outBuffer count: outNextToWrite - 1] - on: ConnectionTimedOut - do: [:ex | shouldSignal ifFalse: ["swallow"]]. - outNextToWrite := 1]! Item was changed: ----- Method: SocketStream>>nextPutAllFlush: (in category 'stream out') ----- + nextPutAllFlush: aCollection - nextPutAllFlush: aCollection "Put a String or a ByteArray onto the stream. You can use this if you have very large data - it avoids copying into the buffer (and avoids buffer growing) and also flushes any other pending data first." - | toPut | + toPut := binary + ifTrue: [ aCollection asByteArray ] + ifFalse: [ aCollection asString ]. + self flush. + "first flush pending stuff, then directly send" + socket isOtherEndClosed ifFalse: + [ [ self + sendData: toPut + count: toPut size ] - toPut := binary ifTrue: [aCollection asByteArray] ifFalse: [aCollection asString]. - self flush. "first flush pending stuff, then directly send" - socket isOtherEndClosed ifFalse: [ - [self sendData: toPut count: toPut size] on: ConnectionTimedOut + do: [ : ex | shouldSignal ifTrue: [ ex pass ] ] ]! - do: [:ex | shouldSignal ifFalse: ["swallow"]]]!

1 0

The Trunk: ST80-HenrikSperreJohansen.124.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-HenrikSperreJohansen.124.mcz ==================== Summary ==================== Name: ST80-HenrikSperreJohansen.124 Author: HenrikSperreJohansen Time: 21 January 2011, 8:12:20.472 pm UUID: 9f4cbd24-c2cc-ad40-ba46-a0544eeb2deb Ancestors: ST80-nice.122 Update to use pragma-based sound preferences =============== Diff against ST80-nice.122 =============== Item was changed: ----- Method: ScreenController>>helpMenu (in category 'nested menus') ----- helpMenu "Answer the help menu to be put up as a screen submenu" ^ SelectionMenu labelList: #( 'about this system...' 'update code from server' 'preferences...' 'command-key help' 'font size summary' 'useful expressions' 'view graphical imports' 'standard graphics library'), + (Array with: (SoundService soundEnablingString)) , - (Array with: (Preferences soundsEnabled - ifFalse: ['turn sound on'] - ifTrue: ['turn sound off'])) , #( 'set author initials...' 'vm statistics' 'space left') lines: #(1 4 6 11) selections: #( aboutThisSystem absorbUpdatesFromServer editPreferences openCommandKeyHelp fontSizeSummary openStandardWorkspace viewImageImports standardGraphicsLibrary soundOnOrOff setAuthorInitials vmStatistics garbageCollect) " ScreenController new helpMenu startUp "! Item was changed: ----- Method: ScreenController>>soundOnOrOff (in category 'menu messages') ----- soundOnOrOff + SoundService toggleSoundEnabled! - Preferences setPreference: #soundsEnabled - toValue: Preferences soundsEnabled not!

1 0

The Trunk: ST80-cmm.130.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-cmm.130.mcz ==================== Summary ==================== Name: ST80-cmm.130 Author: cmm Time: 21 June 2011, 3:47:55.174 pm UUID: 633a8380-bf00-465a-970c-88140c8bc57d Ancestors: ST80-ul.129, ST80-HenrikSperreJohansen.124 Merged ST80-HenrikSperreJohansen.124 for pragma-based Sound preferences. =============== Diff against ST80-ul.129 =============== Item was changed: ----- Method: ScreenController>>helpMenu (in category 'nested menus') ----- helpMenu "Answer the help menu to be put up as a screen submenu" ^ SelectionMenu labelList: #( 'about this system...' 'update code from server' 'preferences...' 'command-key help' 'font size summary' 'useful expressions' 'view graphical imports' 'standard graphics library'), + (Array with: (SoundService soundEnablingString)) , - (Array with: (Preferences soundsEnabled - ifFalse: ['turn sound on'] - ifTrue: ['turn sound off'])) , #( 'set author initials...' 'vm statistics' 'space left') lines: #(1 4 6 11) selections: #( aboutThisSystem absorbUpdatesFromServer editPreferences openCommandKeyHelp fontSizeSummary openStandardWorkspace viewImageImports standardGraphicsLibrary soundOnOrOff setAuthorInitials vmStatistics garbageCollect) " ScreenController new helpMenu startUp "! Item was changed: ----- Method: ScreenController>>soundOnOrOff (in category 'menu messages') ----- soundOnOrOff + SoundService toggleSoundEnabled! - Preferences setPreference: #soundsEnabled - toValue: Preferences soundsEnabled not!

1 0

The Trunk: EToys-HenrikSperreJohansen.81.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-HenrikSperreJohansen.81.mcz ==================== Summary ==================== Name: EToys-HenrikSperreJohansen.81 Author: HenrikSperreJohansen Time: 21 January 2011, 8:13:44.285 pm UUID: b956ee5e-7d08-f946-9b79-fd22c6d0c3d1 Ancestors: EToys-nice.79 Update to use pragma-based sound preferences =============== Diff against EToys-nice.79 =============== Item was changed: ----- Method: Morph>>makeFenceSound (in category '*Etoys-support') ----- makeFenceSound + SoundService soundEnabled ifTrue: - Preferences soundsEnabled ifTrue: [self playSoundNamed: 'scratch']. ! Item was changed: ----- Method: Player>>makeBounceSound: (in category 'misc') ----- makeBounceSound: soundName "Having bounced off an edge, produce the given sound" + SoundService soundEnabled - Preferences soundsEnabled ifTrue: [self costume playSoundNamed: soundName]!

1 0

The Trunk: EToys-cmm.84.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-cmm.84.mcz ==================== Summary ==================== Name: EToys-cmm.84 Author: cmm Time: 21 June 2011, 3:45:22.38 pm UUID: 52279007-f90c-4823-a157-7db229e86a31 Ancestors: EToys-ul.83, EToys-HenrikSperreJohansen.81 Merged EToys-HenrikSperreJohansen.81 to move Sound preferences to pragma. =============== Diff against EToys-ul.83 =============== Item was changed: ----- Method: Morph>>makeFenceSound (in category '*Etoys-support') ----- makeFenceSound + SoundService soundEnabled ifTrue: - Preferences soundsEnabled ifTrue: [self playSoundNamed: 'scratch']. ! Item was changed: ----- Method: Player>>makeBounceSound: (in category 'misc') ----- makeBounceSound: soundName "Having bounced off an edge, produce the given sound" + SoundService soundEnabled - Preferences soundsEnabled ifTrue: [self costume playSoundNamed: soundName]!

1 0

The Trunk: Morphic-HenrikSperreJohansen.518.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-HenrikSperreJohansen.518.mcz ==================== Summary ==================== Name: Morphic-HenrikSperreJohansen.518 Author: HenrikSperreJohansen Time: 21 January 2011, 8:13:08.247 pm UUID: fef96a80-5bd1-7045-94dd-e0d64a521fa1 Ancestors: Morphic-dtl.516 Update to use pragma-based sound preferences =============== Diff against Morphic-dtl.516 =============== Item was changed: ----- Method: HaloMorph>>mouseDownInDimissHandle:with: (in category 'private') ----- mouseDownInDimissHandle: evt with: dismissHandle evt hand obtainHalo: self. + SoundService soundEnabled ifTrue: [TrashCanMorph playMouseEnterSound]. - Preferences soundsEnabled ifTrue: [TrashCanMorph playMouseEnterSound]. self removeAllHandlesBut: dismissHandle. self setColor: Color darkGray toHandle: dismissHandle. ! Item was changed: ----- Method: Morph>>vanishAfterSlidingTo:event: (in category 'dropping/grabbing') ----- vanishAfterSlidingTo: aPosition event: evt | aForm aWorld startPoint endPoint | aForm := self imageForm offset: 0@0. aWorld := self world. startPoint := evt hand fullBounds origin. self delete. aWorld displayWorld. endPoint := aPosition. aForm slideFrom: startPoint to: endPoint nSteps: 12 delay: 15. + SoundService soundEnabled ifTrue: [TrashCanMorph playDeleteSound]. - Preferences soundsEnabled ifTrue: [TrashCanMorph playDeleteSound]. !

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
24
Older →

Jump to page: