Squeak-dev September 2010

squeak-dev@lists.squeakfoundation.org

110 participants
401 discussions

Re: [squeak-dev] Re: Multiple finalizers per single object
by Igor Stasenko 24 Sep '10

24 Sep '10

On 24 September 2010 17:12, Marcel Taeumel <marcel.taeumel(a)student.hpi.uni-potsdam.de> wrote: > Just a thought on finalization in general: > > If we only need one finalizer per object, why not just allow a class to implement #finalize that will be called right before the object will be garbage collected? That would be more convenient. > Because a finalization in Squeak is post-mortem action. What you proposing is pre-mortem action, which will require a lot more work and changes in VM. > Ciao > > > -- Best regards, Igor Stasenko AKA sig.

1 0

WebClient with proxy NTLM authentication
by Denis Kudriashov 24 Sep '10

24 Sep '10

Is WebClient supports proxy NTLM authentication? If not Can you advise me how two implement it?

2 11

Smalltalks 2010 --- Registration and invitation
by Andres Valloud 24 Sep '10

24 Sep '10

======== INGLES The Fundación Argentina de Smalltalk (FAST) invites you to the 4th Smalltalk Conference of Argentina, to be held on November 11, 12 and 13, 2010 at the Concepción del Uruguay site of the Universidad Tecnológica Nacional. Everyone, including teachers, students, researchers, developers and entrepreneurs, are welcome as speakers or attendees. Registration is free and now open athttp://www.fast.org.ar. The goal of the conference is to strengthen the Argentine and international Smalltalk community through the exchange of works, experiences and anecdotes connected with this technology or related matters. Renowned members of the international Smalltalk community will visit the conference. Moreover, this edition of the conference will have a Research Session with publications reviewed by an international committee, as well as an Industry Track for those preferring a more relaxed environment. We look forward to see your submissions. You can propose papers or talks know through our website, or by sending an email toinfo(a)fast.org.ar. See you there! ======== SPANISH La Fundación Argentina de Smalltalk (FAST) los invita a la 4ta Conferencia de Smalltalk de Argentina, a realizarse desde el 11 al 13 de Noviembre del 2010 en la sede de Concepción del Uruguay de la Universidad Tecnológica Nacional. Esperamos verlos a todos entre la audiencia o como oradores, ya sean profesores, estudiantes, investigadores, desarrolladores o empresarios. La registración es gratis y está disponible enhttp://www.fast.org.ar. El objetivo de la conferencia es afianzar los vínculos entre las comunidades Smalltalk de Argentina y del mundo, a través del intercambio de trabajos, experiencias y vivencias conectadas con esta tecnología. De hecho, este año nos visitarán personalidades de renombre de la comunidad internacional. Además, en esta edición de la conferencia tendremos un track de investigación formal con publicaciones y referato de un comité internacional. También tendremos un track de industria para aquellos que prefieran un ambiente más informal. Pueden enviarnos sus propuestas de charlas o papers mediante nuestra página web, o enviándonos un mail ainfo(a)fast.org.ar. Nos vemos en la conferencia!

1 0

The Trunk: ToolBuilder-Morphic-rww.68.mcz
by commits＠source.squeak.org 24 Sep '10

24 Sep '10

