VPF::X11::FullScreen - Форум программистов

ctax

Дата 7.11.2006, 17:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 1.11.2006

Репутация: нет
Всего: нет

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

DiverD

Дата 8.11.2006, 10:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 225
Регистрация: 14.9.2005
Где: Белорусь

Репутация: нет
Всего: 2

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

Это сообщение отредактировал(а) DiverD - 8.11.2006, 10:46

--------------------

[ FreeBSD & pERL p0WER eVERY dAY ]

chaos

Дата 8.11.2006, 11:44 (ссылка)

(нет голосов)

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44

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

ctax

Дата 8.11.2006, 12:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 1.11.2006

Репутация: нет
Всего: нет

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

Ramirez

Дата 4.12.2006, 05:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 18.1.2005
Где: Moscow, ExUSSR

Репутация: нет
Всего: 5

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

Код


#!/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-.../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 );

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: GUI \| Следующая тема »