FreeType fonts scan annoyance on windows

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

FreeType fonts scan annoyance on windows

Igor Stasenko
 
If you're on Windows, a freetype searching fonts everywhere on all
drive letters.
This causes opening annoying 'Insert disk in drive X:' dialog.

guessWindowsFontFolderPath
        "Guess the location of the Windows font folder"
        | possibles |

        possibles := Set new.
        'cdefghijklmnopqrstuvwxyz' do:[:drive |
                #('\windows\fonts' '\winnt\fonts') do:[:path | | d |
                        (d := FileDirectory on: drive asString, ':', path) exists
                                ifTrue:[possibles add: d]]].
        possibles := possibles asSortedCollection: [:a :b | a directoryEntry
creationTime >= b  directoryEntry creationTime].
        possibles ifNotEmpty:[^possibles first pathName].
        ^nil
                       
Here what i found occasionally, when read ReadFile() function
documentation in MSDN:

If you are attempting to read from a floppy drive that does not have a
floppy disk, the system displays a message box that prompts the user
to retry the operation. To prevent the system from displaying this
message box, call the SetErrorMode function with
SEM_NOOPENFILEERRORBOX.

But it will require changing VM to call SetErrorMode() during startup
to prevent these promts from appearing.

--
Best regards,
Igor Stasenko AKA sig.