Fixes for tkinter

Author: dbrattli

Build.fs

@@ -38,7 +38,7 @@ Target.create "Test" (fun _ ->
 )
 
 Target.create "Pack" (fun _ ->
-    run dotnet "pack" srcPath
+    run dotnet "pack -c Release" srcPath
 )
 
 Target.create "Format" (fun _ ->

src/Fable.Python.fsproj

@@ -6,7 +6,7 @@
     <Author>Dag Brattli</Author>
     <Copyright>Dag Brattli</Copyright>
     <PackageLicenseFile>LICENSE</PackageLicenseFile>
-    <Version>0.3.0</Version>
+    <Version>0.4.0</Version>
     <WarnOn>3390;$(WarnOn)</WarnOn>
   </PropertyGroup>
   <ItemGroup>

src/stdlib/TkInter.fs

@@ -2,15 +2,36 @@ module Fable.Python.TkInter
 
 open Fable.Core
 
+type Event =
+    abstract member x: int
+    abstract member y: int
+
 type Misc =
-    abstract member title : string with get, set
+    abstract member bind : sequence : string * func: (Event -> unit) -> string option
 
-[<Import("Frame", "tkinter")>]
-type Frame(master: Misc) =
-    do ()
+type Wm =
+    abstract member title : unit -> string
+    abstract member title : ``string``:  string -> unit
 
 [<Import("Tk", "tkinter")>]
-type Tk (name: string) =
+type Tk (screenName: string option) =
+    interface Wm with
+        member _.title(``string``: string) = nativeOnly
+        member _.title() = nativeOnly
+
     interface Misc with
-        member _.title: string = nativeOnly
-        member _.title with set (value: string) = nativeOnly
+        member _.bind(sequence : string, func: (Event -> unit)) = nativeOnly
+
+    new () = Tk (None)
+
+    member _.title(``string``: string) = nativeOnly
+    member _.title() = nativeOnly
+
+    member _.update() = nativeOnly
+
+[<Import("Frame", "tkinter")>]
+type Frame(master: Misc) =
+    [<Emit("Frame($0, width=$1, height=$2, bg=$3)")>]
+    new (root: Tk, width: int, height: int, bg: string) = Frame(root :> Misc)
+
+    member x.bind(sequence : string, func: (Event -> unit)) : string option = nativeOnly