Andreas Raab uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-rww.68.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-rww.68 Author: rww Time: 11 September 2010, 4:14:22.865 pm UUID: aec2aa16-a008-1046-a13f-022964858636 Ancestors: ToolBuilder-Morphic-rww.67 I added PluggableDropDownListMorph and the infrastructure to build one. PluggableDropDownListMorph>>#installDropDownList is the method that builds the Morphs. I am currently building a label with a button. There is no drop down list. I was thinking a Menu would work, but a list would be better. =============== Diff against ToolBuilder-Morphic-ar.66 =============== Item was added: + ----- Method: MorphicToolBuilder>>buildPluggableCheckBox: (in category 'pluggable widgets') ----- + buildPluggableCheckBox: spec + + | widget label state action | + label := spec label. + state := spec state. + action := spec action. + widget := self checkBoxClass on: spec model + getState: (state isSymbol ifTrue:[state]) + action: (action isSymbol ifTrue:[action]) + label: (label isSymbol ifTrue:[label]). + self register: widget id: spec name. + + widget installButton. + " widget getColorSelector: spec color. + widget offColor: Color white.. + self buildHelpFor: widget spec: spec. + (label isSymbol or:[label == nil]) ifFalse:[widget label: label]. + " self setFrame: spec frame in: widget. + parent ifNotNil:[self add: widget to: parent]. + ^widget! Item was added: + ----- Method: MorphicToolBuilder>>buildPluggableDropDownList: (in category 'pluggable widgets') ----- + buildPluggableDropDownList: spec + + | widget model listSelector selectionSelector selectionSetter | + model := spec model. + listSelector := spec listSelector. + selectionSelector := spec selectionSelector. + selectionSetter := spec selectionSetter. + widget := self dropDownListClass new + model: model; + listSelector: listSelector; + selectionSelector: selectionSelector; + selectionSetter: selectionSetter; + yourself. + self register: widget id: spec name. + + widget installDropDownList. + self setFrame: spec frame in: widget. + parent ifNotNil:[self add: widget to: parent]. + ^widget! Item was added: + ----- Method: MorphicToolBuilder>>checkBoxClass (in category 'widget classes') ----- + checkBoxClass + ^ PluggableCheckBoxMorph! Item was added: + ----- Method: MorphicToolBuilder>>dropDownListClass (in category 'widget classes') ----- + dropDownListClass + ^ PluggableDropDownListMorph! Item was added: + AlignmentMorph subclass: #PluggableCheckBoxMorph + instanceVariableNames: 'model actionSelector valueSelector label' + classVariableNames: '' + poolDictionaries: '' + category: 'ToolBuilder-Morphic'! Item was added: + ----- Method: PluggableCheckBoxMorph classSide>>on:getState:action:label: (in category 'as yet unclassified') ----- + on: anObject getState: getStateSel action: actionSel label: labelSel + + ^ self new + on: anObject + getState: getStateSel + action: actionSel + label: labelSel + menu: nil + ! Item was added: + ----- Method: PluggableCheckBoxMorph>>actionSelector (in category 'accessing') ----- + actionSelector + "Answer the value of actionSelector" + + ^ actionSelector! Item was added: + ----- Method: PluggableCheckBoxMorph>>actionSelector: (in category 'accessing') ----- + actionSelector: anObject + "Set the value of actionSelector" + + actionSelector := anObject! Item was added: + ----- Method: PluggableCheckBoxMorph>>basicPanel (in category 'installing') ----- + basicPanel + ^BorderedMorph new + beTransparent; + extent: 0@0; + borderWidth: 0; + layoutInset: 0; + cellInset: 0; + layoutPolicy: TableLayout new; + listCentering: #topLeft; + cellPositioning: #center; + hResizing: #spaceFill; + vResizing: #shrinkWrap; + yourself! Item was added: + ----- Method: PluggableCheckBoxMorph>>horizontalPanel (in category 'installing') ----- + horizontalPanel + ^self basicPanel + cellPositioning: #center; + listDirection: #leftToRight; + yourself.! Item was added: + ----- Method: PluggableCheckBoxMorph>>installButton (in category 'installing') ----- + installButton + + | aButton aLabel | + aButton := UpdatingThreePhaseButtonMorph checkBox + target: self model; + actionSelector: self actionSelector; + getSelector: self valueSelector; + yourself. + aLabel := (StringMorph contents: self label translated + font: (StrikeFont familyName: TextStyle defaultFont familyName + size: TextStyle defaultFont pointSize - 1)). + self addMorph: (self horizontalPanel + addMorphBack: aButton; + addMorphBack: aLabel; + yourself).! Item was added: + ----- Method: PluggableCheckBoxMorph>>label (in category 'accessing') ----- + label + "Answer the value of label" + + ^ label! Item was added: + ----- Method: PluggableCheckBoxMorph>>label: (in category 'accessing') ----- + label: anObject + "Set the value of label" + + label := anObject! Item was added: + ----- Method: PluggableCheckBoxMorph>>model (in category 'accessing') ----- + model + "Answer the value of model" + + ^ model. + ! Item was added: + ----- Method: PluggableCheckBoxMorph>>model: (in category 'accessing') ----- + model: anObject + "Set the value of model" + + model := anObject! Item was added: + ----- Method: PluggableCheckBoxMorph>>on:getState:action:label:menu: (in category 'initialization') ----- + on: anObject getState: getStateSel action: actionSel label: labelSel menu: menuSel + + self model: anObject. + self valueSelector: getStateSel. + self actionSelector: actionSel. + self label: (self model perform: labelSel). + ! Item was added: + ----- Method: PluggableCheckBoxMorph>>valueSelector (in category 'accessing') ----- + valueSelector + "Answer the value of valueSelector" + + ^ valueSelector! Item was added: + ----- Method: PluggableCheckBoxMorph>>valueSelector: (in category 'accessing') ----- + valueSelector: anObject + "Set the value of valueSelector" + + valueSelector := anObject! Item was added: + AlignmentMorph subclass: #PluggableDropDownListMorph + instanceVariableNames: 'model listSelector selectionSelector selectionSetter' + classVariableNames: '' + poolDictionaries: '' + category: 'ToolBuilder-Morphic'! Item was added: + ----- Method: PluggableDropDownListMorph>>basicPanel (in category 'drawing') ----- + basicPanel + ^BorderedMorph new + beTransparent; + extent: 0@0; + borderWidth: 0; + layoutInset: 0; + cellInset: 0; + layoutPolicy: TableLayout new; + listCentering: #topLeft; + cellPositioning: #center; + hResizing: #spaceFill; + vResizing: #shrinkWrap; + yourself! Item was added: + ----- Method: PluggableDropDownListMorph>>currentSelection (in category 'accessing') ----- + currentSelection + + ^ self model perform: selectionSelector! Item was added: + ----- Method: PluggableDropDownListMorph>>currentSelection: (in category 'accessing') ----- + currentSelection: obj + + ^ self model perform: selectionSetter with: obj! Item was added: + ----- Method: PluggableDropDownListMorph>>horizontalPanel (in category 'drawing') ----- + horizontalPanel + ^self basicPanel + cellPositioning: #center; + listDirection: #leftToRight; + yourself.! Item was added: + ----- Method: PluggableDropDownListMorph>>installDropDownList (in category 'drawing') ----- + installDropDownList + + | aButton aLabel | + aButton := PluggableButtonMorph on: self model getState: nil action: nil. + aLabel := (StringMorph contents: self model currentRemoteVatId translated + font: (StrikeFont familyName: TextStyle defaultFont familyName + size: TextStyle defaultFont pointSize - 1)). + self addMorph: (self horizontalPanel + addMorphBack: aLabel; + addMorphBack: aButton; + yourself).! Item was added: + ----- Method: PluggableDropDownListMorph>>list (in category 'accessing') ----- + list + "Answer the value of list" + + ^ self model perform: self listSelector. + ! Item was added: + ----- Method: PluggableDropDownListMorph>>listSelector (in category 'accessing') ----- + listSelector + "Answer the value of listSelector" + + ^ listSelector! Item was added: + ----- Method: PluggableDropDownListMorph>>listSelector: (in category 'accessing') ----- + listSelector: anObject + "Set the value of listSelector" + + listSelector := anObject! Item was added: + ----- Method: PluggableDropDownListMorph>>model (in category 'accessing') ----- + model + ^ model! Item was added: + ----- Method: PluggableDropDownListMorph>>model: (in category 'accessing') ----- + model: anObject + "Set the value of model" + + model := anObject! Item was added: + ----- Method: PluggableDropDownListMorph>>selectionSelector (in category 'accessing') ----- + selectionSelector + "Answer the value of selectionSelector" + + ^ selectionSelector! Item was added: + ----- Method: PluggableDropDownListMorph>>selectionSelector: (in category 'accessing') ----- + selectionSelector: anObject + "Set the value of selectionSelector" + + selectionSelector := anObject! Item was added: + ----- Method: PluggableDropDownListMorph>>selectionSetter (in category 'accessing') ----- + selectionSetter + "Answer the value of selectionSetter" + + ^ selectionSetter! Item was added: + ----- Method: PluggableDropDownListMorph>>selectionSetter: (in category 'accessing') ----- + selectionSetter: anObject + "Set the value of selectionSetter" + + selectionSetter := anObject!

