User Output - graphical

From Rosetta Code

Jump to: navigation, search

Programming Task
This is a programming task. It lays out a problem which Rosetta Code users are encouraged to solve, using languages they know.

Code examples should be formatted along the lines of one of the existing prototypes.
In this User Output task, the goal is to display the string "Goodbye, World!" on a GUI object (alert box, plain window, text area, etc.).

See also: User Output - text

Contents

[edit] ActionScript

trace("Goodbye, World!");

[edit] Ada

Library: GTK+

Library: GtkAda 

 
with Gdk.Event;   use Gdk.Event;
with Gtk.Label;   use Gtk.Label;
with Gtk.Window;  use Gtk.Window;
with Gtk.Widget;  use Gtk.Widget;
 
with Gtk.Handlers;
with Gtk.Main;
 
procedure Windowed_Goodbye_World is
   Window : Gtk_Window;
   Label  : Gtk_Label;
 
   package Handlers is new Gtk.Handlers.Callback (Gtk_Widget_Record);
   package Return_Handlers is
      new Gtk.Handlers.Return_Callback (Gtk_Widget_Record, Boolean);
 
   function Delete_Event (Widget : access Gtk_Widget_Record'Class)
      return Boolean is
   begin
      return False;
   end Delete_Event;
 
   procedure Destroy (Widget : access Gtk_Widget_Record'Class) is
   begin
     Gtk.Main.Main_Quit;
   end Destroy;
 
begin
   Gtk.Main.Init;
   Gtk.Window.Gtk_New (Window);
   Gtk_New (Label, "Goodbye, World!");
   Add (Window, Label);
   Return_Handlers.Connect
   (  Window,
      "delete_event",
      Return_Handlers.To_Marshaller (Delete_Event'Access)
   );
   Handlers.Connect
   (  Window,
      "destroy",
      Handlers.To_Marshaller (Destroy'Access)
   );
   Show_All (Label);
   Show (Window);
 
   Gtk.Main.Main;
end Windowed_Goodbye_World;
 

[edit] AppleScript

display dialog "Goodbye, World!" buttons {"Bye"}

[edit] C

Library: GTK 

#include <gtk/gtk.h>

int main (int argc, char **argv) {
  GtkWidget *window;
  gtk_init(&argc, &argv);

  window = gtk_window_new (GTK_WINDOW_TOPLEVEL);
  gtk_window_set_title (GTK_WINDOW (window), "Goodbye, World");
  g_signal_connect (G_OBJECT (window), "delete-event", gtk_main_quit, NULL);
  gtk_widget_show_all (window);

  gtk_main();
  return 0;
}

Library: Win32

Where hWnd is a valid window handle corresponding to a control in the application 

#include "windows.h"
void SayGoodbyeWorld(HWND hWnd)
{
  SetWindowText(hWwnd, _T("Goodbye, World!"));
}

[edit] C#

Library: GTK

Works with: Mono 

using Gtk;
using GtkSharp;

public class GoodbyeWorld {
  public static void Main(string[] args) {
    Gtk.Window window = new Gtk.Window();
    window.Title = "Goodbye, World";
    window.DeleteEvent += delegate { Application.Quit(); };
    window.ShowAll();
    Application.Run();
  }
}

[edit] C++

Works with: GCC version 3.3.5

Library: GTK 

#include <gtkmm.h>
int main(int argc, char *argv[])
{
   Gtk::Main app(argc, argv);
   Gtk::MessageDialog msg("Goodbye, World!");
   msg.run();
}

Library: Win32

All Win32 APIs work in C++ the same way as they do in C. See the C example.

Library: MFC

Where pWnd is a pointer to a CWnd object corresponding to a valid window in the application. 

#include "afx.h"
void ShowGoodbyeWorld(CWnd* pWnd)
{
    pWnd->SetWindowText(_T("Goodbye, World!"));
}

[edit] Clean

Library: Object I/O 

import StdEnv, StdIO

Start :: *World -> *World
Start world = startIO NDI Void (snd o openDialog undef hello) [] world
where
    hello = Dialog "" (TextControl "Goodbye, World!" []) 
                                     [WindowClose (noLS closeProcess)]

[edit] eC

MessageBox: 

import "ecere"
MessageBox goodBye { contents = "Goodbye, World!" };

Label: 

import "ecere"
Label label { text = "Goodbye, World!", hasClose = true, opacity = 1, size = { 320, 200 } };

Titled Form + Surface Output: 

import "ecere"

class GoodByeForm : Window
{
   text = "Goodbye, World!";
   size = { 320, 200 };
   hasClose = true;

   void OnRedraw(Surface surface)
   {
      surface.WriteTextf(10, 10, "Goodbye, World!");
   }
}

GoodByeForm form {};

[edit] Icon

link graphics
procedure main() 
   WOpen("size=80,20") | stop("No window")
   WWrites("goodbye world")
   WDone()
end

[edit] J

wdinfo'Goodbye, World!'

[edit] Java

Library: Swing 

import javax.swing.*;
public class OutputSwing {
    public static void main(String[] args) throws Exception {
        JOptionPane.showMessageDialog (null, "Goodbye, World!");//alert box
        JFrame window = new JFrame("Goodbye, World!");//text on title bar
    	JTextArea text = new JTextArea();
    	text.setText("Goodbye, World!");//text in editable area
    	JButton button = new JButton("Goodbye, World!");//text on button
 
    	//so the button and text area don't overlap
    	window.setLayout(new FlowLayout());
    	window.add(button);//put the button on first
    	window.add(text);//then the text area
 
    	window.pack();//resize the window so it's as big as it needs to be
 
    	window.setVisible(true);//show it
    	//stop the program when the window is closed
    	window.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
    }
}

[edit] JavaScript

Works with: Firefox version 2.0

This pops up a small dialog, so it might be termed GUI display. 

alert("Goodbye, World!");

[edit] MAXScript

messageBox "Goodbye world"

[edit] Objective-C

To show a modal alert: 

NSAlert *alert = [[[NSAlert alloc] init] autorelease];
[alert setMessageText:@"Goodbye, World!"];
[alert runModal];

[edit] OCaml

Library: GTK 

let delete_event evt = false
 
let destroy () = GMain.Main.quit ()
 
let main () =
  let window = GWindow.window in
  let _ = window#set_title "Goodbye, World" in
  let _ = window#event#connect#delete ~callback:delete_event in
  let _ = window#connect#destroy ~callback:destroy in
  let _ = window#show () in
  GMain.Main.main ()
;;
 
let _ = main () ;;
 

Library: OCaml-Xlib

Library: Tk 

ocaml -I +labltk labltk.cma

Just output as a label in a window: 

let () =
  let main_widget = Tk.openTk () in
  let lbl = Label.create ~text:"Goodbye, World" main_widget in
  Tk.pack [lbl];
  Tk.mainLoop();;

Output as text on a button that exits the current application: 

let () =
  let action () = exit 0 in
  let main_widget = Tk.openTk () in
  let bouton_press =
    Button.create main_widget ~text:"Goodbye, World" ~command:action in
  Tk.pack [bouton_press];
  Tk.mainLoop();;

[edit] Perl

Works with: Perl version 5.8.8

Library: Tk

Just output as a label in a window: 

use Tk;

$main = MainWindow->new;
$main->Label(-text => 'Goodbye, World')->pack;
MainLoop();

Output as text on a button that exits the current application: 

use Tk;

$main = MainWindow->new;
$main->Button(
  -text => 'Goodbye, World',
  -command => \&exit,
)->pack;
MainLoop();

Library: Gtk2 

use Gtk2 '-init';

$window = Gtk2::Window->new;
$window->set_title('Goodbye world');
$window->signal_connect(
  'destroy' => sub { Gtk2->main_quit; }
);

$label = Gtk2::Label->new('Goodbye, world');
$window->add($label);

$window->show_all;
Gtk2->main;

[edit] PHP

Library: PHP-GTK 

if (!class_exists('gtk')) 
{
    die("Please load the php-gtk2 module in your php.ini\r\n");
}

$wnd = new GtkWindow();
$wnd->set_title('Goodbye world');
$wnd->connect_simple('destroy', array('gtk', 'main_quit'));
 
$lblHello = new GtkLabel("Goodbye, World!");
$wnd->add($lblHello);
 
$wnd->show_all();
Gtk::main();

[edit] PostScript

In the geenral Postscript context, the show command will render the string that is topmost on the stack at the currentpoint in the previously setfont. Thus a minimal PostScript file that will print on a PostScript printer or previewer might look like this: 

%!PS
% render in Helvetica, 12pt:
/Helvetica findfont 12 scalefont setfont
% somewhere in the lower left-hand corner:
50 dup moveto
% render text
(Goodbye World) show
% wrap up page display:
showpage

[edit] Python

Works with: Python version 2.5

Library: Tkinter 

 import tkMessageBox
 
 result = tkMessageBox.showinfo("Some Window Label", "Goodbye, World!")

Note: The result is a string of the button that was pressed.

Library: GTK 

import pygtk
pygtk.require('2.0')
import gtk

window = gtk.Window()
window.set_title('Goodbye, World')
window.connect('delete-event', gtk.main_quit)
window.show_all()
gtk.main()

[edit] RapidQ

MessageBox("Goodbye, World!", "RapidQ example", 0)

[edit] Ruby

Library: GTK 

require 'gtk2'

window = Gtk::Window.new
window.title = 'Goodbye, World'
window.signal_connect(:delete-event) { Gtk.main_quit }
window.show_all

Gtk.main

[edit] Smalltalk

MessageBox show: 'Goodbye, world.'

[edit] Tcl

Library: Tk

Just output as a label in a window: 

 pack [label .l -text "Goodbye, World"]

Output as text on a button that exits the current application: 

 pack [button .b -text "Goodbye, World" -command exit]

[edit] Vedit macro language

Displaying the message on status line. The message remains visible until the next keystroke, but macro execution continues. 

Statline_Message("Goodbye, World!")

Displaying a dialog box with the message and default OK button: 

Dialog_Input_1(1,"`Vedit example`,`Goodbye, World!`")

[edit] Visual Basic .NET

Works with: Visual Basic version 2005 

Module GoodbyeWorld
    Sub Main()
        Messagebox.Show("Goodbye, World!")
    End Sub
End Module
Retrieved from "http://www.rosettacode.org/wiki/User_Output_-_graphical"
Personal tools