Packages April 2010

packages@lists.squeakfoundation.org

1 participants
459 discussions

The Trunk: Protocols-bp.28.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

Andreas Raab uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-bp.28.mcz ==================== Summary ==================== Name: Protocols-bp.28 Author: bp Time: 3 April 2010, 9:43:04.934 am UUID: 7f22476a-65cb-4d14-8a27-86c634b458d5 Ancestors: Protocols-nice.27 make "browse protocol" work again after introducing fixed height buttons =============== Diff against Protocols-nice.27 =============== Item was changed: SystemOrganization addCategory: #'Protocols-Kernel'! - SystemOrganization addCategory: #'Protocols-Type Vocabularies'! SystemOrganization addCategory: #'Protocols-Tools'! + SystemOrganization addCategory: #'Protocols-Type Vocabularies'! Item was removed: - ----- Method: Lexicon>>buildCodePaneWith: (in category 'toolbuilder') ----- - buildCodePaneWith: builder - | spec codePane customPanelSpec | - spec := super buildCodePaneWith: builder. - spec children - detect: [:ea | ea isKindOf: PluggablePanelSpec] - ifNone: [ nil ]. "do nothing if optionalButtons not enabled" - customPanelSpec := self buildCustomButtonsWith: builder. - customPanelSpec frame: - (self wantsOptionalButtons - ifTrue: [ (0(a)0.12 corner: 1(a)0.23) ] - ifFalse: [ (0(a)0.0 corner: 1(a)0.23) ]). - spec children add: customPanelSpec. - "resize code pane so that new panel fits in" - codePane := spec children detect: [:ea | ea isKindOf: PluggableCodePaneSpec]. - codePane frame: (codePane frame withTop: 0.24). - ^ spec.!

1 0

The Trunk: Protocols-bp.28.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

1 0

The Trunk: Protocols-bp.28.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

1 0

The Trunk: Tools-bp.220.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

