Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Hello-world-Graphical/Standard-ML/hello-world-graphical.ml
+++ b/Task/Hello-world-Graphical/Standard-ML/hello-world-graphical.ml
@ -0,0 +1,18 @@
+open XWindows ;
+open Motif ;
+
+val helloWindow = fn () =>
+
+ let
+  val shell = XtAppInitialise    ""    "demo" "top" [] [XmNwidth 400, XmNheight 300 ] ;
+  val main  = XmCreateMainWindow shell "main" [XmNmappedWhenManaged true ] ;
+  val text = XmCreateLabel main "show" [ XmNlabelString "Hello World!"]
+ in
+
+  (
+  XtManageChildren [text];
+  XtManageChild    main;
+  XtRealizeWidget  shell
+  )
+
+end;