Back to Questions
1.1k
views5
comments
Unexpected symbol '[<' in binding. Expected incomplete structured construct at or before this point or other token
f#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

#light

namespace Xxu.Admissions.Tools.GpaCalculator

module testForm =
 open System
 open System.Windows.Forms

type XY = {
 x:int
 y:int
}

let button_size = {x=30;y=30}
let margin = {x=10;y=10}
let create_button text c evt = 
 let button = new Button()
 do button.Text <- text       
 do button.Size <- new System.Drawing.Size(button_size.x, button_size.y)
 let buttonClick (e: #IEvent<_>) = e.Add(evt)
 do buttonClick button.Click
 button

let test (form:Form) =
 form.Width <- 22       

let position_button (button:Button) =
 button.Location <- new System.Drawing.Point(0,0)

let handler (value:int) =
 fun _ -> System.Windows.Forms.MessageBox.Show(value.ToString()) |> ignore
 let showForm = 
  let form = new Form()
  do form.Width <- 300
  do form.Height <- 300
  do form.FormBorderStyle <- FormBorderStyle.Fixed3D
  do form.Text <- "GPA Calculator"

  //do test form

  //strangely this code is ok!
  do form.Controls.Add(create_button "1" {x=5;y=5} (handler 1))

  [<STAThread>]
  Application.Run(form)

****************
I don't know why my code given this error in line 44

1

[<STAThread>]

Please help
Chandan

.

You need something to bind the attribute to, a do will do good, try:

1
2
3
4

[<STAThread>]

do Application.Run(form)
By on 10/1/2008 4:20 AM ()

thanks for your reply Torbjorn....

After using 

1
2

[]
do Application.Run(form)

it will given same error...
Thanks

By on 10/1/2008 4:31 AM ()

You need something to bind the attribute to, a do will do good, try:

1
2
3
4

[<stathread>]

do Application.Run(form)

That brings up a good point. Here are some other ways to apply the attribute.

You can apply the attribute to any module level action. So this is valid as mentioned above:

1
2
3
4

let form = new Form()
    
[<STAThread>]
do Application.Run(form)

The do is optional:

1
2
3
4

let form = new Form()
    
[<STAThread>]
Application.Run(form)

You can also apply the STAThread attribute to a class member:

1
2
3
4
5
6

type MyApp() =
    let form = new Form()
    
    [<STAThread>]
    member this.Run() =
        Application.Run(form)

But as I mentioned above, you cannot apply the attribute at the function level. So this is invalid:

1
2
3
4
5

let form = new Form()
    
let run() =
    [<STAThread>]
    Application.Run(form)
By on 10/1/2008 4:31 AM ()

Functions can only have attributes at the Module or Class levels so this is invalid:

1
2
3
4
5
6

let run() =
    let form = new Form()
    
    [<STAThread>]
    let main() =
        Application.Run(form)

But this is valid:

1
2
3
4
5

let form = new Form()
    
[<STAThread>]
let run() =
    Application.Run(form)
By on 10/1/2008 4:20 AM ()

after using 

1
2
3

[<STAThread>]
  let run() = 
   Application.Run(form)

it will still given same error error

By on 10/1/2008 4:29 AM ()

    Topic tags

    IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
    Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy     		Built with WebSharper