Squeak-dev July 2012

squeak-dev@lists.squeakfoundation.org

55 participants
189 discussions

The Trunk: NetworkTests-dtl.31.mcz
by commits＠source.squeak.org 17 Jul '12

17 Jul '12

David T. Lewis uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-dtl.31.mcz ==================== Summary ==================== Name: NetworkTests-dtl.31 Author: dtl Time: 17 July 2012, 8:28:15.3 am UUID: 3aa39e19-695e-4d09-a022-6d659641a6c0 Ancestors: NetworkTests-dtl.30 Add SocketTest>>testStringFromAddress to ensure that NetNameResolver class>>stringFromAddress: works for SocketAddress as well as for old style ByteArray addresses. =============== Diff against NetworkTests-dtl.30 =============== Item was added: + ----- Method: SocketTest>>testStringFromAddress (in category 'tests') ----- + testStringFromAddress + "Addresses are represented by a ByteArray if NetNameResolver useOldNetwork + is true, or by by SocketAddress otherwise. Ensure the #stringFromAddress: works + in either case. Older versions of SocketPlugin in the VM do not provide support + for SocketAddress, and ByteArray addresses are used in that case." + + | localAddress localAddressBytes localName1 localName2 | + localAddress := NetNameResolver localHostAddress. "ByteArray or SocketAddress" + localAddressBytes := localAddress asByteArray. + localName1 := NetNameResolver stringFromAddress: localAddress. + localName2 := NetNameResolver stringFromAddress: localAddressBytes. + self assert: localName1 = localName2 + !

1 0

9th Innovation Technology Awards - Reminder
by jdelgado 17 Jul '12

17 Jul '12

Hi, Reminder: 29 days to deadline Have you written innovative Smalltalk? The developers of any Smalltalk-based software can enter by submitting a 3-5min video of their software. Entrants demo their systems in a session at the end of Monday August 27th 2012, after which the conference attendees vote. (A vote consists in providing a sorted list of 3 preferred pieces of software.) The top 3 teams with the most innovative software will receive, respectively, 500 Euros, 300 Euros and 200 Euros. The results are announced in the Awards ceremony that is held during the social event. Applicants should provide the following information on the conference registration server. Once you have registered your personal info, an 'Awards' menu allows submitting your software. You can provide this information when you first register, or login again later and update your details. The registration server will open soon. You can start preparing your software right now though. Info to provide: Name of the software Licence information (free, shareware, or commercial) Name of the Smalltalk dialect used Name, Affiliation and Country of developers Besides, it would be great if the submission could include: URL for a video (3-5 min) showing a screencast / demo of the software URL for downloading the software or at least a runnable demo Deadline: August 15 Any Smalltalker can apply (students, companies, ...). The presented piece of code/software should be written in Smalltalk or directly support Smalltalk (e.g. Smalltalk VM). All Smalltalk dialects are accepted. The applicant should be "strongly related" to the presented code, be it as an author, as owner of the copyright/copyleft, or as an official representative of the copyright/copyleft owner. Bests Jordi -- View this message in context: http://forum.world.st/9th-Innovation-Technology-Awards-Reminder-tp4640276.h… Sent from the Squeak - Dev mailing list archive at Nabble.com.

1 0

The Trunk: System-eem.491.mcz
by commits＠source.squeak.org 17 Jul '12

17 Jul '12

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.491.mcz ==================== Summary ==================== Name: System-eem.491 Author: eem Time: 16 July 2012, 5:15:37.638 pm UUID: 36631b36-5c57-4173-af46-59e4697db35b Ancestors: System-eem.490 Make MessageTally able to profile across a snapshot. See MessageTally's class comment for an example. =============== Diff against System-eem.490 =============== Item was changed: Magnitude subclass: #MessageTally + instanceVariableNames: 'class method process tally receivers senders time gcStats maxClassNameSize maxClassPlusSelectorSize maxTabs reportOtherProcesses time0 startTime endTime preHibernationCopy' - instanceVariableNames: 'class method process tally receivers senders time gcStats maxClassNameSize maxClassPlusSelectorSize maxTabs reportOtherProcesses' classVariableNames: 'DefaultPollPeriod ShowProcesses Timer' poolDictionaries: '' category: 'System-Tools'! + !MessageTally commentStamp: 'eem 7/16/2012 17:10' prior: 0! - !MessageTally commentStamp: 'StephaneDucasse 9/27/2009 10:42' prior: 0! My instances observe and report the amount of time spent in methods. NOTE: a higher-level user interface (combining the MessageTally result tree with a method browser) is available from TimeProfileBrowser. Note that TimeProfileBrowser was not fancy with the different setting possibilities. TimeProfileBrowser spyOn: [20 timesRepeat: [Transcript show: 100 factorial printString]] Strategies ----------- MessageTally provides two different strategies available for profiling: * spyOn: and friends use a high-priority Process to interrupt the block or process being spied on at periodic intervals. The interrupted call stack is then examined for caller information. See below for an example showing different settings * tallySends: and friends use the interpreter simulator to run the block, recording every method call. The two give you different results: * spyOn: gives you a view of where the time is being spent in your program, at least on a rough statistical level (assuming you've run the block for long enough and have a high enough poll rate). If you're trying to optimize your code, start here and optimize the methods where most of the time is being spent first. * tallySends: gives you accurate counts of how many times methods get called, and by exactly which route. If you're debugging, or trying to figure out if a given method is getting called too many times, this is your tool. Q: How do you interpret MessageTally>>tallySends A: The methods #tallySends and #spyOn: measure two very different quantities, but broken down in the same who-called-who format. #spyOn: is approximate, but more indicative of real time spent, whereas #tallySends is exact and a precise record of how many times each method got executed. Examples ---------- Here you can see all the processes computation time [1000 timesRepeat: [3.14159 printString. Processor yield]] fork. [1000 timesRepeat: [30 factorial. Processor yield]] fork. [1000 timesRepeat: [30 factorial. Processor yield]] fork. MessageTally spyAllOn: [ (Delay forMilliseconds: 100) wait] + This profiles across a snapshot, writing the output to {imageName}.N.profile + | fn | + fn := (FileDirectory baseNameFor: Smalltalk image imageName), '.profile'. + [MessageTally + spyOn: [Smalltalk image snapshot: true andQuit: true] + toFileNamed: fn + reportOtherProcesses: true] + on: FileExistsException + do: [:ex| + ex resume: + (FileStream forceNewFileNamed: + (FileDirectory default + nextNameFor: + (FileDirectory localNameFor: + (FileDirectory baseNameFor: fn)) + extension: 'profile'))] Settings --------- You can change the printing format (that is, the whitespace and string compression) by using these instance methods: maxClassNameSize: maxClassPlusSelectorSize: maxTabs: You can change the default polling period (initially set to 1) by calling MessageTally defaultPollPeriod: numberOfMilliseconds To understand the difference ---------------------------------- Here we see all the processes [1000 timesRepeat: [ 100 timesRepeat: [120 factorial]. (Delay forMilliseconds: 10) wait ]] forkAt: 45 named: '45'. MessageTally spyAllOn: [10000 timesRepeat: [1.23 printString]] Here we only see the execution of the expression [10000 timesRepeat: [1.23 printString] [1000 timesRepeat: [ 100 timesRepeat: [120 factorial]. (Delay forMilliseconds: 10) wait ]] forkAt: 45 named: '45'. MessageTally spyOn: [10000 timesRepeat: [1.23 printString]] Here we only check the exact message sends: this is not a pc-sampling approach [1000 timesRepeat: [ 100 timesRepeat: [120 factorial]. (Delay forMilliseconds: 10) wait ]] forkAt: 45 named: '45'. MessageTally tallySends: [10000 timesRepeat: [1.23 printString]] ! Item was changed: ----- Method: MessageTally class>>initialize (in category 'class initialization') ----- initialize "MessageTally initialize" "By default, show each process separately" + ShowProcesses ifNil: [ShowProcesses := true]. + Smalltalk + addToShutDownList: self after: Delay; "i.e. convert to relative times & stats after Delay sleeps." + addToStartUpList: self before: Delay "i.e. convert back to absolute stats before Delay wakes."! - ShowProcesses := true! Item was added: + ----- Method: MessageTally class>>runningInstance (in category 'system startup') ----- + runningInstance + "Answer the running instance if the Timer is running." + ^Timer ifNotNil: + [((Processor activeProcess == Timer + ifTrue: [thisContext] + ifFalse: [Timer suspendedContext]) findContextSuchThat: + [:ctxt| ctxt receiver isKindOf: self]) ifNotNil: + [:ctxt| ctxt receiver]]! Item was added: + ----- Method: MessageTally class>>shutDown: (in category 'system startup') ----- + shutDown: quitting + "This message is sent on system shutdown to registered classes" + self runningInstance ifNotNil: [:runningInstance| runningInstance hibernate]! Item was added: + ----- Method: MessageTally class>>startUp: (in category 'system startup') ----- + startUp: resuming + "This message is sent to registered classes when the system is coming up." + self runningInstance ifNotNil: [:runningInstance| runningInstance unhibernate: resuming]! Item was added: + ----- Method: MessageTally>>computeGCStats (in category 'private') ----- + computeGCStats + "Compute the deltas in the GC stats. Serves for reporting, hibernating and unhibernating." + SmalltalkImage current getVMParameters keysAndValuesDo: + [ :idx :gcVal | + gcVal ifNotNil: [gcStats at: idx put: (gcVal - (gcStats at: idx))]]! Item was added: + ----- Method: MessageTally>>convertToOrFromDeltaForHibernation (in category 'private') ----- + convertToOrFromDeltaForHibernation + "Convert between absolute and relative times and stats (and back!!)." + | now | + now := Time millisecondClockValue. + startTime ifNotNil: [startTime := now - startTime]. + time0 ifNotNil: [time0 := now - time0]. + endTime ifNotNil: [endTime := now - endTime]. + self computeGCStats! Item was added: + ----- Method: MessageTally>>hibernate (in category 'private') ----- + hibernate + "Sent before snapshot. Convert absolute times and stats into relative times and stats + Also copy the receiver for the non-snapshot path." + preHibernationCopy := self shallowCopy. + gcStats := gcStats copy. "So as to leave preHibernationCopy's alone." + self convertToOrFromDeltaForHibernation! Item was changed: ----- Method: MessageTally>>spyAllEvery:on: (in category 'initialize-release') ----- spyAllEvery: millisecs on: aBlock "Create a spy and spy on the given block at the specified rate." "Spy all the system processes" + | myDelay | - | myDelay time0 | aBlock isBlock ifFalse: [ self error: 'spy needs a block here' ]. self class: aBlock receiver class method: aBlock method. "set up the probe" myDelay := Delay forMilliseconds: millisecs. time0 := Time millisecondClockValue. gcStats := SmalltalkImage current getVMParameters. Timer ifNotNil: [ self error: 'it seems a tally is already running' ]. Timer := [ + [true] whileTrue: [ + | observedProcess | - [ - | observedProcess startTime | startTime := Time millisecondClockValue. myDelay wait. observedProcess := Processor preemptedProcess. self tally: observedProcess suspendedContext in: observedProcess "tally can be > 1 if ran a long primitive" + by: (Time millisecondClockValue - startTime) // millisecs]. - by: (Time millisecondClockValue - startTime) // millisecs] repeat. nil] newProcess. Timer priority: Processor timingPriority-1. "activate the probe and evaluate the block" Timer resume. ^ aBlock ensure: [ "cancel the probe and return the value" "Could have already been terminated. See #terminateTimerProcess" + self class terminateTimerProcess. + self computeGCStats. - Timer ifNotNil: [ - Timer terminate. - Timer := nil ]. - "Collect gc statistics" - SmalltalkImage current getVMParameters keysAndValuesDo: [ :idx :gcVal | - gcVal ifNotNil: [ gcStats at: idx put: (gcVal - (gcStats at: idx)) ] ]. time := Time millisecondClockValue - time0]! Item was changed: ----- Method: MessageTally>>spyEvery:on: (in category 'initialize-release') ----- spyEvery: millisecs on: aBlock "Create a spy and spy on the given block at the specified rate." "Spy only on the active process (in which aBlock is run)" + | myDelay observedProcess | - | myDelay time0 observedProcess | aBlock isBlock ifFalse: [ self error: 'spy needs a block here' ]. self class: aBlock receiver class method: aBlock method. "set up the probe" observedProcess := Processor activeProcess. myDelay := Delay forMilliseconds: millisecs. - time0 := Time millisecondClockValue. gcStats := SmalltalkImage current getVMParameters. Timer ifNotNil: [ self error: 'it seems a tally is already running' ]. + time0 := Time millisecondClockValue. Timer := [ + [ true ] whileTrue: [ - [ - | startTime | startTime := Time millisecondClockValue. myDelay wait. self tally: Processor preemptedProcess suspendedContext in: (observedProcess == Processor preemptedProcess ifTrue: [observedProcess] ifFalse: [nil]) "tally can be > 1 if ran a long primitive" + by: (Time millisecondClockValue - startTime) // millisecs]. - by: (Time millisecondClockValue - startTime) // millisecs] repeat. nil] newProcess. Timer priority: Processor timingPriority-1. "activate the probe and evaluate the block" Timer resume. ^ aBlock ensure: [ "cancel the probe and return the value" "Could have already been terminated. See #terminateTimerProcess" + self class terminateTimerProcess. + self computeGCStats. + time := Time millisecondClockValue - time0]! - Timer ifNotNil: [ - Timer terminate. - Timer := nil ]. - "Collect gc statistics" - SmalltalkImage current getVMParameters keysAndValuesDo: [ :idx :gcVal | - gcVal ifNotNil: [ gcStats at: idx put: (gcVal - (gcStats at: idx)) ] ]. - time := Time millisecondClockValue - time0 ]! Item was changed: ----- Method: MessageTally>>spyEvery:onProcess:forMilliseconds: (in category 'initialize-release') ----- spyEvery: millisecs onProcess: aProcess forMilliseconds: msecDuration "Create a spy and spy on the given process at the specified rate." + | myDelay observedProcess sem | - | myDelay time0 endTime observedProcess sem | (aProcess isKindOf: Process) ifFalse: [self error: 'spy needs a Process here']. self class: aProcess suspendedContext receiver class method: aProcess suspendedContext method. "set up the probe" observedProcess := aProcess. myDelay := Delay forMilliseconds: millisecs. time0 := Time millisecondClockValue. endTime := time0 + msecDuration. sem := Semaphore new. gcStats := SmalltalkImage current getVMParameters. Timer ifNotNil: [ self error: 'it seems a tally is already running' ]. Timer := [ [ - | startTime | startTime := Time millisecondClockValue. myDelay wait. self tally: Processor preemptedProcess suspendedContext in: (observedProcess == Processor preemptedProcess ifTrue: [ observedProcess ] ifFalse: [ nil ]) "tally can be > 1 if ran a long primitive" by: (Time millisecondClockValue - startTime) // millisecs. startTime < endTime ] whileTrue. sem signal. ] newProcess. Timer priority: Processor timingPriority-1. "activate the probe and evaluate the block" Timer resume. "activate the probe and wait for it to finish" sem wait. + self computeGCStats. - "Collect gc statistics" - SmalltalkImage current getVMParameters keysAndValuesDo: [ :idx :gcVal | - gcVal ifNotNil: [ gcStats at: idx put: (gcVal - (gcStats at: idx)) ] ]. time := Time millisecondClockValue - time0! Item was added: + ----- Method: MessageTally>>unhibernate: (in category 'private') ----- + unhibernate: resuming + "Sent after snapshot. If resuming (starting a shapshot), then convert relative + times back into absolute times. If not, revert to pre-hibernation state." + resuming + ifTrue: [self convertToOrFromDeltaForHibernation] + ifFalse: [self copyFrom: preHibernationCopy]!

