Author: Anton Gulenko <anton.gule...@googlemail.com>
Branch: storage
Changeset: r958:6e826a50e53c
Date: 2014-07-26 10:26 +0200
http://bitbucket.org/pypy/lang-smalltalk/changeset/6e826a50e53c/

Log:    Commented out instpecting of event input queue in #fetchMoreEvents.

diff --git a/images/Squeak4.5-noBitBlt.changes 
b/images/Squeak4.5-noBitBlt.changes
--- a/images/Squeak4.5-noBitBlt.changes
+++ b/images/Squeak4.5-noBitBlt.changes
@@ -12631,4 +12631,4 @@
 
 1+1!
 
-----QUIT/NOSAVE----{21 July 2014 . 4:33:15 pm} Squeak4.5-noBitBlt.image 
priorSource: 15898877!
\ No newline at end of file
+----QUIT/NOSAVE----{21 July 2014 . 4:33:15 pm} Squeak4.5-noBitBlt.image 
priorSource: 15898877!

----STARTUP----{26 July 2014 . 10:25:02 am} as 
C:\Dev\lang-smalltalk\images\Squeak4.5-noBitBlt.image!

!EventSensor methodsFor: 'private-I/O' stamp: 'ag 7/26/2014 10:25' prior: 
47373772!
fetchMoreEvents
        "Fetch more events from the VM"
        | eventBuffer type |

        "Reset input semaphore so clients can wait for the next events after 
this one."
        inputSemaphore isSignaled
                ifTrue: [ hasInputSemaphore := true.
                        inputSemaphore initSignals ].

        "Remember the last time that I checked for events."
        lastEventPoll := Time millisecondClockValue.

        eventBuffer := Array new: 8.
        [self primGetNextEvent: eventBuffer.
        type := eventBuffer at: 1.
        "type = EventTypeWindow ifTrue: [eventBuffer inspect]."
        type = EventTypeNone]
                whileFalse: [self processEvent: eventBuffer].
! !

----QUIT----{26 July 2014 . 10:25:36 am} Squeak4.5-noBitBlt.image priorSource: 
15898877!
\ No newline at end of file
diff --git a/images/Squeak4.5-noBitBlt.image b/images/Squeak4.5-noBitBlt.image
index 
00843c2c83f9c11e5dcfa3b9927bd415d0a22cd8..09f9fb6fb17051fefa839fb357c4170d285c1c8a
GIT binary patch

[cut]

_______________________________________________
pypy-commit mailing list
pypy-commit@python.org
https://mail.python.org/mailman/listinfo/pypy-commit

Reply via email to