Packages December 2013

packages@lists.squeakfoundation.org

1 participants
477 discussions

The Trunk: System-fbs.649.mcz
by commits＠source.squeak.org 29 Dec '13

29 Dec '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.649.mcz ==================== Summary ==================== Name: System-fbs.649 Author: fbs Time: 29 December 2013, 7:47:35.26 pm UUID: 58770266-996d-cb48-8eaf-cb238c89598d Ancestors: System-fbs.648 Post Tools-fbs.512 cleanup. =============== Diff against System-fbs.648 =============== Item was removed: - (PackageInfo named: 'System') preamble: '"Prepare for removing the recent-message-tracking from Utilities." - '! Item was removed: - ----- Method: Preferences class>>browseWithDragNDrop (in category 'standard queries') ----- - browseWithDragNDrop - ^ self - valueOfFlag: #browseWithDragNDrop - ifAbsent: [ true ]! Item was removed: - ----- Method: Preferences class>>browseWithPrettyPrint (in category 'standard queries') ----- - browseWithPrettyPrint - ^ self - valueOfFlag: #browseWithPrettyPrint - ifAbsent: [ false ]!

1 0

The Trunk: Morphic-fbs.711.mcz
by commits＠source.squeak.org 29 Dec '13

29 Dec '13

Frank Shearar uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-fbs.711.mcz ==================== Summary ==================== Name: Morphic-fbs.711 Author: fbs Time: 29 December 2013, 7:11:36.154 pm UUID: f78f474b-acdd-4c47-88dd-b9d678a55bc5 Ancestors: Morphic-ul.710 Make browseWithPrettyPrint, browseWithDragNDrop pragma-based preferences. =============== Diff against Morphic-ul.710 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableAlternateMultiSelectionList: (in category 'pluggable widgets') ----- buildPluggableAlternateMultiSelectionList: aSpec | listMorph listClass | aSpec getSelected ifNotNil: [ ^ self error: 'There is no PluggableAlternateListMorphOfManyByItem' ]. listClass := self alternateMultiSelectListClass. listMorph := listClass on: aSpec model list: aSpec list primarySelection: aSpec getIndex changePrimarySelection: aSpec setIndex listSelection: aSpec getSelectionList changeListSelection: aSpec setSelectionList menu: aSpec menu. listMorph setProperty: #highlightSelector toValue: #highlightMessageList:with: ; setProperty: #itemConversionMethod toValue: #asStringOrText ; setProperty: #balloonTextSelectorForSubMorphs toValue: #balloonTextForClassAndMethodString ; + enableDragNDrop: SystemBrowser browseWithDragNDrop ; - enableDragNDrop: Preferences browseWithDragNDrop ; menuTitleSelector: #messageListSelectorTitle. self register: listMorph id: aSpec name. listMorph keystrokeActionSelector: aSpec keyPress ; getListElementSelector: aSpec listItem ; getListSizeSelector: aSpec listSize. self buildHelpFor: listMorph spec: aSpec. self setFrame: aSpec frame in: listMorph. parent ifNotNil: [ self add: listMorph to: parent ]. panes ifNotNil: [ aSpec list ifNotNil:[panes add: aSpec list ] ]. ^ listMorph!

1 0

The Trunk: Morphic-fbs.711.mcz
by commits＠source.squeak.org 29 Dec '13

29 Dec '13

1 0

The Trunk: Morphic-fbs.711.mcz
by commits＠source.squeak.org 29 Dec '13

29 Dec '13

1 0

The Trunk: Collections-fbs.554.mcz
by commits＠source.squeak.org 29 Dec '13

29 Dec '13