1 0

The Trunk: System-eem.490.mcz
by commits＠source.squeak.org 17 Jul '12

17 Jul '12

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.490.mcz ==================== Summary ==================== Name: System-eem.490 Author: eem Time: 16 July 2012, 5:02:11.416 pm UUID: 01bb33e7-ec31-4459-8785-fc8b5e63372b Ancestors: System-laza.489 Pharo/Marcus Denker's shutdown/startup list refactoring that provides add before, not just add after, and makes clear the adding direction when no ancestor is given. =============== Diff against System-laza.489 =============== Item was changed: + ----- Method: SmalltalkImage>>add:toList:after: (in category 'startup list') ----- - ----- Method: SmalltalkImage>>add:toList:after: (in category 'snapshot and quit') ----- add: aClass toList: startUpOrShutDownList after: predecessor "Add the name of aClass to the startUp or shutDown list. + Add it after the name of predecessor" - Add it after the name of predecessor, or at the end if predecessor is nil." + (Smalltalk globals includes: aClass) + ifFalse: [self error: aClass name , ' cannot be found in Smalltalk dictionary.']. + + "Add after predecessor, moving it if already there." + (Smalltalk globals includes: predecessor) + ifFalse: [self error: predecessor name , ' cannot be found in Smalltalk dictionary.']. + (startUpOrShutDownList includes: predecessor name) + ifFalse: [self error: predecessor name , ' cannot be found in the list.']. + startUpOrShutDownList remove: aClass name ifAbsent:[]. + startUpOrShutDownList add: aClass name after: predecessor name! - | name earlierName | - name := aClass name. - (self at: name ifAbsent: [nil]) == aClass ifFalse: - [self error: name , ' cannot be found in Smalltalk dictionary.']. - predecessor == nil - ifTrue: ["No-op if alredy in the list." - (startUpOrShutDownList includes: name) ifFalse: - [startUpOrShutDownList == StartUpList - ifTrue: ["Add to end of startUp list" - startUpOrShutDownList addLast: name] - ifFalse: ["Add to front of shutDown list" - startUpOrShutDownList addFirst: name]]] - ifFalse: ["Add after predecessor, moving it if already there." - earlierName := predecessor name. - (self at: earlierName) == predecessor ifFalse: - [self error: earlierName , ' cannot be found in Smalltalk dictionary.']. - (startUpOrShutDownList includes: earlierName) ifFalse: - [self error: earlierName , ' cannot be found in the list.']. - startUpOrShutDownList remove: name ifAbsent:[]. - startUpOrShutDownList add: name after: earlierName]! Item was added: + ----- Method: SmalltalkImage>>add:toList:before: (in category 'startup list') ----- + add: aClass toList: startUpOrShutDownList before: successor + "Add the name of aClass to the startUp or shutDown list. + Add it before the name of successor" + + (Smalltalk globals includes: aClass) + ifFalse: [self error: aClass name , ' cannot be found in Smalltalk dictionary.']. + + "Add before successor, moving it if already there." + (Smalltalk globals includes: successor) + ifFalse: [self error: successor name , ' cannot be found in Smalltalk dictionary.']. + (startUpOrShutDownList includes: successor name) + ifFalse: [self error: successor name , ' cannot be found in the list.']. + startUpOrShutDownList remove: aClass name ifAbsent: []. + startUpOrShutDownList add: aClass name before: successor name.! Item was changed: + ----- Method: SmalltalkImage>>addToShutDownList: (in category 'startup list') ----- - ----- Method: SmalltalkImage>>addToShutDownList: (in category 'snapshot and quit') ----- addToShutDownList: aClass "This will add a ref to this class at the BEGINNING of the shutDown list." + "No-op if already in the list." + + (ShutDownList includes: aClass name) ifFalse: [ShutDownList addFirst: aClass name]! - - self addToShutDownList: aClass after: nil! Item was added: + ----- Method: SmalltalkImage>>addToShutDownList:before: (in category 'startup list') ----- + addToShutDownList: aClass before: predecessor + + self add: aClass toList: ShutDownList before: predecessor! Item was changed: + ----- Method: SmalltalkImage>>addToStartUpList: (in category 'startup list') ----- - ----- Method: SmalltalkImage>>addToStartUpList: (in category 'snapshot and quit') ----- addToStartUpList: aClass "This will add a ref to this class at the END of the startUp list." + "No-op if already in the list." + (StartUpList includes: aClass name) ifFalse: [StartUpList addLast: aClass name]! - self addToStartUpList: aClass after: nil! Item was added: + ----- Method: SmalltalkImage>>addToStartUpList:before: (in category 'startup list') ----- + addToStartUpList: aClass before: predecessor + + self add: aClass toList: StartUpList before: predecessor!

