Squeak-dev March 2012

squeak-dev@lists.squeakfoundation.org

63 participants
208 discussions

Another simulation discrepancy
by Yoshiki Ohshima 26 Mar '12

26 Mar '12

If you define a method at Object or any class: -------------------- oOr: choices choices do: [:c | [^ c value] on: Error do: []]. -------------------- And print-it the following in a Workspace: -------------------- Object new oOr: {[self error: 'error from first']. [3+4]} -------------------- You'll get 7 as the printed result as expected. But then, try adding "halt" to it: -------------------- Object new oOr: {[self halt error: 'error from first']. [3+4]}. -------------------- and print-it. Open the debugger by selecting the context for "DoIt" and press cmd-t twice to simulate the #error: message send, and then proceed. You get nil as the result. -- Yoshiki

1 0

Simulation discrepancy with #return:
by Yoshiki Ohshima 26 Mar '12

26 Mar '12

Hello, I noticed that step executing the following code in debugger yields different results: ------------------- test 3 < 4 ifTrue: [ thisContext return: 42]. ^ 666. ------------------- In the normal execution, you get 42 as expected, but if you debug it and step execute, #return: does not actuall return and you get 666. It appears that the primitive for #terminateTo: is the culprit... -- Yoshiki

4 9

IWST'2012 CFP - International Workshop on Smalltalk Technologies
by Alain Plantec 26 Mar '12

26 Mar '12

Apologies for multiple receptions. ------------------------------------------------------------------------ IWST @ ESUG 2012 International Workshop on Smalltalk Technologies Pending ACM In-Cooperation August 28th, 2012 Gent, Belgium http://www.esug.org/wiki/pier/Conferences/2012/International-Workshop---IWS… ------------------------------------------------------------------------ ESUG 2012 Smalltalk joint event IMPORTANT DATES * Submission deadline: June 15, 2012 * Notification deadline: July 15, 2012 All accepted papers will be published in ACM DL, and the authors of the best papers will be invited to submit an extended version to a journal special issue (To Be Confirmed). GOALS AND SCOPE The goals of the workshop is to create a forum around advances or experience in Smalltalk and to trigger discussions and exchanges of ideas. Participants are invited to submit research articles. We will not enforce any length restriction. However we expect papers of two kinds: * Short position papers describing emerging ideas. * Long research papers with deeper description of experiments and of research results. TOPICS We welcome contributions on all aspects, theoretical as well as practical, of Smalltalk related topics such as: * Aspect-oriented programming, * Design patterns, * Experience reports, * Frameworks, * Implementation, new dialects or languages implemented in Smalltalk, * Interaction with other languages, * Meta-programming and Meta-modeling, * Tools PUBLICATION Both submissions and final papers must be prepared using the ACM SIGPLAN 10 point format. Templates for Word and LaTeX are available at http://www.acm.org/sigs/sigplan/authorInformation.htm; this site also contains links to useful informations on how to write effective submissions. Program chairs: Loïc Lagadec and Alain Plantec (LabSticc/CNRS, University of Brest, France) Program committee Gabriela Arevalo LIFIA, University of la Plata, Argentina Alexandre Bergel University of Chile Andrew P. Black Portland State University, US Marcus Denker Rmod, INRIA Lille - Nord Europe, France Luc Fabresse Ecole des Mines de Douai, France, Tudor Girba CompuGroup Medical Schweiz, Switzerland Andy Kellens Software Languages Lab, Vrije Universiteit Brussel, Belgium Mickaël Kerboeuf LabSticc, University of Brest, France Jannik Laval LaBRI, University of Bordeaux, France Mariano Martinez Peck Ecole des Mines de Douai, France, Lukas Renggli Google, US Jorge Ressia Software Composition Group, University of Bern, Switzerland Bastian Steinert HPI, Software Architecture Group, Germany Hernan Wilkinson 10Pines, IT consultancy, Buenos Aires, Argentina Roel Wuyts IMEC Leuven, Belgium

1 0

GSoC more mentors wanted
by Janko Mivšek 26 Mar '12

26 Mar '12

Dear Smalltalkers, We have quite nice projects, but mentors are still missing: http://gsoc2012.esug.org/projects http://gsoc2012.esug.org/mentors Note that current mentors are potential mentors and more project proposers than final mentors, so, if you are interested to mentor some project, contact the current mentor and volunteer to be a mentor, or second mentor, of that project. Same goes for current mentors, please be sure that your projects will have a proper mentor and second mentor. What's difference between mentor and second mentor? Mentor is responsible for a project and student through the whole project lifecycle, while second mentor is officially to replace the main mentor in a case he cannot be mentor for any reasons anymore, but unofficially second mentor also helps the main mentor working on the project. There is only one main and only one second mentor possible. So please, anyone interested please look at the projects and volunteer for membership. By replying to me or Carla, or to the current potential mentors. Best regards Janko -- Janko Mivšek Smalltalk GSoC Admin Team http://gsoc2012.esug.org

1 0

Daily Commit Log
by commits＠source.squeak.org 26 Mar '12

26 Mar '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-March/005241.html Name: Tools-nice.398 Ancestors: Tools-bf.397 Improve Inspector>>printStringErrorText It will display: <error in printString: evaluate "(self at: 2) printString" to debug> instead of: <error in printString: evaluate "2 printString" to debug> ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005242.html Name: Tools-nice.399 Ancestors: Tools-nice.398 When an Error occurs while printing the selected field, the Text describing the field holds an error message in red ink. When a field without error is then selected, the ink did remain red. Correct this and let it turn black again. I see your red error and want to paint it black, no colors anymore I want'em to turn black, etc... =============================================

1 0

The Trunk: Tools-nice.399.mcz
by commits＠source.squeak.org 25 Mar '12

25 Mar '12

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.399.mcz ==================== Summary ==================== Name: Tools-nice.399 Author: nice Time: 25 March 2012, 12:48:16.254 pm UUID: 1b7cabc7-f138-4304-bf9f-0b628d9457f2 Ancestors: Tools-nice.398 When an Error occurs while printing the selected field, the Text describing the field holds an error message in red ink. When a field without error is then selected, the ink did remain red. Correct this and let it turn black again. I see your red error and want to paint it black, no colors anymore I want'em to turn black, etc... =============== Diff against Tools-nice.398 =============== Item was changed: ----- Method: Inspector>>selectionPrintString (in category 'selecting') ----- selectionPrintString | text | + selectionUpdateTime := [text := [(self selection printStringLimitedTo: 5000) asText] - selectionUpdateTime := [text := [self selection printStringLimitedTo: 5000] on: Error do: [text := self printStringErrorText. text addAttribute: TextColor red from: 1 to: text size. text]] timeToRun. ^ text!

1 0

The Trunk: Tools-nice.398.mcz
by commits＠source.squeak.org 25 Mar '12

25 Mar '12

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.398.mcz ==================== Summary ==================== Name: Tools-nice.398 Author: nice Time: 25 March 2012, 12:37:20.911 pm UUID: 2349865d-d8dc-4673-bc73-94f30174a1b5 Ancestors: Tools-bf.397 Improve Inspector>>printStringErrorText It will display: <error in printString: evaluate "(self at: 2) printString" to debug> instead of: <error in printString: evaluate "2 printString" to debug> =============== Diff against Tools-bf.397 =============== Item was changed: ----- Method: Inspector>>printStringErrorText (in category 'private') ----- printStringErrorText | nm | nm := self selectionIndex < 3 ifTrue: ['self'] ifFalse: [self selectedSlotName]. + ^(nm first isDigit + ifTrue: ['<error in printString: evaluate "(self at: ' , nm , ') printString" to debug>'] + ifFalse: ['<error in printString: evaluate "' , nm , ' printString" to debug>']) asText.! - ^ ('<error in printString: evaluate "' , nm , ' printString" to debug>') asText.!

1 0

Programming Language Poll
by Robert Carleton 25 Mar '12

25 Mar '12

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Y Combinator has a language poll up: http://news.ycombinator.com/item?id=3746692 You might want to consider giving Smalltalk an up vote there. Best, --Bruce -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.10 (Darwin) iQEcBAEBAgAGBQJPbmbuAAoJEPy/5L3ndSQsSLMIAKh6QaAjAuYXokSkNUwIajEX TSfXiOTqzGIaAEtRb7xoMRVXkS4y567V3xfEQFgHsXMbxoZT2w9Me2WlWItpnn1j dxYgieQhoQvBQY+2Y8n0Cx+W3CqHSmqhaEy42512z1MPoipfuC9KkvLpR2y9askN 5BdJ36LfcOBMvcfqhUm/jI9em89gtvqmxcjVE349gRDetGWswi2lqsWnXbCNI+D4 g2rmNPqVeVPQwdUZ9Heeb0rZaNVF4zl+qRnW+ANb01qRQ0uHM528P+/p4PeTpZ5v ZWJlx0MmHc/MD9wYKfIxHKLhKNVJxsCHDq1e5yIde3/y5+54hfj9xWer6u4etbw= =Kud6 -----END PGP SIGNATURE-----

1 0

Daily Commit Log
by commits＠source.squeak.org 25 Mar '12