Frank Shearar uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-fbs.554.mcz ==================== Summary ==================== Name: Collections-fbs.554 Author: fbs Time: 29 December 2013, 7:10:52.228 pm UUID: eed3b0bf-2aaa-8d43-acc7-693d5881a32c Ancestors: Collections-fbs.553 Make browseWithPrettyPrint, browseWithDragNDrop pragma-based preferences. =============== Diff against Collections-fbs.553 =============== Item was changed: ----- Method: Text>>askIfAddStyle:req: (in category 'attributes') ----- askIfAddStyle: priorMethod req: requestor "Ask the user if we have a complex style (i.e. bold) for the first time" | tell answ old | + (SystemBrowser browseWithPrettyPrint) - (Preferences browseWithPrettyPrint) ifTrue: [self couldDeriveFromPrettyPrinting ifTrue: [^ self asString]]. self runs coalesce. self unembellished ifTrue: [^ self asString]. priorMethod ifNotNil: [old := priorMethod getSourceFromFile]. (old == nil or: [old unembellished]) ifTrue: [tell := 'This method contains style for the first time (e.g. bold or colored text). Do you really want to save the style info?'. answ := (UIManager default chooseFrom: #('Save method with style' 'Save method simply') title: tell). answ = 2 ifTrue: [^ self asString]]!

1 0

The Trunk: Collections-fbs.554.mcz
by commits＠source.squeak.org 29 Dec '13

29 Dec '13

1 0

The Trunk: Collections-fbs.554.mcz
by commits＠source.squeak.org 29 Dec '13

29 Dec '13

1 0

The Trunk: Tools-fbs.512.mcz
by commits＠source.squeak.org 29 Dec '13

29 Dec '13

Frank Shearar uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.512.mcz ==================== Summary ==================== Name: Tools-fbs.512 Author: fbs Time: 29 December 2013, 7:10:20.18 pm UUID: 49c920b7-6e0d-a04d-83e5-dfa1578622ca Ancestors: Tools-cmm.511 Make browseWithPrettyPrint, browseWithDragNDrop pragma-based preferences. =============== Diff against Tools-cmm.511 =============== Item was changed: ----- Method: Browser>>buildClassListWith: (in category 'toolbuilder') ----- buildClassListWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; list: #classList; getIndex: #classListIndex; setIndex: #classListIndex:; menu: #classListMenu:shifted:; keyPress: #classListKey:from:. + SystemBrowser browseWithDragNDrop - Preferences browseWithDragNDrop ifTrue:[listSpec dragItem: #dragFromClassList:]. ^listSpec ! Item was changed: ----- Method: Browser>>buildMessageCategoryListWith: (in category 'toolbuilder') ----- buildMessageCategoryListWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; list: #messageCategoryList; getIndex: #messageCategoryListIndex; setIndex: #messageCategoryListIndex:; menu: #messageCategoryMenu:; keyPress: #arrowKey:from:. + SystemBrowser browseWithDragNDrop ifTrue:[ - Preferences browseWithDragNDrop ifTrue:[ listSpec dropAccept: #wantsMessageCategoriesDrop:; dropItem: #dropOnMessageCategories:at:]. ^listSpec ! Item was changed: ----- Method: Browser>>buildMessageListWith: (in category 'toolbuilder') ----- buildMessageListWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; list: #messageList; getIndex: #messageListIndex; setIndex: #messageListIndex:; menu: #messageListMenu:shifted:; keyPress: #messageListKey:from:. + SystemBrowser browseWithDragNDrop - Preferences browseWithDragNDrop ifTrue:[listSpec dragItem: #dragFromMessageList:]. ^listSpec ! Item was changed: ----- Method: Browser>>buildSystemCategoryListWith: (in category 'toolbuilder') ----- buildSystemCategoryListWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; list: #systemCategoryList; getIndex: #systemCategoryListIndex; setIndex: #systemCategoryListIndex:; menu: #systemCategoryMenu:; keyPress: #systemCatListKey:from:. + SystemBrowser browseWithDragNDrop ifTrue:[ - Preferences browseWithDragNDrop ifTrue:[ listSpec dropAccept: #wantsSystemCategoriesDrop:; dropItem: #dropOnSystemCategories:at:]. ^listSpec! Item was changed: ----- Method: CodeHolder>>contentsSymbol (in category 'contents') ----- contentsSymbol "Answer a symbol indicating what kind of content should be shown for the method; for normal showing of source code, this symbol is #source. A nil value in the contentsSymbol slot will be set to #source by this method" ^ contentsSymbol ifNil: + [contentsSymbol := SystemBrowser browseWithPrettyPrint - [contentsSymbol := Preferences browseWithPrettyPrint ifTrue: [#prettyPrint] ifFalse: [#source]]! Item was changed: ----- Method: FileContentsBrowser>>selectedMessage (in category 'edit pane') ----- selectedMessage "Answer a copy of the source code for the selected message selector." | class selector | class := self selectedClassOrMetaClass. selector := self selectedMessageName. contents := class sourceCodeAt: selector. + SystemBrowser browseWithPrettyPrint - Preferences browseWithPrettyPrint ifTrue: [contents := class prettyPrinterClass format: contents in: class notifying: nil decorated: false]. self showingAnyKindOfDiffs ifTrue: [contents := self methodDiffFor: contents class: self selectedClass selector: self selectedMessageName meta: self metaClassIndicated]. ^contents asText makeSelectorBoldIn: class! Item was changed: ----- Method: FileList>>buildDirectoryTreeWith: (in category 'toolbuilder') ----- buildDirectoryTreeWith: builder | treeSpec | treeSpec := builder pluggableTreeSpec new. treeSpec model: self ; roots: #rootDirectoryList ; hasChildren: #hasMoreDirectories: ; getChildren: #subDirectoriesOf: ; getSelectedPath: #selectedPath ; setSelected: #setDirectoryTo: ; label: #directoryNameOf: ; menu: #volumeMenu: ; autoDeselect: false. + SystemBrowser browseWithDragNDrop ifTrue: - Preferences browseWithDragNDrop ifTrue: [ treeSpec dragItem: #dragFromDirectoryList: ; dropItem: #drop:ontoDirectory:shouldCopy: ]. ^ treeSpec! Item was changed: ----- Method: FileList>>buildFileListWith: (in category 'toolbuilder') ----- buildFileListWith: builder | buttons listSpec top | top := builder pluggablePanelSpec new. top children: OrderedCollection new. buttons := self buildButtonPaneWith: builder. buttons frame: (self topConstantHeightFrame: self buttonHeight fromLeft: 0 width: 1). top children add: buttons. listSpec := builder pluggableListSpec new. listSpec model: self ; list: #fileList ; getIndex: #fileListIndex ; setIndex: #fileListIndex: ; menu: #fileListMenu: ; keyPress: nil ; frame: (self frameOffsetFromTop: self buttonHeight + 4 fromLeft: 0 width: 1 bottomFraction: 1) ; color: Color white. + SystemBrowser browseWithDragNDrop ifTrue: [ listSpec dragItem: #dragFromFileList: ]. - Preferences browseWithDragNDrop ifTrue: [ listSpec dragItem: #dragFromFileList: ]. top children add: listSpec. ^ top! Item was changed: ----- Method: MessageSet>>buildMessageListWith: (in category 'toolbuilder') ----- buildMessageListWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; list: #messageList; getIndex: #messageListIndex; setIndex: #messageListIndex:; menu: #messageListMenu:shifted:; keyPress: #messageListKey:from:. + SystemBrowser browseWithDragNDrop - Preferences browseWithDragNDrop ifTrue:[listSpec dragItem: #dragFromMessageList:]. ^listSpec ! Item was changed: ----- Method: MessageTrace>>buildMessageListWith: (in category 'private initializing') ----- buildMessageListWith: builder | listSpec | listSpec := builder pluggableAlternateMultiSelectionListSpec new. listSpec model: self ; list: #messageList ; getIndex: #messageListIndex ; setIndex: #toggleSelectionAt:shifted:controlled: ; menu: #messageListMenu:shifted: ; getSelectionList: #isMessageSelectedAt: ; setSelectionList: #messageAt:beSelected: ; keyPress: #messageListKey:from:. + SystemBrowser browseWithDragNDrop - Preferences browseWithDragNDrop ifTrue: [ listSpec dragItem: #dragFromMessageList: ]. ^ listSpec! Item was changed: AppRegistry subclass: #SystemBrowser instanceVariableNames: '' + classVariableNames: 'BrowseWithDragNDrop BrowseWithPrettyPrint' - classVariableNames: '' poolDictionaries: '' category: 'Tools-Base'! !SystemBrowser commentStamp: '<historical>' prior: 0! This is the AppRegistry class for class browsing! Item was added: + ----- Method: SystemBrowser class>>browseWithDragNDrop (in category 'preferences') ----- + browseWithDragNDrop + <preference: 'Browse with drag ''n'' drop' category: 'browsing' description: 'If true, new browsers will open with drag & drop functionality (only in Morphic)' type: #Boolean> + ^ BrowseWithDragNDrop ifNil: [false].! Item was added: + ----- Method: SystemBrowser class>>browseWithDragNDrop: (in category 'preferences') ----- + browseWithDragNDrop: aBoolean + BrowseWithDragNDrop := aBoolean.! Item was added: + ----- Method: SystemBrowser class>>browseWithPrettyPrint (in category 'preferences') ----- + browseWithPrettyPrint + <preference: 'Browse with pretty-print' category: 'browsing' description: 'If true, browsers will automatically format their contents' type: #Boolean> + ^ BrowseWithPrettyPrint ifNil: [false].! Item was added: + ----- Method: SystemBrowser class>>browseWithPrettyPrint: (in category 'preferences') ----- + browseWithPrettyPrint: aBoolean + BrowseWithPrettyPrint := aBoolean.! Item was changed: ----- Method: TimeProfileBrowser>>selectedMessage (in category 'message list') ----- selectedMessage "Answer the source method for the currently selected message." self setClassAndSelectorIn: [:class :selector | | source | source := class sourceMethodAt: selector ifAbsent: [^'Missing']. + SystemBrowser browseWithPrettyPrint - Preferences browseWithPrettyPrint ifTrue: [source := class prettyPrinterClass format: source in: class notifying: nil decorated: false]. self selectedClass: class. self selectedSelector: selector. ^source asText makeSelectorBoldIn: class]. ^''! Item was changed: + (PackageInfo named: 'Tools') postscript: 'SystemBrowser browseWithPrettyPrint: Preferences browseWithPrettyPrint. + SystemBrowser browseWithDragNDrop: Preferences browseWithDragNDrop. + + Preferences removePreference: #browseWithPrettyPrint. + Preferences removePreference: #browseWithDragNDrop.'! - (PackageInfo named: 'Tools') postscript: 'SystemBrowser browserShowsPackagePane: Preferences browserShowsPackagePane. - Preferences removePreference: #browserShowsPackagePane.'!

1 0

The Trunk: Tools-fbs.512.mcz
by commits＠source.squeak.org 29 Dec '13

29 Dec '13

1 0

The Trunk: Tools-fbs.512.mcz
by commits＠source.squeak.org 29 Dec '13

29 Dec '13

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
48
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 December 2013