1 0

The Inbox: FFI-Win32-JohnMcKeon.11.mcz
by commits＠source.squeak.org 16 Jul '12

16 Jul '12

John McKeon uploaded a new version of FFI-Win32 to project The Inbox: http://source.squeak.org/inbox/FFI-Win32-JohnMcKeon.11.mcz ==================== Summary ==================== Name: FFI-Win32-JohnMcKeon.11 Author: JohnMcKeon Time: 16 July 2012, 3:33:42.926 pm UUID: 3dda278c-8af6-4c40-a4e9-9cae2cfa574f Ancestors: FFI-Win32-tbn.10 add preamble to allow underscores in selectors ==================== Snapshot ==================== (PackageInfo named: 'FFI-Win32') preamble: '"Constants have underscores in selectors; set the preference to allow them" Scanner prefAllowUnderscoreSelectors: true'! SystemOrganization addCategory: #'FFI-Win32-Examples'! SharedPool subclass: #Win32Constants instanceVariableNames: '' classVariableNames: 'COLOR_ACTIVEBORDER COLOR_ACTIVECAPTION COLOR_APPWORKSPACE COLOR_BACKGROUND COLOR_BTNFACE COLOR_BTNHIGHLIGHT COLOR_BTNSHADOW COLOR_BTNTEXT COLOR_CAPTIONTEXT COLOR_GRAYTEXT COLOR_HIGHLIGHT COLOR_HIGHLIGHTTEXT COLOR_INACTIVEBORDER COLOR_INACTIVECAPTION COLOR_INACTIVECAPTIONTEXT COLOR_MENU COLOR_MENUTEXT COLOR_SCROLLBAR COLOR_WINDOW COLOR_WINDOWFRAME COLOR_WINDOWTEXT CS_BYTEALIGNCLIENT CS_BYTEALIGNWINDOW CS_CLASSDC CS_DBLCLKS CS_HREDRAW CS_NOCLOSE CS_OWNDC CS_PARENTDC CS_SAVEBITS CS_VREDRAW CW_USEDEFAULT GWL_STYLE HWND_BROADCAST WM_DESTROY WM_MOVE WS_BORDER WS_CAPTION WS_CHILD WS_CHILDWINDOW WS_CLIPCHILDREN WS_CLIPSIBLINGS WS_DISABLED WS_DLGFRAME WS_EX_ACCEPTFILES WS_EX_APPWINDOW WS_EX_CLIENTEDGE WS_EX_CONTEXTHELP WS_EX_CONTROLPARENT WS_EX_DLGMODALFRAME WS_EX_LEFT WS_EX_LEFTSCROLLBAR WS_EX_LTRREADING WS_EX_MDICHILD WS_EX_NOACTIVATE WS_EX_NOPARENTNOTIFY WS_EX_OVERLAPPEDWINDOW WS_EX_PALETTEWINDOW WS_EX_RIGHT WS_EX_RIGHTSCROLLBAR WS_EX_RTLREADING WS_EX_STATICEDGE WS_EX_TOOLWINDOW WS_EX_TOPMOST WS_EX_TRANSPARENT WS_EX_WINDOWEDGE WS_GROUP WS_HSCROLL WS_ICONIC WS_MAXIMIZE WS_MAXIMIZEBOX WS_MINIMIZE WS_MINIMIZEBOX WS_OVERLAPPED WS_OVERLAPPEDWINDOW WS_POPUP WS_POPUPWINDOW WS_SIZEBOX WS_SYSMENU WS_TABSTOP WS_THICKFRAME WS_TILED WS_TILEDWINDOW WS_VISIBLE WS_VSCROLL' poolDictionaries: '' category: 'FFI-Win32-Examples'! ----- Method: Win32Constants class>>initialize (in category 'pool initialization') ----- initialize "Win32Constants initialize" self initializeWindowConstants.! ----- Method: Win32Constants class>>initializeWindowConstants (in category 'pool initialization') ----- initializeWindowConstants GWL_STYLE := -16. WS_EX_ACCEPTFILES := 16r10. WS_EX_APPWINDOW := 16r40000. WS_EX_CLIENTEDGE := 16r200. WS_EX_CONTEXTHELP := 16r400. WS_EX_CONTROLPARENT := 16r10000. WS_EX_DLGMODALFRAME := 16r1. WS_EX_LEFT := 16r0. WS_EX_LEFTSCROLLBAR := 16r4000. WS_EX_LTRREADING := 16r0. WS_EX_MDICHILD := 16r40. WS_EX_NOACTIVATE := 16r8000000. WS_EX_NOPARENTNOTIFY := 16r4. WS_EX_OVERLAPPEDWINDOW := 16r300. WS_EX_PALETTEWINDOW := 16r188. WS_EX_RIGHT := 16r1000. WS_EX_RIGHTSCROLLBAR := 16r0. WS_EX_RTLREADING := 16r2000. WS_EX_STATICEDGE := 16r20000. WS_EX_TOOLWINDOW := 16r80. WS_EX_TOPMOST := 16r8. WS_EX_TRANSPARENT := 16r20. WS_EX_WINDOWEDGE := 16r100. WS_BORDER := 16r800000. WS_CAPTION := 16rC00000. WS_CHILD := 16r40000000. WS_CHILDWINDOW := 16r40000000. WS_CLIPCHILDREN := 16r2000000. WS_CLIPSIBLINGS := 16r4000000. WS_DISABLED := 16r8000000. WS_DLGFRAME := 16r400000. WS_GROUP := 16r20000. WS_HSCROLL := 16r100000. WS_ICONIC := 16r20000000. WS_MAXIMIZE := 16r1000000. WS_MAXIMIZEBOX := 16r10000. WS_MINIMIZE := 16r20000000. WS_MINIMIZEBOX := 16r20000. WS_OVERLAPPED := 16r0. WS_OVERLAPPEDWINDOW := 16rCF0000. WS_POPUP := 16r80000000. WS_POPUPWINDOW := 16r80880000. WS_SIZEBOX := 16r40000. WS_SYSMENU := 16r80000. WS_TABSTOP := 16r10000. WS_THICKFRAME := 16r40000. WS_TILED := 16r0. WS_TILEDWINDOW := 16rCF0000. WS_VISIBLE := 16r10000000. WS_VSCROLL := 16r200000. CS_BYTEALIGNCLIENT := 16r1000. CS_BYTEALIGNWINDOW := 16r2000. CS_CLASSDC := 16r40. CS_DBLCLKS := 16r8. CS_HREDRAW := 16r2. CS_NOCLOSE := 16r200. CS_OWNDC := 16r20. CS_PARENTDC := 16r80. CS_SAVEBITS := 16r800. CS_VREDRAW := 16r1. COLOR_ACTIVEBORDER := 10. COLOR_ACTIVECAPTION := 2. COLOR_APPWORKSPACE := 12. COLOR_BACKGROUND := 1. COLOR_BTNFACE := 15. COLOR_BTNHIGHLIGHT := 20. COLOR_BTNSHADOW := 16. COLOR_BTNTEXT := 18. COLOR_CAPTIONTEXT := 9. COLOR_GRAYTEXT := 17. COLOR_HIGHLIGHT := 13. COLOR_HIGHLIGHTTEXT := 14. COLOR_INACTIVEBORDER := 11. COLOR_INACTIVECAPTION := 3. COLOR_INACTIVECAPTIONTEXT := 19. COLOR_MENU := 4. COLOR_MENUTEXT := 7. COLOR_SCROLLBAR := 0. COLOR_WINDOW := 5. COLOR_WINDOWFRAME := 6. COLOR_WINDOWTEXT := 8. CW_USEDEFAULT := 16r80000000. HWND_BROADCAST := 16rFFFF. WM_DESTROY := 16r2. WM_MOVE := 16r3! Object subclass: #Win32Error instanceVariableNames: 'errorCode' classVariableNames: 'ErrorCodes' poolDictionaries: '' category: 'FFI-Win32-Examples'! ----- Method: Win32Error class>>initialize (in category 'as yet unclassified') ----- initialize "Win32Error initialize" ErrorCodes := Dictionary new. ErrorCodes at: 203 put: #('ERROR_ENVVAR_NOT_FOUND' 'There was no environment variable with that name'); yourself! ----- Method: Win32Error class>>lastError (in category 'as yet unclassified') ----- lastError ^(self new) initializeWithLastError! ----- Method: Win32Error class>>win32GetLastError (in category 'as yet unclassified') ----- win32GetLastError "DWORD WINAPI GetLastError(void);" <apicall: ulong 'GetLastError' () module:'kernel32.dll'> ^nil! ----- Method: Win32Error>>errorCode (in category 'as yet unclassified') ----- errorCode ^errorCode! ----- Method: Win32Error>>errorMessage (in category 'as yet unclassified') ----- errorMessage ^(ErrorCodes at: errorCode) at: 2 ifAbsent: ['Unknown Error: ' , errorCode]! ----- Method: Win32Error>>errorName (in category 'as yet unclassified') ----- errorName ^(ErrorCodes at: errorCode) at: 1 ifAbsent: ['ERROR_UNKNOWN_' , errorCode ]! ----- Method: Win32Error>>initializeWithLastError (in category 'as yet unclassified') ----- initializeWithLastError errorCode := self class win32GetLastError.! Object subclass: #Win32Utils instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Win32-Examples'! !Win32Utils commentStamp: 'tbn 8/22/2005 23:50' prior: 0! This is an utility class with helpfull methods for Win32 users. Note that it uses FFI and is platform dependent.! ----- Method: Win32Utils class>>apiFreeEnvironmentStrings: (in category 'api calls') ----- apiFreeEnvironmentStrings: extData "Win32Utils apiFreeEnvironmentStrings" <apicall: long 'FreeEnvironmentStrings' (void*) module: 'kernel32.dll'> ^self externalCallFailed! ----- Method: Win32Utils class>>apiGetEnvironmentStrings (in category 'api calls') ----- apiGetEnvironmentStrings "Win32Utils apiGetEnvironmentStrings" <apicall: byte* 'GetEnvironmentStrings' () module: 'kernel32.dll'> ^self externalCallFailed! ----- Method: Win32Utils class>>apiGetEnvironmentVariable:buffer:size: (in category 'api calls') ----- apiGetEnvironmentVariable: name buffer: buffer size: bufferSize "DWORD WINAPI GetEnvironmentVariable( __in_opt LPCTSTR lpName, __out_opt LPTSTR lpBuffer, __in DWORD nSize );" "http://msdn.microsoft.com/en-us/library/ms683188(VS.85).aspx" <apicall: ulong 'GetEnvironmentVariableA' ( char* byte* ulong) module: 'kernel32.dll'> ^self externalCallFailed! ----- Method: Win32Utils class>>apiSetCursorPosX:y: (in category 'api calls') ----- apiSetCursorPosX: x y: y "this is apparently how to control the mouse cursor pragmatically on windows: http://lists.squeakfoundation.org/pipermail/squeak-dev/2011-February/157676… " <apicall: bool 'SetCursorPos' (long long) module: 'user32.dll'> ^self externalCallFailed! ----- Method: Win32Utils class>>getCommonEnvironmentVariables (in category 'examples') ----- getCommonEnvironmentVariables "Returns a dictionary with common environment variables for Win32 systems" |map| map := Dictionary new. #('ALLUSERSPROFILE' 'APPDATA' 'COMPUTERNAME' 'COMSPEC' 'HOMEDRIVE' 'HOMEPATH' 'LOGONSERVER' 'SYSTEMDRIVE' 'OS' 'PATH' 'SYSTEMROOT' 'TEMP' 'TMP' 'USERDOMAIN' 'USERNAME' 'USERPROFILE' 'WINDIR') do: [:each | map at: each put: (self getEnvironmentVariable: each)]. ^map ! ----- Method: Win32Utils class>>getEnvironmentVariable: (in category 'accessing') ----- getEnvironmentVariable: aString "Win32Utils getEnvironmentVariable: 'windir'" ^ self getEnvironmentVariable: aString ifAbsent: [nil]! ----- Method: Win32Utils class>>getEnvironmentVariable:buffer:ifAbsent: (in category 'accessing') ----- getEnvironmentVariable: name buffer: buffer ifAbsent: block "Win32Utils getEnvironmentVariable: 'APPDATA' " "Win32Utils getEnvironmentVariable: 'APPDATAx' " "http://msdn.microsoft.com/en-us/library/ms683188(VS.85).aspx " | retval err | retval := self apiGetEnvironmentVariable: name buffer: buffer size: buffer byteSize. retval = 0 ifTrue: [ err := Win32Error lastError. ^(err errorName = 'ERROR_ENVVAR_NOT_FOUND') ifTrue: [block value] ifFalse: [ self error: 'Problem with retrieving env var ' , name , '. Code is ' , err errorName. nil ] ]. ^(retval < buffer byteSize) ifTrue: [( buffer copyFrom: 1 to: retval ) asString] ifFalse: [ self getEnvironmentVariable: name buffer: (ByteArray new: retval) ifAbsent: block ]. ! ----- Method: Win32Utils class>>getEnvironmentVariable:ifAbsent: (in category 'accessing') ----- getEnvironmentVariable: name ifAbsent: block "Win32Utils getEnvironmentVariable: 'APPDATA' ifAbsent: [nil]" "Win32Utils getEnvironmentVariable: 'APPDATAx' ifAbsent: [5]" ^self getEnvironmentVariable: name buffer: (ByteArray new: 256) ifAbsent: block! ----- Method: Win32Utils class>>getEnvironmentVariables (in category 'accessing') ----- getEnvironmentVariables "Win32Utils getEnvironmentVariables" | externalData strs | externalData := self apiGetEnvironmentStrings. strs := externalData fromCStrings. self apiFreeEnvironmentStrings: externalData. ^strs ! ExternalStructure subclass: #Win32Handle instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Win32-Examples'! Win32Handle subclass: #Win32HDC instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Win32-Examples'! ----- Method: Win32HDC>>apiDeleteDC: (in category 'api calls') ----- apiDeleteDC: aHDC <apicall: bool 'DeleteDC' (Win32HDC) module:'gdi32.dll'> ^self externalCallFailed! ----- Method: Win32HDC>>apiDrawFocusRect:with: (in category 'api calls') ----- apiDrawFocusRect: aHDC with: lpRect "Draws a rectangle in the style used to indicate that the rectangle has the focus." <apicall: bool 'DrawFocusRect' (Win32HDC Win32Rectangle*) module: 'user32.dll'> ^ self externalCallFailed! ----- Method: Win32HDC>>apiDrawFrameControl:with:with:with: (in category 'api calls') ----- apiDrawFrameControl: aHDC with: lpRect with: type with: state "Draws a frame control of the specified type and style" <apicall: bool 'DrawFrameControl' (Win32HDC Win32Rectangle* ulong ulong) module: 'user32.dll'> ^ self externalCallFailed! ----- Method: Win32HDC>>apiEllipse:with:with:with:with: (in category 'api calls') ----- apiEllipse: aHDC with: left with: top with: right with: bottom <apicall: bool 'Ellipse' (Win32HDC long long long long) module: 'gdi32.dll'> ^self externalCallFailed! ----- Method: Win32HDC>>apiExtFloodFill:with:with:with:with: (in category 'api calls') ----- apiExtFloodFill: aHDC with: x with: y with: colorref with: fillType "fills an area of the display surface with the current brush" <apicall: bool 'ExtFloodFill' (Win32HDC long long ulong ulong) module: 'gdi32.dll'> ^ self externalCallFailed! ----- Method: Win32HDC>>apiFillRect:with:with: (in category 'api calls') ----- apiFillRect: aHDC with: lpRect with: brush "Fills a rectangle by using the specified brush. This function includes the left and top borders, but excludes the right and bottom borders of the rectangle. " <apicall: char 'FillRect' (Win32HDC Win32Rectangle* Win32HBrush) module: 'user32.dll'> ^ self externalCallFailed! ----- Method: Win32HDC>>apiFrameRect:with:with: (in category 'api calls') ----- apiFrameRect: aHDC with: lpRect with: brush "Draws a border around the specified rectangle by using the specified brush. The width and height of the border are always one logical unit." <apicall: char 'FrameRect' (Win32HDC Win32Rectangle* Win32HBrush) module: 'user32.dll'> ^ self externalCallFailed! ----- Method: Win32HDC>>apiLineTo:with:with: (in category 'api calls') ----- apiLineTo: aHDC with: x with: y <apicall: bool 'LineTo' (Win32HDC long long) module:'gdi32.dll'> ^self externalCallFailed! ----- Method: Win32HDC>>apiMoveToEx:with:with:with: (in category 'api calls') ----- apiMoveToEx: aHDC with: x with: y with: pt <apicall: bool 'MoveToEx' (Win32HDC long long Win32Point*) module: 'gdi32.dll'> ^self externalCallFailed! ----- Method: Win32HDC>>apiRectangle:with:with:with:with: (in category 'api calls') ----- apiRectangle: aHDC with: left with: top with: right with: bottom <apicall: bool 'Rectangle' (Win32HDC long long long long) module: 'gdi32.dll'> ^self externalCallFailed! ----- Method: Win32HDC>>apiRoundRect:with:with:with:with:with:with: (in category 'api calls') ----- apiRoundRect: aHDC with: left with: top with: right with: bottom with: width with: height "Draws a rectangle with rounded corners. The rectangle is outlined by using the current pen and filled by using the current brush" <apicall: bool 'RoundRect' (Win32HDC long long long long long long) module: 'gdi32.dll'> ^ self externalCallFailed! ----- Method: Win32HDC>>apiSelectObject:with: (in category 'api calls') ----- apiSelectObject: aHDC with: aHGDIOBJ <apicall: Win32HGDIObj 'SelectObject' (Win32HDC Win32HGDIObj) module: 'gdi32.dll'> ^self externalCallFailed! ----- Method: Win32HDC>>delete (in category 'initialize-release') ----- delete handle == nil ifFalse:[self apiDeleteDC: self]. handle := nil.! ----- Method: Win32HDC>>drawFocusRectangle: (in category 'drawing') ----- drawFocusRectangle: aRect "draws a rectangle in the style used to indicate that the rectangle has the focus" self apiDrawFocusRect: self with: (Win32Rectangle fromRectangle: aRect) ! ----- Method: Win32HDC>>drawFrameControl:type:style: (in category 'drawing') ----- drawFrameControl: aRect type: aType style: aStyle "Draws a frame control of the specified type and style (integer values)" self apiDrawFrameControl: self with: (Win32Rectangle fromRectangle: aRect) with: aType with: aStyle! ----- Method: Win32HDC>>ellipse: (in category 'drawing') ----- ellipse: aRect ^self apiEllipse: self with: aRect left with: aRect top with: aRect right with: aRect bottom! ----- Method: Win32HDC>>fillRectangle:color: (in category 'drawing') ----- fillRectangle: aRect color: aColor "fills an area of the display with the given color" | brush | brush := Win32HBrush createSolidBrush: aColor asColorref. self apiFillRect: self with: (Win32Rectangle fromRectangle: aRect) with: brush. brush delete! ----- Method: Win32HDC>>floodFillAt:boundaryColor:fillColor: (in category 'drawing') ----- floodFillAt: aPoint boundaryColor: aColor fillColor: anotherColor "fills an area of the display with the given color" | newBrush oldBrush | newBrush := Win32HBrush createSolidBrush: anotherColor asColorref. oldBrush := self selectObject: newBrush. (self apiExtFloodFill: self with: aPoint x with: aPoint y with: aColor asColorref with: 0) inspect. self selectObject: oldBrush. newBrush delete! ----- Method: Win32HDC>>frameRectangle:brush: (in category 'drawing') ----- frameRectangle: aRect brush: aBrush "Draws a border around the specified rectangle by using the specified brush. The width and height of the border are always one logical unit." self apiFrameRect: self with: (Win32Rectangle fromRectangle: aRect) with: aBrush. ! ----- Method: Win32HDC>>lineTo: (in category 'drawing') ----- lineTo: aPoint ^self apiLineTo: self with: aPoint x with: aPoint y! ----- Method: Win32HDC>>moveTo: (in category 'drawing') ----- moveTo: aPoint ^self apiMoveToEx: self with: aPoint x with: aPoint y with: nil! ----- Method: Win32HDC>>rectangle: (in category 'drawing') ----- rectangle: aRect ^self apiRectangle: self with: aRect left with: aRect top with: aRect right with: aRect bottom! ----- Method: Win32HDC>>roundRectangle:width:height: (in category 'drawing') ----- roundRectangle: aRect width: width height: height ^ self apiRoundRect: self with: aRect left with: aRect top with: aRect right with: aRect bottom with: width with: height! ----- Method: Win32HDC>>selectObject: (in category 'drawing') ----- selectObject: aHGDIOBJ ^self apiSelectObject: self with: aHGDIOBJ! Win32Handle subclass: #Win32HGDIObj instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Win32-Examples'! Win32HGDIObj subclass: #Win32HBrush instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Win32-Examples'! ----- Method: Win32HBrush class>>apiCreateHatchBrush:with: (in category 'api calls') ----- apiCreateHatchBrush: aStyle with: colorref "Creates a logical brush that has the specified hatch pattern and color" <apicall: Win32HBrush 'CreateHatchBrush' (long ulong) module: 'gdi32.dll'> ^ self externalCallFailed! ----- Method: Win32HBrush class>>backwardDiagonalWithColor: (in category 'hatch brushes') ----- backwardDiagonalWithColor: aColor "45-degree downward left-to-right hatch brush" ^ self createHatchBrush: 3 color: aColor! ----- Method: Win32HBrush class>>createHatchBrush:color: (in category 'instance creation') ----- createHatchBrush: aStyle color: aColor "Creates an instance of the receiver that has the specified hatch pattern and color" ^ self apiCreateHatchBrush: aStyle with: aColor asColorref! ----- Method: Win32HBrush class>>createSolidBrush: (in category 'instance creation') ----- createSolidBrush: aCOLORREF <apicall: Win32HBrush 'CreateSolidBrush' (ulong) module: 'gdi32.dll'> ^self externalCallFailed! ----- Method: Win32HBrush class>>crossWithColor: (in category 'hatch brushes') ----- crossWithColor: aColor "Horizontal and vertical crosshatch brush" ^ self createHatchBrush: 4 color: aColor! ----- Method: Win32HBrush class>>diagonalCrossWithColor: (in category 'hatch brushes') ----- diagonalCrossWithColor: aColor "45-degree crosshatch brush" ^ self createHatchBrush: 5 color: aColor! ----- Method: Win32HBrush class>>forwardDiagonalWithColor: (in category 'hatch brushes') ----- forwardDiagonalWithColor: aColor "45-degree upward left-to-right hatch brush" ^ self createHatchBrush: 2 color: aColor! ----- Method: Win32HBrush class>>horizontalWithColor: (in category 'hatch brushes') ----- horizontalWithColor: aColor "Horizontal hatch brush" ^ self createHatchBrush: 0 color: aColor! ----- Method: Win32HBrush class>>verticalWithColor: (in category 'hatch brushes') ----- verticalWithColor: aColor "Horizontal hatch brush" ^ self createHatchBrush: 1 color: aColor ! ----- Method: Win32HGDIObj>>apiDeleteObject: (in category 'api calls') ----- apiDeleteObject: aHGDIOBJ <apicall: bool 'DeleteObject' (Win32HGDIObj) module: 'gdi32.dll'> ^self externalCallFailed! ----- Method: Win32HGDIObj>>delete (in category 'initialize-release') ----- delete self apiDeleteObject: self! ----- Method: Win32Handle class>>fields (in category 'accessing') ----- fields "Win32Handle defineFields" "The following really means typedef void* Win32Handle; " ^#(nil 'ulong') "an opaque 32bit handle"! Win32Handle subclass: #Win32Window instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Win32-Examples'! !Win32Window commentStamp: '<historical>' prior: 0! Here's a simple Win32 example: | hwnd dc dst | hwnd _ Win32Window getFocus. "fetch the window currently having the focus" dc _ hwnd getDC. "grab the dc or the window" dst _ 100. dc moveTo: 0@0. "draw a rect" dc lineTo: dst@0. dc lineTo: dst@dst. dc lineTo: 0@dst. dc lineTo: 0@0. "and a cross" dc lineTo: dst@dst. dc moveTo: dst@0. dc lineTo: 0@dst. hwnd releaseDC: dc.! ----- Method: Win32Window class>>coloredEllipses (in category 'examples') ----- coloredEllipses "Win32Window coloredEllipses" "Draw a bunch of ellipses" | rnd pt1 pt2 w h colors newBrush oldBrush | colors := Color colorNames collect:[:cName| (Color perform: cName)]. "convert to COLORREF" colors := colors collect:[:c| (c red * 255) asInteger + ((c green * 255) asInteger << 8) + ((c blue * 255) asInteger << 16)]. rnd := Random new. w := Display width. h := Display height. self getFocus getHDCDuring:[:hDC| [Sensor anyButtonPressed] whileFalse:[ newBrush := Win32HBrush createSolidBrush: colors atRandom. oldBrush := hDC selectObject: newBrush. pt1 := (rnd next * w) asInteger @ (rnd next * h) asInteger. pt2 := (rnd next * w) asInteger @ (rnd next * h) asInteger. hDC ellipse: (Rectangle encompassing: (Array with: pt1 with: pt2)). hDC selectObject: oldBrush. newBrush delete. ]. ]. Display forceToScreen.! ----- Method: Win32Window class>>coloredRectangles (in category 'examples') ----- coloredRectangles "Win32Window coloredRectangles" "Draw a bunch of ellipses" | rnd pt1 pt2 w h colors newBrush oldBrush n nPixels time r | colors := Color colorNames collect:[:cName| (Color perform: cName)]. "convert to COLORREF" colors := colors collect:[:c| (c red * 255) asInteger + ((c green * 255) asInteger << 8) + ((c blue * 255) asInteger << 16)]. rnd := Random new. w := Display width. h := Display height. self getFocus getHDCDuring:[:hDC| n := 0. nPixels := 0. time := Time millisecondClockValue. [Sensor anyButtonPressed] whileFalse:[ newBrush := Win32HBrush createSolidBrush: colors atRandom. oldBrush := hDC selectObject: newBrush. pt1 := (rnd next * w) asInteger @ (rnd next * h) asInteger. pt2 := (rnd next * w) asInteger @ (rnd next * h) asInteger. hDC rectangle: (r := Rectangle encompassing: (Array with: pt1 with: pt2)). hDC selectObject: oldBrush. newBrush delete. n := n + 1. nPixels := nPixels + ((r right - r left) * (r bottom - r top)). (n \\ 100) = 0 ifTrue:[ 'Pixel fillRate: ', (nPixels * 1000 // (Time millisecondClockValue - time)) asStringWithCommas displayAt: 0@0]. ]. ]. Display forceToScreen.! ----- Method: Win32Window class>>getDesktopWindow (in category 'accessing') ----- getDesktopWindow "Return the HWND describing the desktop" <apicall: Win32Window 'GetDesktopWindow' (void) module: 'user32.dll'> ^self externalCallFailed! ----- Method: Win32Window class>>getFocus (in category 'accessing') ----- getFocus "Return the HWND currently having the input focus" <apicall: Win32Window 'GetFocus' (void) module: 'user32.dll'> ^self externalCallFailed! ----- Method: Win32Window class>>getMainWindowText: (in category 'examples') ----- getMainWindowText: aString "Returns the window text of the main window" self new getWindowText: Win32Window getFocus ! ----- Method: Win32Window class>>getWindowLong:index: (in category 'private') ----- getWindowLong: hwnd index: index "Retrieves information about the specified window." <apicall: Win32Window 'GetWindowLongA' (long long) module: 'user32.dll'> ^self externalCallFailed! ----- Method: Win32Window class>>getWindowStyle (in category 'private') ----- getWindowStyle "Returns the window style for the focus window" ^self getWindowLong: self getFocus index: GWL_STYLE ! ----- Method: Win32Window class>>setMainWindowText: (in category 'examples') ----- setMainWindowText: aString "Sets the window text of the main window" self new apiSetWindowText: Win32Window getFocus text: aString! ----- Method: Win32Window class>>setNonResizable (in category 'private') ----- setNonResizable " self setNonResizable " | newStyle | newStyle := self getWindowStyle bitClear: ((WS_SIZEBOX bitOr: WS_MINIMIZE) bitOr: WS_MAXIMIZE). self setWindowLong: self getFocus index: GWL_STYLE value: newStyle. ! ----- Method: Win32Window class>>setWindowLong:index:value: (in category 'private') ----- setWindowLong: hwnd index: index value: value "Sets information about the specified window." <apicall: Win32Window 'SetWindowLongA' (long long long) module: 'user32.dll'> ^self externalCallFailed! ----- Method: Win32Window class>>win32Draw (in category 'examples') ----- win32Draw "Win32Window win32Draw" "Draw a bunch of lines using the Windows API" | hWnd hDC pt | hWnd := Win32Window getFocus. hDC := hWnd getDC. hDC moveTo: (hWnd screenToClient: Win32Point getCursorPos). [Sensor anyButtonPressed] whileFalse:[ pt := Win32Point getCursorPos. hWnd screenToClient: pt. hDC lineTo: pt. ]. hWnd releaseDC: hDC. Display forceToScreen.! ----- Method: Win32Window>>apiGetDC: (in category 'api calls') ----- apiGetDC: aHWND <apicall: Win32HDC 'GetDC' (Win32Window) module: 'user32.dll'> ^self externalCallFailed! ----- Method: Win32Window>>apiGetParent: (in category 'api calls') ----- apiGetParent: aWindow <apicall: Win32Window 'GetParent' (Win32Window) module: 'user32.dll'> ^self externalCallFailed! ----- Method: Win32Window>>apiGetWindowText:buffer:maxCount: (in category 'api calls') ----- apiGetWindowText: handleWindow buffer: aBuffer maxCount: aNumber <apicall: ulong 'GetWindowTextA' (Win32Window char* long) module: 'user32.dll'> self externalCallFailed! ----- Method: Win32Window>>apiMessageBox:text:title:flags: (in category 'api calls') ----- apiMessageBox: aHWND text: aString title: aTitle flags: flags <apicall: long 'MessageBoxA' (Win32Window char* char* ulong) module:'user32.dll'> ^self externalCallFailed! ----- Method: Win32Window>>apiReleaseDC:with: (in category 'api calls') ----- apiReleaseDC: aHWND with: aHDC <apicall: long 'ReleaseDC' (Win32Window Win32HDC) module: 'user32.dll'> ^self externalCallFailed! ----- Method: Win32Window>>apiScreenToClient:with: (in category 'api calls') ----- apiScreenToClient: aHWND with: aPOINT <apicall: bool 'ScreenToClient' (Win32Window Win32Point*) module: 'user32.dll'> ^self externalCallFailed! ----- Method: Win32Window>>apiSetWindowPosition:insertAfter:x:y:cx:cy:flags: (in category 'api calls') ----- apiSetWindowPosition: handleWindow insertAfter: handleAfterWindow x: x y: y cx: cx cy: cy flags: flags <apicall: bool 'SetWindowPos' (Win32Window Win32Window ulong ulong ulong ulong ulong) module: 'user32.dll'> ^self primitiveFailed ! ----- Method: Win32Window>>apiSetWindowText:text: (in category 'api calls') ----- apiSetWindowText: handleWindow text: aString <apicall: long 'SetWindowTextA' (Win32Window char*) module: 'user32.dll'> ^self externalCallFailed! ----- Method: Win32Window>>getDC (in category 'accessing') ----- getDC "Return the DC associated with the window" ^self apiGetDC: self! ----- Method: Win32Window>>getHDCDuring: (in category 'accessing') ----- getHDCDuring: aBlock "Provide a Win32 HDC during the execution of aBlock" | hDC | hDC := self getDC. [aBlock value: hDC] ensure:[self releaseDC: hDC].! ----- Method: Win32Window>>getParent (in category 'accessing') ----- getParent | wnd | wnd := self apiGetParent: self. ^wnd handle = 0 ifTrue:[nil] ifFalse:[wnd]! ----- Method: Win32Window>>getWindowText: (in category 'api calls') ----- getWindowText: handleWindow "self new getWindowText: Win32Window getFocus" |buffer maxSize | maxSize := 255. buffer := ByteArray new: maxSize. self apiGetWindowText: handleWindow buffer: buffer maxCount: maxSize. ^buffer asString ! ----- Method: Win32Window>>messageBox: (in category 'accessing') ----- messageBox: aString "Win32Window getFocus messageBox:'Hello World'" ^self messageBox: aString title: 'Squeak'! ----- Method: Win32Window>>messageBox:title: (in category 'accessing') ----- messageBox: aString title: aTitle "Win32Window getFocus messageBox:'Hello World' title:'News from Squeak:'" ^self messageBox: aString title: aTitle flags: 0! ----- Method: Win32Window>>messageBox:title:flags: (in category 'accessing') ----- messageBox: aString title: aTitle flags: flags "Win32Window getFocus messageBox:'Are you ready???' title:'News from Squeak:' flags: 3" ^self apiMessageBox: self text: aString title: aTitle flags: flags! ----- Method: Win32Window>>releaseDC: (in category 'accessing') ----- releaseDC: aHDC "Release the given DC" self apiReleaseDC: self with: aHDC! ----- Method: Win32Window>>screenToClient: (in category 'accessing') ----- screenToClient: aPoint self apiScreenToClient: self with: aPoint. ^aPoint! ExternalStructure subclass: #Win32Point instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Win32-Examples'! ----- Method: Win32Point class>>apiGetCursorPos: (in category 'api calls') ----- apiGetCursorPos: pt <apicall: bool 'GetCursorPos' (Win32Point*) module: 'user32.dll'> ^self externalCallFailed! ----- Method: Win32Point class>>fields (in category 'accessing') ----- fields "POINT defineFields" ^#( (x 'long') (y 'long') )! ----- Method: Win32Point class>>getCursorPos (in category 'instance creation') ----- getCursorPos | pt | pt := self new. self apiGetCursorPos: pt. ^pt! ----- Method: Win32Point>>asPoint (in category 'converting') ----- asPoint ^self x @ self y! ----- Method: Win32Point>>x (in category 'accessing') ----- x "This method was automatically generated" ^handle signedLongAt: 1! ----- Method: Win32Point>>x: (in category 'accessing') ----- x: anObject "This method was automatically generated" handle signedLongAt: 1 put: anObject! ----- Method: Win32Point>>y (in category 'accessing') ----- y "This method was automatically generated" ^handle signedLongAt: 5! ----- Method: Win32Point>>y: (in category 'accessing') ----- y: anObject "This method was automatically generated" handle signedLongAt: 5 put: anObject! ExternalStructure subclass: #Win32Rectangle instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Win32-Examples'! ----- Method: Win32Rectangle class>>fields (in category 'accessing') ----- fields "Win32Rectangle defineFields" ^ #(#(#left 'long') #(#top 'long') #(#right 'long') #(#bottom 'long') )! ----- Method: Win32Rectangle class>>fromRectangle: (in category 'instance creation') ----- fromRectangle: rc "returns an instance of the receiver from the given smalltalk rectangle" ^ self new left: rc left top: rc top right: rc right bottom: rc bottom ! ----- Method: Win32Rectangle>>bottom (in category 'accessing') ----- bottom "This method was automatically generated" ^handle signedLongAt: 13! ----- Method: Win32Rectangle>>bottom: (in category 'accessing') ----- bottom: anObject "This method was automatically generated" handle signedLongAt: 13 put: anObject! ----- Method: Win32Rectangle>>left (in category 'accessing') ----- left "This method was automatically generated" ^handle signedLongAt: 1! ----- Method: Win32Rectangle>>left: (in category 'accessing') ----- left: anObject "This method was automatically generated" handle signedLongAt: 1 put: anObject! ----- Method: Win32Rectangle>>left:top:right:bottom: (in category 'accessing') ----- left: left top: top right: right bottom: bottom "sets the coordinates of the receiver" self left: left. self top: top. self right: right. self bottom: bottom ! ----- Method: Win32Rectangle>>right (in category 'accessing') ----- right "This method was automatically generated" ^handle signedLongAt: 9! ----- Method: Win32Rectangle>>right: (in category 'accessing') ----- right: anObject "This method was automatically generated" handle signedLongAt: 9 put: anObject! ----- Method: Win32Rectangle>>top (in category 'accessing') ----- top "This method was automatically generated" ^handle signedLongAt: 5! ----- Method: Win32Rectangle>>top: (in category 'accessing') ----- top: anObject "This method was automatically generated" handle signedLongAt: 5 put: anObject! ExternalObject subclass: #Win32File instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Win32-Examples'! ----- Method: Win32File class>>setReadOnly: (in category 'operations') ----- setReadOnly: fileString "Convenient shorthand." ^ (self new) setReadOnly: fileString! ----- Method: Win32File class>>setReadWrite: (in category 'operations') ----- setReadWrite: fileString "Convenient shorthand" ^ (self new) setReadWrite: fileString! ----- Method: Win32File>>getFileAttributes: (in category 'api calls') ----- getFileAttributes: fileString <apicall: ulong 'GetFileAttributesA' (char*) module: 'Kernel32.dll'> ^ self externalCallFailed! ----- Method: Win32File>>setFileAttributes:lpAttrs: (in category 'api calls') ----- setFileAttributes: fileString lpAttrs: aLong <apicall: ulong 'SetFileAttributesA' (char* ulong) module: 'Kernel32.dll'> ^ self externalCallFailed! ----- Method: Win32File>>setReadOnly: (in category 'operations') ----- setReadOnly: fileString "Set FILE_READ_ONLY (bit 1)" | attrs | attrs := (self getFileAttributes: fileString). attrs < 0 ifTrue: [ self error: 'Cannot get file attributes. System error.' ]. (self setFileAttributes: fileString lpAttrs: (attrs bitOr: 1)) = 0 ifTrue: [ self error: 'Cannot set file attributes. System error.' ].! ----- Method: Win32File>>setReadWrite: (in category 'operations') ----- setReadWrite: fileString "Clear FILE_READ_ONLY (bit 1)" | attrs | attrs := (self getFileAttributes: fileString). attrs < 0 ifTrue: [ self error: 'Cannot get file attributes. System error.' ]. (self setFileAttributes: fileString lpAttrs: (attrs bitClear: 1)) = 0 ifTrue: [ self error: 'Cannot set file attributes. System error.' ].! ExternalObject subclass: #Win32Shell instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Win32-Examples'! !Win32Shell commentStamp: '<historical>' prior: 0! This class wrappes the Windows 32 shell. Try Win32Shell new shellOpen: 'c:\image.bmp' to open a document Win32Shell new shellOpen: 'c:\myprogram.exe' to start an executable Win32Shell new shellExplore: 'c:\' to explore a directory Win32Shell new shellFind: 'c:\' to initiate a search Note that this class is platform specific. ! ----- Method: Win32Shell>>shellExecute:lpOperation:lpFile:lpParameters:lpDirectory:nShowCmd: (in category 'api calls') ----- shellExecute: hwnd lpOperation: opString lpFile: fileString lpParameters: parmString lpDirectory: dirString nShowCmd: anInteger "Opens or prints the specified file, which can be an executable or document file. HINSTANCE ShellExecute( HWND hwnd, // handle to parent window LPCTSTR lpOperation, // pointer to string that specifies operation to perform LPCTSTR lpFile, // pointer to filename or folder name string LPCTSTR lpParameters, // pointer to string that specifies executable-file parameters LPCTSTR lpDirectory, // pointer to string that specifies default directory INT nShowCmd // whether file is shown when opened );" <apicall: long 'ShellExecuteA' (long char* char* char* char* ulong) module:'shell32.dll'>! ----- Method: Win32Shell>>shellExplore: (in category 'operations') ----- shellExplore: aPathString "Explores the folder specified by aPathString" | result | result := self shellExecute: nil lpOperation: 'explore' lpFile: aPathString lpParameters: nil lpDirectory: nil nShowCmd: 1. result <= 32 ifTrue: [self error: 'system error, code:', result]! ----- Method: Win32Shell>>shellFind: (in category 'operations') ----- shellFind: aPathString "Initiates a search starting from the specified directory." | result | result := self shellExecute: nil lpOperation: 'find' lpFile: nil lpParameters: nil lpDirectory: aPathString nShowCmd: 1. result <= 32 ifTrue: [self error: 'system error, code:', result]! ----- Method: Win32Shell>>shellOpen: (in category 'operations') ----- shellOpen: aFileString "Opens the file specified by aFileString. The file can be an executable file, a document file, or a folder." | result fileUrlString | "@@@@ CHECKME - jrd - Hackity, hack, hack, hack. Apparently the Win32 url parser doesn't handle %-encoded colons in file paths properly. So we do the conversion ourselves. I'm not sure if the real problem is that we shouldnt be encoding the colons in the first place." fileUrlString := (aFileString asLowercase beginsWith: 'file:') ifTrue: [(aFileString copyReplaceAll: '%3A' with: ':') copyReplaceAll: '%3a' with: ':' ] ifFalse: [aFileString]. result := self shellExecute: nil lpOperation: 'open' lpFile: fileUrlString lpParameters: nil lpDirectory: nil nShowCmd: 1. result <= 32 ifTrue: [self error: 'system error, code:', result]!