Andreas Raab uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-bp.220.mcz ==================== Summary ==================== Name: Tools-bp.220 Author: bp Time: 2 April 2010, 11:39:31.81 pm UUID: e5e40b2c-99fc-45a1-9310-9c82bf1705f4 Ancestors: Tools-nice.219 fix height for button rows in browsers =============== Diff against Tools-nice.219 =============== Item was added: + ----- Method: Browser>>switchesFrame: (in category 'initialize-release') ----- + switchesFrame: bottomFraction + ^LayoutFrame new + leftFraction: 0.25 offset: 0; + topFraction: bottomFraction offset: self buttonHeight negated - 4; + rightFraction: 0.5 offset: 0; + bottomFraction: bottomFraction offset: 0! Item was added: + ----- Method: CodeHolder>>buttonHeight (in category 'toolbuilder') ----- + buttonHeight + ^Preferences standardButtonFont height + 12! Item was added: + ----- Method: CodeHolder>>optionalButtonsFrame (in category 'toolbuilder') ----- + optionalButtonsFrame + ^LayoutFrame new + leftFraction: 0 offset: 0; + topFraction: 0 offset: 0; + rightFraction: 1 offset: 0; + bottomFraction: 0 offset: self buttonHeight! Item was changed: SystemOrganization addCategory: #'Tools-ArchiveViewer'! SystemOrganization addCategory: #'Tools-Base'! SystemOrganization addCategory: #'Tools-Browser'! SystemOrganization addCategory: #'Tools-Changes'! SystemOrganization addCategory: #'Tools-Debugger'! SystemOrganization addCategory: #'Tools-Explorer'! SystemOrganization addCategory: #'Tools-File Contents Browser'! SystemOrganization addCategory: #'Tools-FileList'! SystemOrganization addCategory: #'Tools-Inspector'! - SystemOrganization addCategory: #'Tools-Process Browser'! SystemOrganization addCategory: #'Tools-Menus'! + SystemOrganization addCategory: #'Tools-Process Browser'! Item was added: + ----- Method: Browser>>classListFrame: (in category 'initialize-release') ----- + classListFrame: bottomFraction + ^LayoutFrame new + leftFraction: 0.25 offset: 0; + topFraction: 0 offset: 0; + rightFraction: 0.5 offset: 0; + bottomFraction: bottomFraction offset: self buttonHeight negated - 3! Item was added: + ----- Method: CodeHolder>>annotationFrame (in category 'toolbuilder') ----- + annotationFrame + ^LayoutFrame new + leftFraction: 0 offset: 0; + topFraction: 1 offset: self annotationPaneHeight negated - 1; + rightFraction: 1 offset: 0; + bottomFraction: 1 offset: 0! Item was added: + ----- Method: CodeHolder>>textFrame (in category 'toolbuilder') ----- + textFrame + | spacing topOffset bottomOffset | + spacing := 3. + topOffset := self wantsOptionalButtons + ifTrue: [self buttonHeight + spacing] + ifFalse: [spacing]. + bottomOffset := self wantsAnnotationPane + ifTrue: [self annotationPaneHeight negated] + ifFalse: [0]. + ^LayoutFrame new + leftFraction: 0 offset: 0; + topFraction: 0 offset: topOffset; + rightFraction: 1 offset: 0; + bottomFraction: 1 offset: bottomOffset! Item was changed: ----- Method: Browser>>openEditString: (in category 'initialize-release') ----- openEditString: aString "Create a pluggable version of all the views for a Browser, including views and controllers." "Example: Browser fullOnClass: Browser. " | builder max | builder := ToolBuilder default. max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5]. ^self buildWindowWith: builder specs: { (0@0 corner: 0.25@max) -> [self buildSystemCategoryListWith: builder]. + (self classListFrame: max) -> [self buildClassListWith: builder]. + (self switchesFrame: max) -> [self buildSwitchesWith: builder]. - (0.25@0 corner: 0.5(a)(max-0.08)) -> [self buildClassListWith: builder]. - (0.25(a)(max-0.08) corner: 0.5@max) -> [self buildSwitchesWith: builder]. (0.5@0 corner: 0.75@max) -> [self buildMessageCategoryListWith: builder]. (0.75@0 corner: 1@max) -> [self buildMessageListWith: builder]. "(0@max corner: 1(a)0.5) -> [self buildOptionalButtonsWith: builder]." (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. }! Item was added: + ----- Method: CodeHolder>>annotationPaneHeight (in category 'toolbuilder') ----- + annotationPaneHeight + ^Preferences standardCodeFont height * 2 + 5! Item was changed: ----- Method: CodeHolder>>buildCodePaneWith: (in category 'toolbuilder') ----- buildCodePaneWith: builder | textSpec top buttonSpec annoSpec | + self wantsOptionalButtons ifTrue: [ - self wantsOptionalButtons ifTrue:[ top := builder pluggablePanelSpec new. top children: OrderedCollection new. buttonSpec := self buildOptionalButtonsWith: builder. + buttonSpec frame: self optionalButtonsFrame. + top children add: buttonSpec]. - buttonSpec frame: (0@0 corner: 1(a)0.11). - top children add: buttonSpec. - ]. textSpec := builder pluggableCodePaneSpec new. textSpec model: self; getText: #contents; setText: #contents:notifying:; selection: #contentsSelection; menu: #codePaneMenu:shifted:. + self wantsAnnotationPane ifTrue: [ + top ifNil: [ - self wantsAnnotationPane ifTrue:[ - top ifNil:[ top := builder pluggablePanelSpec new. + top children: OrderedCollection new]. - top children: OrderedCollection new. - ]. annoSpec := builder pluggableInputFieldSpec new. annoSpec model: self; getText: #annotation. + annoSpec frame: self annotationFrame. + top children add: annoSpec]. + top ifNotNil: [ + textSpec frame: self textFrame. + top children add: textSpec]. + ^top ifNil: [textSpec]! - annoSpec frame: (0(a)0.88 corner: 1@1). - top children add: annoSpec. - ]. - top ifNotNil:[ - textSpec frame: (0 @ (buttonSpec ifNil:[0] ifNotNil:[0.12]) - corner: 1 @ (annoSpec ifNil:[1] ifNotNil:[0.88])). - top children add: textSpec. - ]. - ^top ifNil:[textSpec]! Item was removed: - ----- Method: Browser>>addClassAndSwitchesTo:at:with: (in category 'toolbuilder') ----- - addClassAndSwitchesTo: windowSpec at: frame with: builder - | listSpec panelSpec | - - listSpec := self buildClassListWith: builder. - listSpec frame: (frame origin corner: frame right @ (frame bottom - 0.08)). - windowSpec children add: listSpec. - - panelSpec := self buildSwitchesWith: builder. - panelSpec frame: (frame left@(frame bottom - 0.08) corner: frame corner). - windowSpec children addLast: panelSpec.!