1 0

The Trunk: ToolBuilder-Kernel-ar.38.mcz
by commits＠source.squeak.org 24 Sep '10

24 Sep '10

Andreas Raab uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-ar.38.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-ar.38 Author: ar Time: 23 September 2010, 9:12:49.045 pm UUID: 8926588c-0e9a-9a4b-9fff-f6f8629ad0f4 Ancestors: ToolBuilder-Kernel-dtl.37, ToolBuilder-Kernel-rww.37 Merging ToolBuilder-Morphic-rww.68: I added PluggableDropDownListMorph and the infrastructure to build one. PluggableDropDownListMorph>>#installDropDownList is the method that builds the Morphs. I am currently building a label with a button. There is no drop down list. I was thinking a Menu would work, but a list would be better. =============== Diff against ToolBuilder-Kernel-dtl.37 =============== Item was added: + PluggableWidgetSpec subclass: #PluggableDropDownListSpec + instanceVariableNames: 'listSelector selectionSelector selectionSetter' + classVariableNames: '' + poolDictionaries: '' + category: 'ToolBuilder-Kernel'! Item was added: + ----- Method: PluggableDropDownListSpec>>buildWith: (in category 'building') ----- + buildWith: builder + ^builder buildPluggableDropDownList: self! Item was added: + ----- Method: PluggableDropDownListSpec>>listSelector (in category 'accessing') ----- + listSelector + "Answer the value of listSelector" + + ^ listSelector! Item was added: + ----- Method: PluggableDropDownListSpec>>listSelector: (in category 'accessing') ----- + listSelector: anObject + "Set the value of listSelector" + + listSelector := anObject! Item was added: + ----- Method: PluggableDropDownListSpec>>selectionSelector (in category 'accessing') ----- + selectionSelector + "Answer the value of selectionSelector" + + ^ selectionSelector! Item was added: + ----- Method: PluggableDropDownListSpec>>selectionSelector: (in category 'accessing') ----- + selectionSelector: anObject + "Set the value of selectionSelector" + + selectionSelector := anObject! Item was added: + ----- Method: PluggableDropDownListSpec>>selectionSetter (in category 'accessing') ----- + selectionSetter + "Answer the value of selectionSetter" + + ^ selectionSetter! Item was added: + ----- Method: PluggableDropDownListSpec>>selectionSetter: (in category 'accessing') ----- + selectionSetter: anObject + "Set the value of selectionSetter" + + selectionSetter := anObject! Item was added: + ----- Method: ToolBuilder>>buildPluggableDropDownList: (in category 'widgets optional') ----- + buildPluggableDropDownList: spec + ^self buildPluggableList: spec! Item was added: + ----- Method: ToolBuilder>>pluggableDropDownListSpec (in category 'defaults') ----- + pluggableDropDownListSpec + ^PluggableDropDownListSpec!