1 0

[Squeak 0007694]: Buggy drawing of text by Pen class under OSX
by Chris Wright 16 Jul '12

16 Jul '12

Hi folks I posted this bug on the Mantis system http://bugs.squeak.org/view.php?id=7694 and Ken Causey helpfully suggested that I might post it here: OSX 10.7.4 Squeak 3.4 update#11860 <http://bugs.squeak.org/view.php?id=11860> Display restoreAfter: [Pen new squareNib: 2; color: Color red; turn: 45; print: 'The owl and the pussycat went to sea in a beautiful pea green boat.' withFont: TextStyle defaultFont] draws text at the correct angle, but the text is patterned same for defaultNib:1 screen shot at http://imgur.com/lK949 any help appreciated! thanks Chris -- A/Prof Chris Wright MBBS, FRACP, FCICM Academic Coordinator, Years III - V Central MBBS Intensive Care Specialist Faculty of Medicine, Nursing and Health Sciences, Monash University Clayton VIC

3 3

Release details - core dump ( was Squeak release process)
by Chris Cunnington 16 Jul '12

16 Jul '12

As I knew nothing about the release process while releasing 4.3, I made a lot of lists on the Squeak Board for other, wiser people to vet. Here are 10 posts shooting details of that process in all directions. If you'd like to collate this material, you have my respect. I'm not mad keen to relive the experience by reading this stuff over and over. All the names are removed, so I hope I'm not exposing the privacy of any of my fellow Board members. Chris Post #1: /source43 needs to be created ReleaseBuilderTrunk class #transferCurrentPackages needs to be executed to populate that repository #prepareNewBuild needs to be executed on an alpha image to produce the final image #prepareNewBuild has several related selectors that I need to update changing 2s to 3s and such. It also points to TheWorldMainDockingBar, where my work really is. I need to make it produce two Workspaces as a result of #prepareNewBuild. The two workspaces contain: what's new in this image; what's the future plan for Squeak. XXX hasn't seen the swatch that I chose, which has been vetted, and approved, and we're going with: http://www.16r.ca/ricepaper.jpg I've been using Form openAsBackground: to put the image in the world. This produces an InfiniteForm. If you take any alpha image and execute InfiniteForm allInstances you will find one, the one Andreas used for 4.1. It's still in there. RBT class #setBackground may need to be jettisoned or World color: InfiniteForm added or something. Contents of Workspace #2: Package Management - This image is currently 16M. If you execute - Smalltalk unloadAllKnownPackages - it will quickly become ~10M - The SqueakCore image is available athttp://ftp.squeak.org/4.3 - A reasonable target for a core image is 5M, so a drop of ~5M from the smallest image is a task before the community - A place to explore where to make reductions is likely the removal/replacement of GUIs - Once we have a smaller core image, we can enact the Andreas Raab memo [1] on how to load code back into the smaller image. This will be based on tests which will clearly delineate the responsibilities of core developers and application developers. [1]http://lists.squeakfoundation.org/pipermail/squeak-dev/2010-May/150658.ht… and Workspace #1: Workspace are Squeak 4.3 - Rice Paper Changes in this release: - better control of socket connection timeouts - blocks and MessageSends are exchangeable in more situations - added support for threaded VMs - rejection of literals with superfluous # at the beginning, like #$a #123 ##foo ##(1 2 3), etc - specify packages either with or without a version-number in Installer - corrected Complex so arcSin and arcCos let (1 arTanh) return inf - extend support for MCConfigurations to regular MCDirectoryRepositorys - full-screen toggle option has been moved out from the menu and onto the bar directly just to the right of the clock for one-click access - TextEditor is event driven; sensor usage is banned from it - ancient behavior of selecting whole text when clicking twice before first, or twice after last character is restored - drag/drop between inspectors; drag a field onto another field to replace the object in it. - Compiler changed to create subclasses of CompiledMethod - updated button for "what to show" on CodeHolder similar to Squeak 3.8 - changes enabling both Yellow and Blue buttons from a two-button mouse in Cog VM - SMxMorphicProject now able to host a SimpleMorphic World - when present, a SMxMorphicProject is made available in the world menu Those are the broad strokes. I figure that after this email my only real job will be to submit changes to ReleaseBuilderTrunk and TheWorldMainDockingBar to the Inbox. I will do that early next week. After that, I figure my duty is discharged. It is to be hoped that we will release the Squeak 4.3 image immediately after the 20th SOB meeting. If there is anything I have missed in the changes to this release list, please add it. Post #2: It's almost perfect, but I'd like to see three changes. The most important is to save the image from a non-Cog VM, otherwise it cannot be opened on Windows (and IIRC on Mac) with the interpreter VM. The other two things are about packaging, so they may be irrelevant (in case this zip file is not the one which will be available for download): - the sources file should not be in the zip - the mac specific files and directories (_MACOSX, ._.DSTORE, etc) also shouldn't be in the zip Post #3: Well, you can delete them on the command line: zip -d /Users/bert/Downloads/Squeak4.3.zip __MACOSX/\* For the release itself, I noticed these issues: - window is too small (784x548). Not even the world menu fits. I'd make it 1024x768 at least. - shouldn't all Welcome Workspaces be open (or at least minimized)? - default change set not empty - Exceptions package is marked dirty - changes file not empty (Smalltalk appendChangesTo: 'SqueakV43.sources') (we didn't do this for 4.2, but it would save 2 MB) - no update map that matches released packages yet Non of these are really showstoppers, but maybe having a decent window size and the workspaces open would be nicer to newcomers? At the very least, the license thing? Post #4: <process> trim names of folder, image and changes ChangeSet allChangeSets: OrderedCollection new Form openAsBackground: Smalltalk appendChangesTo: 'SqueakV43.sources' ReleaseBuilderTrunk prepareNewBuild open shell to delete .DS_Store from folder compress check with Stuffit Archive Manager that there are no artifacts </process> <left undone> pushing changes to ReleaseBuilderTrunk into inbox update map ? </left undone> Post #5: <process> take Squeak4.3gamma-11793.zip update from trunk now 11852 trim names of folder, image and changes pull open to ~1024x768 and save (explore World to check) Form openAsBackground: '/Users/chriscunnington/Desktop/ricepaper.jpg' Smalltalk appendChangesTo: 'SqueakV43.sources' ReleaseBuilderTrunk prepareNewBuild ChangeSet cleanUp: true compress with Zip Files 4 PC </process> <left undone> update map SmalltalkImage unloadAllKnownPackages is broken </left undone> Post #6: I was sort of dancing around it, but yea, the RBTrunk doesn't seem to have a direct control of the screen size in my Mac. I've been doing it by hand and checking it by exploring World. I'lll ensure it's ~800 at 600 <http://lists.squeakfoundation.org/mailman/listinfo/board> or a tad bigger depending on the steadiness of my hand. I'll return the size in #prepareNewBuild to what it was initially. At this point I'd prefer to forego the Etoys code you added this time around and do it by hand. I suppose this means I should upload a change to the Trunk to return things to what they we're. I'm not keen to keep putting things into the trunk just to change them, so I'll hold off on that. As far as I can see, there are only two things left to do: <left undone> update map as per XXX's email, figure out why the sources file is built corrupted (Yea, the AbstractSound>>+ message will throw the warning about corrupted sources.) </left undone> In a pinch I could abandon both and package an image and changes file to work with 41sources. Owing to an email from XXX., it seems I needn't think I've run out of time. That being the case I'll pursue these things today. Post #7: I agree with your reasoning. There is one problem: shrinkage. It starts at800 at 600. <http://lists.squeakfoundation.org/mailman/listinfo/board> And it says that, and has for a long time,800 at 600 <http://lists.squeakfoundation.org/mailman/listinfo/board> in #prepareNewBuild. Then I execute #prepareNewBuild and it shrinks to something like786 at 548. <http://lists.squeakfoundation.org/mailman/listinfo/board> I kid thee not. I figure I'll just drag it back to shape and test it with World extent before saving afterward. FWIW, #prepareNewBuild is always a weird experience on my Mac. My screen resolution changes to something much lower. So everything becomes huge. I save and quit the image and the resolution returns to normal. Odd. Post #8: <process> using Squeak4.3gamma-11860 trim names of folder, image and changes Form openAsBackground: '/Users/chriscunnington/Desktop/ricepaper.jpg' ReleaseBuilderTrunk prepareNewBuild ChangeSet cleanUp: true check the size with World extent; ensure it's800 at 600 <http://lists.squeakfoundation.org/mailman/listinfo/board> compress with Zip Files 4 PC </process> <left undone> Smalltalk appendChangesTo: 'SqueakV43.sources' </left undone> I think this may be the one. I moved the update-the-map task to a post-image-build list of release related tasks. That list is below. The reason is once you do that the image you used is polluted and is not the one to be distributed. That task can happen the second we have a final image to distribute, it seems to me. I moved #appendChangesTo: to the left undone category, where I think it should stay until 4.4. Something is creating a compromised source file. I'm not the one to know why. If anybody wants to add to the Trunk to fix this problem, I'll jump at making another image, because I think the result is cool: new sources file; changes file under 1K (which makes me laugh). As such this packaging has no sources file, as it's assumed we'd use SqueakV41.sources. If this is the one, then please put it in the box, and post a url, so I can announce on Squeak-dev. Thanks, < release related tasks> - update the map - a ftp.squeak.org/4.3 folder - a SqueakCore image at ftp.squeak.org/4.3 - link from squeak.org homepage - announcement on Squeak News, G+ etc. </release related tasks> Post #9: I've updated the map. I took a Squeak4.3gamma-11793 and updated from /squeak43. It took longer than I'd suppose, but it did update from the map. It would be good if somebody could try that as well. And perhaps look athttp://source.squeak.org/squeak43 to see if things look right. On the surface of it, I should be using ReleaseBuilderTrunk>>#transferCurrentPackages, but that did not pan out, so I did it manually in a Workspace. My rant on that is below. If the things I've done recently are in order, then we only need to do two things: upload two zipped files to the 4.3 ftp folder, and change the link on the homepage of squeak.org to the All-In-One application. Thanks, <rant> transferCurrentPackages | trunkRep releaseRep | trunkRep := self trunkRepository. releaseRep := self releaseRepository. MCWorkingCopy allManagers do: [:eachWorkingCopy | eachWorkingCopy ancestors do: [:eachVersionInfo | (releaseRep includesVersionNamed: eachVersionInfo versionName) ifFalse: [releaseRep storeVersion: (trunkRep VERSIONNAMED: eachVersionInfo versionName)]]] This is a nice sorting method. The problem is that it cannot tell the difference between these two things: GraphicsTests-ar.29 GraphicsTests-ar.29.mcz as one is a version name and the next a file name. #transferCurrentPackages winnows a collection of MCWorkingCopy instances down to a collection of MCVersionInfo instances and then down to a list of version names. Just strings. At this point they need '.mcz' appended to them. If not, when you feed them one at a time, #versionNamed: will return nil. Then you try to execute this: releaseRep storeVersion: nil and nothing happens. Insuring the '.mcz' suffix is added produces a collection of MCVersion instances, which can then be fed into #storeVersion:. I followed what #transferCurrentPackages was saying in a Workspace, debugging as I went. </rant> Post #10: I just uploaded the initial 4.4 image. It's 4.3 final without welcome windows and now pointing to trunk for updates. We're back to just one directory for 4.4 and I dropped the "alpha" from the naming convention. This is not only more tidy and neat, it's more precise since it leaves just the update-number as the sole indicator about the image. We will not be troubling ourselves to post any "alpha" images with major known bugs, but if we are really concerned about someone downloading the latest alpha trunk image and slamming it into a mission-critical production app prematurely only because they didn't know it was alpha -- (yeah, right) then we could have a "disclaimer" workspace. But since the disclaimer is already spelled out in the license, even that seems unnecessary.