25 Mar '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-March/005240.html Name: System-bf.473 Ancestors: System-eem.472 Fix mapping classes that changed shape when loading from an ImageSegment. Apart from correcting the source formatting in comeFullyUpOnReload:, the real addition is "aFake becomeForward: aReal" causing the imported classes to be mapped to the actual classes. Before, only the instances were remapped to the actual classes. Also, prevent doIts from entering the system. =============================================

1 0

The Inbox: GetText-nice.19.mcz
by commits＠source.squeak.org 24 Mar '12

24 Mar '12

Nicolas Cellier uploaded a new version of GetText to project The Inbox: http://source.squeak.org/inbox/GetText-nice.19.mcz ==================== Summary ==================== Name: GetText-nice.19 Author: nice Time: 24 March 2012, 6:27:42.313 pm UUID: c676d287-d02a-4430-878b-a35508793073 Ancestors: GetText-edc.18 Remove Undeclared references. Note1: This implies moving an inst. var. declaration in an upper class, no idea how MC can handle this, cross fingers... Note2: Since some of these methods were in startup: I don't believe the code was ever functional in Squeak, and I did not even try. For these two reasons, I post in inbox, not directly in trunk =============== Diff against GetText-edc.18 =============== Item was changed: ----- Method: GetTextExporter>>export: (in category 'exporting') ----- export: aLanguage - language := aLanguage. [stream := FileStream forceNewFileNamed: self defaultFileName. stream lineEndConvention: #lf. stream converter: UTF8TextConverter new. self exportHeader. + self exportTranslationsFor: aLanguage. + self exportUntranslatedFor: aLanguage] - self exportTranslations. - self exportUntranslated] ensure: [stream close]! Item was removed: - ----- Method: GetTextExporter>>exportTranslations (in category 'private-translations') ----- - exportTranslations - | keys size | - keys := language translations keys asArray sort. - size := keys size. - ProgressInitiationException - display: 'Exporting translated phrases as a gettext file.' - during: [:bar | 1 - to: size - do: [:index | - self - exportPhrase: (keys at: index) - translation: (language translations - at: (keys at: index)). - bar value: index / size]]! Item was added: + ----- Method: GetTextExporter>>exportTranslationsFor: (in category 'private-translations') ----- + exportTranslationsFor: aLanguage + | keys size | + keys := aLanguage translations keys asArray sort. + size := keys size. + ProgressInitiationException + display: 'Exporting translated phrases as a gettext file.' + during: [:bar | 1 + to: size + do: [:index | + self + exportPhrase: (keys at: index) + translation: (aLanguage translations + at: (keys at: index)). + bar value: index / size]]! Item was removed: - ----- Method: GetTextExporter>>exportUntranslated (in category 'private-translations') ----- - exportUntranslated - | keys | - keys := language untranslated keys asArray sort. - ProgressInitiationException - display: 'Exporting untranslated phrases as a gettext file.' - at: Sensor cursorPoint - from: 1 - to: keys size - during: [:bar | 1 - to: keys size - do: [:index | - self - exportPhrase: (keys at: index) - translation: ''. - bar value: index]]! Item was added: + ----- Method: GetTextExporter>>exportUntranslatedFor: (in category 'private-translations') ----- + exportUntranslatedFor: aLanguage + | keys | + keys := aLanguage untranslated keys asArray sort. + ProgressInitiationException + display: 'Exporting untranslated phrases as a gettext file.' + at: Sensor cursorPoint + from: 1 + to: keys size + during: [:bar | 1 + to: keys size + do: [:index | + self + exportPhrase: (keys at: index) + translation: ''. + bar value: index]]! Item was changed: NaturalLanguageTranslator subclass: #InternalTranslator + instanceVariableNames: '' - instanceVariableNames: 'generics' classVariableNames: 'AllKnownPhrases CachedTranslations' poolDictionaries: '' category: 'GetText-Localization'! !InternalTranslator commentStamp: 'tak 10/19/2007 11:12' prior: 0! An InternalTranslator is used a translation dictionary in a image. You can use it without any external translation file. Structure: generics Dictionary -- msgid -> msgstr ! Item was changed: ----- Method: Locale class>>switchAndInstallFontToID:gently: (in category 'accessing') ----- switchAndInstallFontToID: localeID gently: gentlyFlag - | locale result env envFound ret fontInImage menu | - "Assumption: Rainbow => can try Pango" "Logic: - - in Sugar, we don't bother asking any questions, and we don't bother automatically loading fonts. - in Sugar, and if the font is available, use the font. - in Sugar, and if the font is not in the image, try to enable Pango. - - if the previous step fails, notify the user that you cannot switch to the language. - not in Rainbow, - if the font is in the image, use the font. - if the font is not in the image, - ask to choose: - load font - try to enable pango, if pango is available - or cancel. - if the previous step fails, notify the user that you cannot switch to the language. Details: - how to check non-pango font is available: - if the language environment for the locale doesn't exist, the font is not available. - if font loading fails, it is not available. - how to check if the language environment doesn't exist: - if the locales languageEnvironment is Latin1 but the locale isn't it is not available. " locale := Locale localeID: localeID. env := locale languageEnvironment. result := true. envFound := (Latin1Environment supportedLanguages includes: locale isoLanguage) or: [(env isMemberOf: Latin1Environment) not]. fontInImage := envFound and: [env isFontAvailable]. + fontInImage ifFalse: [ + menu := MenuMorph new. + menu defaultTarget: menu. + envFound ifTrue: [menu add: 'load font' translated selector: #modalSelection: argument: #loadFont]. + menu add: 'cancel' translated selector: #modalSelection: argument: #cancel. + menu addTitle: 'This language needs additional fonts. - SugarLauncher isRunningInSugar ifTrue: [ - fontInImage ifFalse: [ - "font is not available in the image. Even don't ask for font installation." - Cursor wait showWhile: [ - Preferences setPreference: #usePangoRenderer toValue: true. - TextMorph usePango: true]]. - ] ifFalse: [ - fontInImage ifFalse: [ - menu := MenuMorph new. - menu defaultTarget: menu. - envFound ifTrue: [menu add: 'load font' translated selector: #modalSelection: argument: #loadFont]. - RomePluginCanvas pangoIsAvailable ifTrue: [menu add: 'enable Pango' translated selector: #modalSelection: argument: #enablePango]. - menu add: 'cancel' translated selector: #modalSelection: argument: #cancel. - menu addTitle: 'This language needs additional fonts. Do you want to install the fonts?' translated. + ret := menu invokeModal. + ret = #loadFont ifTrue: [result := env installFont. result ifTrue: [StrikeFont setupDefaultFallbackTextStyle]]. + (ret ~~ #loadFont and: [ret ~~ #enablePango]) ifTrue: [result := false]]. - ret := menu invokeModal. - ret = #loadFont ifTrue: [result := env installFont. result ifTrue: [StrikeFont setupDefaultFallbackTextStyle]]. - ret = #enablePango ifTrue: [ - (result := RomePluginCanvas pangoIsAvailable) ifTrue: [ - Cursor wait showWhile: [ - Preferences setPreference: #usePangoRenderer toValue: true. - TextMorph usePango: true]]]. - (ret ~~ #loadFont and: [ret ~~ #enablePango]) ifTrue: [result := false]]]. - result ifFalse: [self inform: 'Cannot load additional fonts' translated] ifTrue: [self switchTo: locale gently: gentlyFlag]. ! Item was changed: Object subclass: #NaturalLanguageTranslator + instanceVariableNames: 'id generics' - instanceVariableNames: 'id' classVariableNames: 'Translators' poolDictionaries: '' category: 'GetText-Localization'! !NaturalLanguageTranslator commentStamp: '<historical>' prior: 0! abstract class of natural language translator. Class side manages and holds loaded instances of concrete classes.! Item was added: + ----- Method: NaturalLanguageTranslator class>>allKnownPhrases (in category 'private') ----- + allKnownPhrases + ^AllKnownPhrases ifNil: [AllKnownPhrases := Dictionary new: 2051]! Item was added: + ----- Method: NaturalLanguageTranslator class>>cachedTranslations (in category 'private') ----- + cachedTranslations + "CachedTranslations := nil" + ^CachedTranslations ifNil: [CachedTranslations := Dictionary new]! Item was added: + ----- Method: NaturalLanguageTranslator class>>cleanUp (in category 'class initialization') ----- + cleanUp + "Flush caches" + + CachedTranslations := nil. + AllKnownPhrases := nil.! Item was changed: ----- Method: NaturalLanguageTranslator>>fileOutOn:keys: (in category 'fileIn/fileOut') ----- fileOutOn: aStream keys: keys "self current fileOutOn: Transcript. Transcript endEntry" (keys + ifNil: [self generics keys asArray sort]) - ifNil: [generics keys asArray sort]) do: [:key | self + nextChunkPut: (self generics associationAt: key) - nextChunkPut: (generics associationAt: key) on: aStream]. keys ifNil: [self untranslated do: [:each | self nextChunkPut: each -> '' on: aStream]]. aStream nextPut: $!!; cr!

1 0

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

Jump to page: