LaurentLaffont / VMMaker

Project infos

License	MIT
Tags
Creation date	2013-07-30
Website

Monticello registrationMCHttpRepository location: 'http://smalltalkhub.com/mc/LaurentLaffont/VMMaker/main' user: '' password: ''

About VMMaker

X11 hacks with Igor

XEventHandler>>suppressVMEventHandlingDuring: aBlock 
    |ptr ptrValue|
    ptr := self nbGetSymbolAddress: 'ioProcessEventsPtr' module: ''.
    ptr ifNil: [ self error: 'VM not good' ].

    ptrValue := ptr nbUInt32AtOffset: 0.
    ptr nbUInt32AtOffset: 0 put: 0.  

    aBlock ensure: [ ptr nbUInt32AtOffset: 0 put: ptrValue ].

then

   [XEventHandler new suppressVMEventHandlingDuring: [ (Delay forSeconds: 10) wait]] fork