Data commit

Task/Window-creation/Standard-ML/window-creation-1.ml

@@ -0,0 +1,20 @@
+open XWindows ;
+open Motif ;
+
+val showWindow = fn () =>
+
+ let
+  val shell = XtAppInitialise    ""    "demo" "top" [] [XmNwidth 400, XmNheight 300 ] ;
+  val main  = XmCreateMainWindow shell "main" [XmNmappedWhenManaged true ] ;
+  val buttn = XmCreateDrawnButton main "stop" [ XmNlabelString "Exit"] ;
+  val quit  = fn (w,c,t) => (XtUnrealizeWidget shell; t) ;
+ in
+
+  (
+  XtSetCallbacks   buttn [ (XmNactivateCallback, quit) ] XmNarmCallback ;
+  XtManageChildren [buttn];
+  XtManageChild    main;
+  XtRealizeWidget  shell
+  )
+
+end;

Task/Window-creation/Standard-ML/window-creation-2.ml

@@ -0,0 +1 @@
+showWindow ()