[hReader] use cases

    | h file root source |
    FileHandle cleanHandles.
    root := 'WinInet'. " 'CSApi' 'Twain' 'WinInet' "
    h := MonitoredCSourceFile "open" pathName: root,'.h'.
    h notNil ifTrue: [
        root at: 1 put: root first asUpperCase.
        source := h poolDictionarySourceNamed: root,'Constants'.
        (File newFile: root,'.txt') nextPutAll: source; close.
        h save.
    ].

    | h file root source |
    FileHandle cleanHandles.
    root := 'WinInet'.
    h := CSourceFile "open" pathName: root,'.h'.
    h notNil ifTrue: [
        root at: 1 put: root first asUpperCase.
        source := h poolDictionarySourceNamed: root,'Constants'.
        (File newFile: root,'.txt') nextPutAll: source; close.
        h save.
    ].