Browse Source

Fixed build error when compiling F# binding with new F# version.

git-svn-id: svn://svn.sharpdevelop.net/sharpdevelop/trunk@3066 1ccf3a8d-04fe-1044-b7c0-cef0b8235c61
shortcuts
Daniel Grunwald 18 years ago
parent
commit
e3927b4b2c
  1. 6
      src/AddIns/BackendBindings/FSharp/FSharpBinding/Project/Src/project.fs

6
src/AddIns/BackendBindings/FSharp/FSharpBinding/Project/Src/project.fs

@ -196,7 +196,7 @@ type MoveUpFileEvent() = @@ -196,7 +196,7 @@ type MoveUpFileEvent() =
let nodeIndex = parent.Nodes.IndexOf(node)
if nodeIndex > 1 then
parent.Nodes.Remove(node)
parent.Nodes.Insert(nodeIndex -1, node)
parent.Nodes.Insert(nodeIndex - 1, node)
ProjectHelpers.reorderItems parent.Nodes fileNode.Project
| _ -> ()
@ -211,7 +211,7 @@ type MoveDownFileEvent() = @@ -211,7 +211,7 @@ type MoveDownFileEvent() =
let nodeIndex = parent.Nodes.IndexOf(node)
if nodeIndex < parent.Nodes.Count then
parent.Nodes.Remove(node)
parent.Nodes.Insert(nodeIndex +1, node)
parent.Nodes.Insert(nodeIndex + 1, node)
ProjectHelpers.reorderItems parent.Nodes fileNode.Project
| _ -> ()
@ -219,7 +219,7 @@ type MoveDownFileEvent() = @@ -219,7 +219,7 @@ type MoveDownFileEvent() =
type FsOptions() =
inherit AbstractProjectOptionPanel()
override x.LoadPanelContents() =
let this = (type FsOptions)
let this = (typeof<FsOptions>)
let caller = this.Assembly
x.SetupFromXmlStream(caller.GetManifestResourceStream("FSharpBindings.Resources.FsOptions.xfrm"))
x.InitializeHelper()

Loading…
Cancel
Save