2 1

Daily Commit Log
by commits＠source.squeak.org 15 Jul '12

15 Jul '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-July/005420.html Name: System-laza.489 Ancestors: System-bf.488 Removed/Changed some of the expressions, that do not work anymore. Closing 7688 =============================================

1 0

No 4.3 version tag in Mantis
by Chris Cunnington 14 Jul '12

14 Jul '12

"Sure there should, but I can't add a new tag nor do I know who (is left who) can." That's an interesting thing for you to take upon yourself to say, Laza. Chris Squeak Oversight Board

3 2

The Trunk: System-laza.489.mcz
by commits＠source.squeak.org 14 Jul '12

14 Jul '12

Alexander Lazarević uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-laza.489.mcz ==================== Summary ==================== Name: System-laza.489 Author: laza Time: 14 July 2012, 11:32:49.813 am UUID: 0bd2f68e-dc17-478d-b73b-b1b94c2583ac Ancestors: System-bf.488 Removed/Changed some of the expressions, that do not work anymore. Closing 7688 =============== Diff against System-bf.488 =============== Item was changed: ----- Method: Utilities class>>standardWorkspaceContents (in category 'support windows') ----- standardWorkspaceContents ^ self class firstCommentAt: #standardWorkspaceContents + "ChangeList browseRecentLog. - "Smalltalk recover: 10000. - ChangeList browseRecentLog. ChangeList browseRecent: 2000. Preferences editAnnotations. Flaps reinstateDefaultFlaps. - Preferences resetCategoryInfo (FileStream oldFileNamed: 'Lives of the Wolves') edit. + (FileStream oldFileNamed: 'tuesdayFixes.cs') fileIn. + ChangeList browseFile: 'myChanges.st'. - (FileStream oldFileNamed: 'tuesdayFixes.cs') fileIn - ChangeList browseFile: 'myChanges.st' + TextStyle default fontAt: 7 put: (StrikeFont new readMacFontHex: 'Cairo 18'). - TextStyle default fontAt: 7 put: (StrikeFont new readMacFontHex: 'Cairo 18') + StandardSystemView doCacheBits. ""restore fast windows mode in mvc"" - StandardSystemView browseAllAccessesTo: 'maximumSize'. - StandardSystemView doCacheBits ""restore fast windows mode in mvc"" Symbol selectorsContaining: 'rsCon'. + SystemNavigation default browseMethodsWhoseNamesContain: 'screen'. - Smalltalk browseMethodsWhoseNamesContain: 'screen'. Browser newOnClass: Utilities. Browser fullOnClass: SystemDictionary. FormView allInstances inspect. StandardSystemView someInstance inspect. + Utilities storeTextWindowContentsToFileNamed: 'TextWindows'. - Utilities storeTextWindowContentsToFileNamed: 'TextWindows' - Utilities reconstructTextWindowsFromFileNamed: 'TextWindows' ScriptingSystem resetStandardPartsBin. - ScheduledControllers screenController openMorphicConstructionWorld. - ScheduledControllers screenController openMorphicWorld. SystemOrganization categoryOfElement: #Controller. ParagraphEditor organization categoryOfElement: #changeEmphasis. Cursor wait showWhile: [Sensor waitButton]. Smalltalk bytesLeft asStringWithCommas. + ByteSymbol instanceCount. - Symbol instanceCount. Time millisecondsToRun: [SystemNavigation default allCallsOn: #asOop]. MessageTally spyOn: [SystemNavigation default allCallsOn: #asOop]. " "Utilities openStandardWorkspace"!

1 0

← Newer
1
...
11
12
13
14
15
16
17
18
19
Older →

Jump to page: