Window creation: Difference between revisions

From Rosetta Code
Content added Content deleted
No edit summary
(→‎[[Visual Basic .NET]]: Fixed category link)
Line 253: Line 253:


==[[Visual Basic .NET]]==
==[[Visual Basic .NET]]==
[[Category:Visual Basic]]
[[Category:Visual Basic .NET]]


Framework: [[.NET]]
Using .Net Framework:
Dim newForm as new Form
Dim newForm as new Form

Revision as of 13:33, 6 February 2007

Task
Window creation
You are encouraged to solve this task according to the task description, using any language you may know.
This task has been flagged for clarification. Code on this page in its current state may be flagged incorrect once this task has been clarified. See this page's Talk page for discussion.


C

Standard: ANSI C (AKA C89):

Compiler: GCC 4.0.3

Library: SDL

Compile Command: gcc -lSDL SDL_Window.c -o window


 /*
  *   Opens an 800x600 16bit color window. 
  *   Done here with ANSI C.
  */

 #include <stdio.h>
 #include <stdlib.h>
 #include "SDL/SDL.h"
 
 main(){
 
 SDL_Surface *screen;
 
 if (SDL_Init(SDL_INIT_VIDEO) != 0) {
   fprintf(stderr, "Unable to initialize SDL: %s\n", SDL_GetError());
   return(1);
 }
 atexit(SDL_Quit);
 screen = SDL_SetVideoMode( 800, 600, 16, SDL_SWSURFACE | SDL_HWPALETTE );
 }

C++

Library: Qt 4

Compiler command: qmake -pro; qmake

#include <QApplication>
#include <QMainWindow>

int main(int argc, char *argv[])
{
 QApplication app(argc, argv);
 QMainWindow window;
 window.show();
 return app.exec();
}

Library: Gtk

Compiler command: g++ filename.cc -o test `pkg-config --cflags --libs gtkmm-2.4`

#include <iostream>
#include <gtkmm.h>

int
main( int argc, char* argv[] )
{
 try
 {
  Gtk::Main m( argc, argv ) ;
  Gtk::Window win ;
  m.run( win ) ;
 }
 
 catch( std::exception const & exc )
 {
  std::cout << exc.what() << std::endl ;
  exit( -1 ) ;
 }
 
 exit( 0 ) ;
}

C#

Platform: .NET 1.1 (or higher)

Compiler: Visual C# 2003

Using: System.Windows.Forms.dll

 using System;
 using System.Windows.Forms;
 
 public class Window
 {
   [STAThread]
   static void Main()
   {
     Form newForm = new Form();
     newForm.Text = "It's a new Window!";
     newForm.Show();
   }
 }

Java

Library: Swing

   import javax.swing.JFrame;
   import javax.swing.WindowConstants;
   
   public class SimpleWindow {
   
   	public static void main(String[] args) {
   
   		JFrame window = new JFrame("This is a title!");
   		
   		window.setDefaultCloseOperation(WindowConstants.EXIT_ON_CLOSE);
   		window.setSize(800, 600);
   		window.setVisible(true);
   	}
   
   }

JavaScript

   window.open("webpage.html", "windowname", "width=800,height=600");

mIRC Scripting Language

Interpreter: mIRC

Switches: C = Center Window p = Picture Window d = Desktop Window

alias CreateMyWindow {
 .window -Cp +d @WindowName 600 480
}

Perl

Interpreter: Perl 5.8.8

Using Tk:

 use Tk;
 
 $mw = MainWindow->new();
 MainLoop;

Python

Interpreter: Python 2.4, 2.5

Library: Tkinter

 import tkinter
 
 w = tkinter.Tk()
 w.mainloop()

Library: wxPython

 from wxPython.wx import *
 
 class MyApp(wxApp):
   def OnInit(self):
     frame = wxFrame(NULL, -1, "Hello from wxPython")
     frame.Show(true)
     self.SetTopWindow(frame)
     return true
 
 app = MyApp(0)
 app.MainLoop()

Library:Pythonwin

 import win32ui
 from pywin.mfc.dialog import Dialog
 
 d = Dialog(win32ui.IDD_SIMPLE_INPUT)
 d.CreateWindow()

Library: PyGTK

 import gtk
 
 window = gtk.Window(gtk.WINDOW_TOPLEVEL)
 window.show()
 gtk.main()

Ruby

Interpreter: Ruby 1.8.5

Library: Tk

require 'tk'

window = TkRoot::new()
window::mainloop()

Libarary: GTK:

require 'gtk2'

window = Gtk::Window.new.show
Gtk.main

RapidQ

  create form as qform
     center
     width=500
     height=400
  end create
  form.showModal

Tcl

Loading the "Tk" package is all that is required to get an initial window:

  package require Tk

If you need an additional window:

  toplevel .top


Visual Basic .NET

Framework: .NET

   Dim newForm as new Form
   newForm.Text = "It's a new window"
  
       newForm.Show()