@@ -181,15 +181,15 @@ type internal FSharpSourceTestable
181181 lastDependencies.Clear()
182182
183183module internal VSKnownGuids =
184- let StatementCompletionFC = Guid" C1614BB1-734F-4a31-BD42-5AE6275E16D2" // GUID_StatementCompletionFC
185- let TextEditorFontCategory = Guid" A27B4E24-A735-4d1d-B8E7-9716E1E3D8E0" // Guid for the code editor font and color category. GUID_TextEditorFC
184+ let statementCompletionFC = Guid" C1614BB1-734F-4a31-BD42-5AE6275E16D2" // GUID_StatementCompletionFC
185+ let textEditorFontCategory = Guid" A27B4E24-A735-4d1d-B8E7-9716E1E3D8E0" // Guid for the code editor font and color category. GUID_TextEditorFC
186186
187187[<AllowNullLiteralAttribute>]
188188type internal VSFontsAndColorsHelper private ( fontFamily , pointSize , excludedCodeForegroundColorBrush , backgroundBrush ) =
189189static let Compute ( site : System.IServiceProvider ) =
190190 UIThread.MustBeCalledFromUIThread()
191191let vsFontAndColorStorage = site.GetService( typeof< SVsFontAndColorStorage>) :?> IVsFontAndColorStorage
192- vsFontAndColorStorage.OpenCategory( ref VSKnownGuids.TextEditorFontCategory , ( uint32__ FCSTORAGEFLAGS.FCSF_ LOADDEFAULTS) ||| ( uint32__ FCSTORAGEFLAGS.FCSF_ NOAUTOCOLORS) ||| ( uint32__ FCSTORAGEFLAGS.FCSF_ READONLY)) |> ignore
192+ vsFontAndColorStorage.OpenCategory( ref VSKnownGuids.textEditorFontCategory , ( uint32__ FCSTORAGEFLAGS.FCSF_ LOADDEFAULTS) ||| ( uint32__ FCSTORAGEFLAGS.FCSF_ NOAUTOCOLORS) ||| ( uint32__ FCSTORAGEFLAGS.FCSF_ READONLY)) |> ignore
193193let itemInfo : ColorableItemInfo [] = Array.zeroCreate1
194194 vsFontAndColorStorage.GetItem( " Excluded Code" , itemInfo) |> ignore
195195let fgColorInfo = itemInfo.[ 0 ]. crForeground
@@ -202,7 +202,7 @@ type internal VSFontsAndColorsHelper private(fontFamily, pointSize, excludedCode
202202let color = System.Windows.Media.Color.FromArgb( winFormColor.A, winFormColor.R, winFormColor.G, winFormColor.B)
203203let backgroundBrush = new System.Windows.Media.SolidColorBrush( color)
204204 vsFontAndColorStorage.CloseCategory() |> ignore
205- vsFontAndColorStorage.OpenCategory( ref VSKnownGuids.StatementCompletionFC , ( uint32__ FCSTORAGEFLAGS.FCSF_ LOADDEFAULTS) ||| ( uint32__ FCSTORAGEFLAGS.FCSF_ NOAUTOCOLORS) ||| ( uint32__ FCSTORAGEFLAGS.FCSF_ READONLY)) |> ignore
205+ vsFontAndColorStorage.OpenCategory( ref VSKnownGuids.statementCompletionFC , ( uint32__ FCSTORAGEFLAGS.FCSF_ LOADDEFAULTS) ||| ( uint32__ FCSTORAGEFLAGS.FCSF_ NOAUTOCOLORS) ||| ( uint32__ FCSTORAGEFLAGS.FCSF_ READONLY)) |> ignore
206206let fontInfo : FontInfo [] = Array.zeroCreate1
207207 vsFontAndColorStorage.GetFont( null , fontInfo) |> ignore
208208let fontFamily = fontInfo.[ 0 ]. bstrFaceName