Window creation/X11: Difference between revisions

Scala added
m (→‎{{header|Perl 6}}: remove a debugging line)
(Scala added)
Line 256:
 
=={{header|GUISS}}==
 
Graphical User Interface Support Script is really a language for operating a computer, rather than programming one, so we cannot do this via X11 libraries. The example uses leafpad for our open window, and the box symbols to enclose our text:
 
<lang guiss>Start,Programs,Applications,Editors,Leafpad,Textbox,
<lang guiss>
Start,Programs,Applications,Editors,Leafpad,Textbox,
Type:[openbox]Hello World[pling][closebox]</lang>
 
Line 305 ⟶ 303:
 
=={{header|Java}}==
{{libheader|Java}}compile
 
compile
javac WindowExample.java
run
java WindowExample
<lang java>import javax.swing.JFrame;
 
<lang java>
 
import javax.swing.JFrame;
import javax.swing.SwingUtilities;
 
Line 334 ⟶ 327:
frame.setVisible(true);
}
}</lang>The previous example works but doesn't write any text or draw any box; the following does both.<lang java>import java.awt.*;
}
 
</lang>
 
The previous example works but doesn't write any text or draw any box; the following does both.
<lang java>
import java.awt.*;
import java.awt.event.*;
import java.awt.geom.*;
Line 366 ⟶ 353:
f.setVisible(true);
}
}</lang guiss>
}
 
</lang>
 
=={{header|OCaml}}==
Line 675 ⟶ 660:
Using Racket's GUI which is implemented using gtk. It's not low level, but OTOH it works on Windows and OS X too.
 
<lang Racket>#lang racket/gui
#lang racket/gui
 
(define frame (new frame%
Line 688 ⟶ 672:
(send dc set-text-foreground "blue")
(send dc draw-text "Don't Panic!" 0 0))])
(send frame show #t)</lang>
 
</lang>
=={{header|Scala}}==
[[Category:Scala Implementations]]
{{libheader|Scala}}<lang Scala>import scala.swing.{ MainFrame, SimpleSwingApplication }
import scala.swing.Swing.pair2Dimension
 
object WindowExample extends SimpleSwingApplication {
def top = new MainFrame {
title = "Hello!"
centerOnScreen
preferredSize = ((200, 150))
}
}</lang java>
 
=={{header|Tcl}}==
Line 874 ⟶ 870:
{{omit from|Unlambda|No X11 server access.}}
{{omit from|Retro}}
{{omit from|REXX}}
{{omit from|ZX Spectrum Basic|No X11 server access.}}
Anonymous user