Packages July 2012

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: Tools-fbs.420.mcz
by commits＠source.squeak.org 26 Jul '12

26 Jul '12

Frank Shearar uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.420.mcz ==================== Summary ==================== Name: Tools-fbs.420 Author: fbs Time: 26 July 2012, 10:26:12.798 am UUID: af3c34d8-9588-47f3-84c2-3dac8ae85862 Ancestors: Tools-fbs.419, Tools-ael.394 fix to invocation of file-specific "services" from contents pane of a FileList =============== Diff against Tools-fbs.419 =============== Item was changed: ----- Method: FileList>>fileContentsMenu:shifted: (in category 'file list menu') ----- fileContentsMenu: aMenu shifted: shifted "Construct aMenu to have items appropriate for the file browser's code pane, given the shift state provided" | services maybeLine extraLines | shifted ifTrue: [^ aMenu addList: StringHolder shiftedYellowButtonMenuItems]. fileName ifNotNil: [services := OrderedCollection new. (#(briefHex briefFile needToGetBriefHex needToGetBrief) includes: brevityState) ifTrue: [services add: self serviceGet]. (#(fullHex briefHex needToGetFullHex needToGetBriefHex) includes: brevityState) ifFalse: [services add: self serviceGetHex]. (#(needToGetShiftJIS needToGetEUCJP needToGetCNGB needToGetEUCKR needToGetUTF8) includes: brevityState) ifFalse: [services add: self serviceGetEncodedText]. maybeLine := services size. (FileStream sourceFileSuffixes includes: self suffixOfSelectedFile) ifTrue: [services addAll: (self servicesFromSelectorSpecs: #(fileIntoNewChangeSet: fileIn: browseChangesFile: browseFile:))]. extraLines := OrderedCollection new. maybeLine > 0 ifTrue: [extraLines add: maybeLine]. services size > maybeLine ifTrue: [extraLines add: services size]. aMenu addServices: services + for: self - for: self fullName extraLines: extraLines]. aMenu addList: { {'find...(f)' translated. #find}. {'find again (g)' translated. #findAgain}. {'set search string (h)' translated. #setSearchString}. #-. {'do again (j)' translated. #again}. {'undo (z)' translated. #undo}. #-. {'copy (c)' translated. #copySelection}. {'cut (x)' translated. #cut}. {'paste (v)' translated. #paste}. {'paste...' translated. #pasteRecent}. #-. {'do it (d)' translated. #doIt}. {'print it (p)' translated. #printIt}. {'inspect it (i)' translated. #inspectIt}. {'fileIn selection (G)' translated. #fileItIn}. #-. {'accept (s)' translated. #accept}. {'cancel (l)' translated. #cancel}. #-. {'more...' translated. #shiftedYellowButtonActivity}}. ^ aMenu !

1 0

The Trunk: Tools-fbs.420.mcz
by commits＠source.squeak.org 26 Jul '12

26 Jul '12

1 0

The Trunk: Tools-fbs.420.mcz
by commits＠source.squeak.org 26 Jul '12

26 Jul '12

1 0

The Trunk: Tools-fbs.419.mcz
by commits＠source.squeak.org 25 Jul '12

25 Jul '12

Frank Shearar uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.419.mcz ==================== Summary ==================== Name: Tools-fbs.419 Author: fbs Time: 25 July 2012, 1:11:04.382 pm UUID: 1e59f261-1520-40ab-9da8-cba208b5527e Ancestors: Tools-fbs.418 Merge Tools-ael.395 which has a fix to prevent the 'recent' facility in a Browser categories pane from discarding changes. Not a merge because ael.395's ancestor is ael.394, on which I've asked a question on the list. =============== Diff against Tools-fbs.418 =============== Item was changed: ----- Method: Browser>>recent (in category 'class list') ----- recent "Let the user select from a list of recently visited classes. 11/96 stp. 12/96 di: use class name, not classes themselves. : dont fall into debugger in empty case" | className class recentList | recentList := RecentClasses select: [:n | Smalltalk hasClassNamed: n]. recentList size = 0 ifTrue: [^ Beeper beep]. className := UIManager default chooseFrom: recentList values: recentList. className == nil ifTrue: [^ self]. + + self okToChange ifFalse: [^ self]. + class := Smalltalk at: className. self selectCategoryForClass: class. self classListIndex: (self classListIndexOf: class name)!

1 0

The Trunk: Tools-fbs.419.mcz
by commits＠source.squeak.org 25 Jul '12

25 Jul '12

1 0

The Trunk: Tools-fbs.419.mcz
by commits＠source.squeak.org 25 Jul '12

25 Jul '12

1 0

The Trunk: Tools-fbs.418.mcz
by commits＠source.squeak.org 25 Jul '12

25 Jul '12

Frank Shearar uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.418.mcz ==================== Summary ==================== Name: Tools-fbs.418 Author: fbs Time: 25 July 2012, 12:45:18.06 pm UUID: c8fb819a-f3fe-4537-a64a-37104936d2e8 Ancestors: Tools-fbs.417, Tools-cao.391 Remove redundant message selectedSystemCategoryName from PackagePaneBrowser since it's the same as that of the parent class. =============== Diff against Tools-fbs.417 =============== Item was removed: - ----- Method: PackagePaneBrowser>>selectedSystemCategoryName (in category 'system category list') ----- - selectedSystemCategoryName - "Answer the name of the selected system category or nil." - - ^ self selectedSystemCategory!

1 0

The Trunk: Tools-fbs.418.mcz
by commits＠source.squeak.org 25 Jul '12

25 Jul '12

1 0

The Trunk: Tools-fbs.418.mcz
by commits＠source.squeak.org 25 Jul '12

25 Jul '12

1 0

The Trunk: ToolsTests-fbs.53.mcz
by commits＠source.squeak.org 25 Jul '12

25 Jul '12

Frank Shearar uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-fbs.53.mcz ==================== Summary ==================== Name: ToolsTests-fbs.53 Author: fbs Time: 11 June 2012, 2:26:21.171 pm UUID: b63870e1-7bf3-48e6-8d59-ee81df034828 Ancestors: ToolsTests-ul.52 The selected system category is the full hyphenated name: 'Tools-Browser', not 'Browser'. =============== Diff against ToolsTests-ul.52 =============== Item was changed: ----- Method: PackagePaneBrowserTest>>testSelectCategoryForClass (in category 'as yet unclassified') ----- testSelectCategoryForClass + | pkgName | - | catName pkgName | pkgName := browser class category copyUpTo: $-. - catName := browser class category allButFirst: pkgName size + 1. browser selectCategoryForClass: browser class. + self assert: browser selectedSystemCategory = browser class category. - self assert: browser selectedSystemCategory = catName. self assert: browser packageListIndex = (browser packageList indexOf: pkgName). browser selectSystemCategory: nil. self assert: browser classList isEmpty.!

1 0

← Newer
1
2
3
4
5
6
7
...
14
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 July 2012