Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: GUI > X11::FullScreen

Автор: ctax 7.11.2006, 17:24

X11::FullScreen
Этот модуль позволяет развернуть окошко полностью
и показать картинку, но этого мне недостаточно,
есть ли что-нибудь поразнообразнее для работы в полном экране?
Спасибо.

Автор: DiverD 8.11.2006, 10:36

Может тебе Tk или Gtk (http://www.opennet.ru/docs/RUS/gtk_perl/) подайдет?

Автор: chaos 8.11.2006, 11:44

ctax, что ты понимаешь под словом " поразнообразнее " приминительно к Иксам

Автор: ctax 8.11.2006, 12:01

Чтобы окошко разворачивалось полностью (как в играх, например)
и можно было работать в нем с текстом пикселами и т.п.

Автор: Ramirez 4.12.2006, 05:56

Либо что-то типа

Код


#!/usr/bin/perl -w
use strict;

use Tk;
use Tk::DialogBox;

my $mw = MainWindow->new();
$mw->title("My Window");
$mw->geometry($mw->screenwidth."x".$mw->screenheight);

MainLoop;

Но судя по всему тебе нужен SDL, из под него можно свободно работать с OpenGL, DirectX (правда под WinXP мне не удалось его скомпилировать, если у кого получалось - напишите).
http://search.cpan.org/~dgoehrig/SDL_Perl-2.1.3/lib/SDL/App.pm
http://www.libsdl.org/index.php

Будет что-то вроде:

Код


#!/usr/bin/perl

use SDL::App;
use SDL::Rect;
use SDL::Color;

# создали окно
my $app = SDL::App->new(
    -height => 640,
    -width  => 480,
    -depth  => 16,
    -title  => 'My SDL Program',
    );

# создали прямоугольник
my $rect = SDL::Rect->new(
    -height => 100,
    -width  => 100,
    -x      => 270,
    -y      => 390,
    );

# закрасили прямоугольник
$app->fill( $rect, $color );

# обновили окно
$app->update( $rect );