1 0

The Trunk: Tools-bp.220.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

1 0

The Trunk: Tools-bp.220.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

1 0

The Trunk: ToolBuilder-MVC-bp.19.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

Andreas Raab uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-bp.19.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-bp.19 Author: bp Time: 2 April 2010, 11:37:19.607 pm UUID: ee4164eb-fca3-4d5f-af5c-3155f9d7ea6b Ancestors: ToolBuilder-MVC-dtl.18 add support for LayoutFrames in addition to Rectangle frames =============== Diff against ToolBuilder-MVC-dtl.18 =============== Item was changed: ----- Method: MVCToolBuilder>>setFrame:in: (in category 'private') ----- + setFrame: fractionsRectangleOrLayoutFrame in: widget - setFrame: aRectangle in: widget | win | + fractionsRectangleOrLayoutFrame ifNil: [^nil]. + win := fractionsRectangleOrLayoutFrame isRectangle + ifTrue: [self asWindow: fractionsRectangleOrLayoutFrame] + ifFalse: [fractionsRectangleOrLayoutFrame layout: nil in: topSize]. "assume LayoutFrame" - aRectangle ifNil:[^nil]. - win := self asWindow: aRectangle. widget window: win.!

1 0

The Trunk: ToolBuilder-MVC-bp.19.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

1 0

The Trunk: ToolBuilder-MVC-bp.19.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

1 0

The Trunk: System-ar.308.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ar.308.mcz ==================== Summary ==================== Name: System-ar.308 Author: ar Time: 2 April 2010, 10:45:40.986 pm UUID: 4bebe387-cc68-0c4e-ad67-cd3dbc4dd692 Ancestors: System-ar.307, System-cbr.306 Merging System-cbr.306: Fixed weirdness in RealEstateAgent>>standardWindowExtent which was causing browsers/etc to appear too small to use on devices with small screens. I did the most unobtrusive thing possible, as 4.1 is in code lockdown. In order to figure out what was going wrong, I refactored the whole thing, but I will save those changes for 4.2, opting to do what it takes to make the system browser usable on your 2010 interrim Dynabook. It should be noted that this method was guilty of shenanigans before I touched it :-) =============== Diff against System-ar.307 =============== Item was changed: ----- Method: RealEstateAgent class>>standardWindowExtent (in category 'settings') ----- standardWindowExtent "Answer the standard default extent for new windows. " + | effectiveExtent width strips height grid allowedArea maxLevel extent | - | effectiveExtent width strips height grid allowedArea maxLevel | effectiveExtent := self maximumUsableArea extent - (self scrollBarSetback @ self screenTopSetback). Preferences reverseWindowStagger ifTrue: ["NOTE: following copied from strictlyStaggeredInitialFrameFor:" allowedArea := self maximumUsableArea insetBy: ( self scrollBarSetback @ self screenTopSetback extent: 0@0 ). "Number to be staggered at each corner (less on small screens)" maxLevel := allowedArea area > 300000 ifTrue: [3] ifFalse: [2]. "Amount by which to stagger (less on small screens)" grid := allowedArea area > 500000 ifTrue: [40] ifFalse: [20]. + extent := (allowedArea extent - (grid*(maxLevel+1*2) + (grid//2))) min: StandardSize "600@400". + (extent y < 300) ifTrue: [^ (extent x)@300 ]. + ^ extent]. - ^ (allowedArea extent - (grid*(maxLevel+1*2) + (grid//2))) min: StandardSize "600@400"]. width := (strips := self windowColumnsDesired) > 1 ifTrue: [effectiveExtent x // strips] ifFalse: [(3 * effectiveExtent x) // 4]. height := (strips := self windowRowsDesired) > 1 ifTrue: [effectiveExtent y // strips] ifFalse: [(3 * effectiveExtent y) //4]. ^ width @ height "RealEstateAgent standardWindowExtent"!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2010