1 0

Namespaces/Environments video form ESUG
by Chris Cunnington 24 Sep '10

24 Sep '10

James Foster kindly sent me a link to a video German Leiva made at ESUG explaining how to use his GSOC project Environments. http://www.youtube.com/watch?v=n4I7fSVNX2A Chris

1 0

[ANN] JQueryWidgetBox 1.5 for Seaside 3.0
by Torsten Bergmann 23 Sep '10

23 Sep '10

Hi there, version 1.5 of the "JQueryWidgetBox" project [1] is available for Seaside 3.0. There are now 32 interesting JQuery widgets wrapped that you can easily use in your Seaside applications. Most noteably we now have a wrapper for mbMenu [2] and uilayout [3]. Also a jQuery Grid is included. I updated some scripts and after some adoptions of existing packages all 81 tests went green again. Thanks to all who helped wrapping the jquery widgets out there!!! To try: ======= Open a clean Pharo 1.1. image and evaluate: Gofer new squeaksource:'MetacelloRepository'; package:'ConfigurationOfJQueryWidgetBox'; load. ((Smalltalk at: #ConfigurationOfJQueryWidgetBox) project version: '1.5') load. You can now load some additional Seaside tools by evaluating: ((Smalltalk at: #ConfigurationOfSeaside30) project version: '3.0.0-rc') load: #('Seaside-Pharo-Tools-OmniBrowser' 'Seaside-Adaptors-Comanche') Now select "Tools -> SeasideControl Panel" to open the control panel. Using the context menu add an WAComancheAdaptor and start it. Now point your browser to http://localhost:8080/browse/jquery-widgets Bye T. [1] http://squeaksource.com/JQueryWidgetBox.html [2] http://pupunzi.open-lab.com/mb-jquery-components/mb-_menu/ [3] http://layout.jquery-dev.net -- GMX DSL SOMMER-SPECIAL: Surf & Phone Flat 16.000 für nur 19,99 Euro/mtl.!* http://portal.gmx.net/de/go/dsl

1 0

The Inbox: CryptoCore-rww.5.mcz
by commits＠source.squeak.org 23 Sep '10

23 Sep '10

A new version of CryptoCore was added to project The Inbox: http://source.squeak.org/inbox/CryptoCore-rww.5.mcz ==================== Summary ==================== Name: CryptoCore-rww.5 Author: rww Time: 23 September 2010, 4:41:30.947 am UUID: 682dedb8-2679-6643-885d-43facb9ae666 Ancestors: CryptoCore-rww.4 added asn1Tag to OrderedSet =============== Diff against CryptoCore-rww.4 =============== Item was added: + ----- Method: OrderedSet>>asn1Tag (in category 'accessing') ----- + asn1Tag + + ^ 49 + !

1 0

extracting BlockClosures from CompiledMethods
by Michael Haupt 23 Sep '10

23 Sep '10

Dear all, CompiledMethod allInstances detect: [ :m | m containsBlockClosures ] finds no CompiledMethod containing a BlockClosure. (Can't be right, can it?) Delving further into this, it seems the methods in the "closures" protocol of CompiledMethod are all broken. Is that correct? Best, Michael

2 6

The Inbox: Kernel-mha.500.mcz
by commits＠source.squeak.org 23 Sep '10

23 Sep '10

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-mha.500.mcz ==================== Summary ==================== Name: Kernel-mha.500 Author: mha Time: 23 September 2010, 10:33:16.329 am UUID: 6386ad34-1295-4277-a2a3-068faac074de Ancestors: Kernel-mha.499, Kernel-nice.499 third attempt to clean up CompiledMethod's closures protocol: * leaner implementation of containsBlockClosures using scanFor: * corrected InstructionStream >> #scanFor: method comment =============== Diff against Kernel-mha.499 =============== Item was changed: SystemOrganization addCategory: #'Kernel-Chronology'! SystemOrganization addCategory: #'Kernel-Classes'! SystemOrganization addCategory: #'Kernel-Methods'! SystemOrganization addCategory: #'Kernel-Numbers'! SystemOrganization addCategory: #'Kernel-Objects'! SystemOrganization addCategory: #'Kernel-Processes'! SystemOrganization addCategory: #'Kernel-Models'! - SystemOrganization addCategory: #'Kernel-Tests-ClassBuilder'! Item was removed: - ----- Method: CompiledMethod>>allEmbeddedBlockMethods (in category 'closures') ----- - allEmbeddedBlockMethods - - | set | - set := OrderedCollection new. - 1 to: self numLiterals do: [:i | | lit | - lit := self literalAt: i. - (lit isKindOf: CompiledMethod) ifTrue: [ - set add: lit. - set addAll: lit allEmbeddedBlockMethods. - ] ifFalse: [(lit isKindOf: BlockClosure) ifTrue: [ - set add: lit method. - set addAll: lit method allEmbeddedBlockMethods - ]]. - ]. - ^ set! Item was changed: ----- Method: CompiledMethod>>containsBlockClosures (in category 'closures') ----- containsBlockClosures + ^ self scanner scanFor: [ :bc | bc = 143 "push closure bytecode" ]! - - ^ self embeddedBlockMethods size > 0! Item was added: + ----- Method: Float>>copySignTo: (in category 'mathematical functions') ----- + copySignTo: aNumber + "Return a number with same magnitude as aNumber and same sign as self. + Implementation note: take care of Float negativeZero, which is considered as having a negative sign." + + (self > 0 or: [(self at: 1) = 0]) ifTrue: [^ aNumber abs]. + ^aNumber abs negated! Item was changed: + ----- Method: Float>>sign (in category 'mathematical functions') ----- - ----- Method: Float>>sign (in category 'testing') ----- sign "Answer 1 if the receiver is greater than 0, -1 if less than 0, else 0. Handle IEEE-754 negative-zero by reporting a sign of -1" self > 0 ifTrue: [^ 1]. (self < 0 or: [((self at: 1) bitShift: -31) = 1]) ifTrue: [^ -1]. ^ 0! Item was added: + ----- Method: Float>>sign: (in category 'mathematical functions') ----- + sign: aNumber + "Return a Number with the same sign as aNumber and same magnitude as self. + Implementation is different from super to handle the special case of Float negativeZero." + + (self = 0.0 and: [aNumber sign negative]) ifTrue: [^Float negativeZero]. + ^aNumber copySignTo: self! Item was changed: ----- Method: InstructionStream>>scanFor: (in category 'scanning') ----- scanFor: scanBlock + "Check all bytecode instructions with scanBlock, answer true if scanBlock answers true. + This can be used to, e.g., check whether a method contains 'push closure' bytecodes like this: + aMethod scanFor: [ :b | b = 143 ]" - "Answer the index of the first bytecode for which scanBlock - answers true when supplied with that bytecode." | method end byte | method := self method. end := method endPC. [pc <= end] whileTrue: [(scanBlock value: (byte := method at: pc)) ifTrue: [^true]. pc := self nextPc: byte]. ^false! Item was added: + ----- Method: Number>>copySignTo: (in category 'mathematical functions') ----- + copySignTo: aNumber + "Return a number with same magnitude as aNumber and same sign as self." + + ^ self positive + ifTrue: [aNumber abs] + ifFalse: [aNumber abs negated].! Item was changed: + ----- Method: Number>>sign (in category 'mathematical functions') ----- - ----- Method: Number>>sign (in category 'testing') ----- sign "Answer 1 if the receiver is greater than 0, -1 if less than 0, else 0." self > 0 ifTrue: [^1]. self < 0 ifTrue: [^-1]. ^0! Item was changed: + ----- Method: Number>>sign: (in category 'mathematical functions') ----- - ----- Method: Number>>sign: (in category 'converting') ----- sign: aNumber + "Return a Number with the same sign as aNumber and same magnitude as self." - "Return a Number with the same sign as aNumber" + ^ aNumber copySignTo: self! - ^ aNumber positive ifTrue: [self abs] ifFalse: [self abs negated].!

1 0

← Newer
1
...
6
7
8
9
10
11
12
...
41
Older →

Jump to page: