Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk
Modified Files:
Colorpicker.pm Combobox.pm Container.pm Drag.pm Filechooser.pm
Label.pm Main.pm Notebook.pm ScrolledView.pm Table.pm Theme.pm
Widget.pm Window.pm
Added Files:
TextBlock.pm TextView.pm ToplevelWidget.pm
Log Message:
Huge changes.
- todo--
Note: some things are still not complete and some still need testing.
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Colorpicker.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Colorpicker.pm 7 Jun 2006 11:58:33 -0000 1.1
+++ Colorpicker.pm 1 Jul 2006 20:20:22 -0000 1.2
@@ -18,17 +18,37 @@
return Etk::etk_colorpicker_mode_get($self->{WIDGET});
}
+sub ModeSet
+{
+ my $self = shift;
+ my $mode = shift;
+ Etk::etk_colorpicker_mode_set($self->{WIDGET}, $mode);
+}
+
sub ColorSet
{
my $self = shift;
my $color = shift;
- Etk::etk_colorpicker_color_set($self->{WIDGET}, $color);
+ Etk::etk_colorpicker_current_color_set($self->{WIDGET}, $color);
}
sub ColorGet
{
my $self = shift;
- return Etk::etk_colorpicker_color_get($self->{WIDGET});
+ return Etk::etk_colorpicker_current_color_get($self->{WIDGET});
}
+
+package Etk::Colorpicker::Mode;
+
+use constant {
+
+ H => 0,
+ S => 1,
+ V => 2,
+ R => 3,
+ G => 4,
+ B => 5
+
+};
1;
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Combobox.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- Combobox.pm 11 Jun 2006 18:13:53 -0000 1.2
+++ Combobox.pm 1 Jul 2006 20:20:22 -0000 1.3
@@ -192,9 +192,4 @@
Etk::etk_combobox_clear($self->{WIDGET});
}
-sub ItemDataSet
-{
- # TODO
-}
-
1;
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Container.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Container.pm 7 Jun 2006 11:58:33 -0000 1.1
+++ Container.pm 1 Jul 2006 20:20:22 -0000 1.2
@@ -7,6 +7,7 @@
{
my $class = shift;
my $self = $class->SUPER::new();
+ $self->{CHILDREN} = ();
bless($self, $class);
return $self;
}
@@ -17,6 +18,7 @@
# confess "usage: \$container->Add(\$widget)" unless @_ == 1;
my $widget = shift;
Etk::etk_container_add($self->{WIDGET}, $widget->{WIDGET});
+ push @{$self->{CHILDREN}}, $widget;
}
sub Remove
@@ -41,7 +43,8 @@
sub ChildrenGet
{
- # TODO
+ my $self = shift;
+ return @{$self->{CHILDREN}};
}
sub IsChild
@@ -51,16 +54,6 @@
return Etk::etk_container_is_child($self->{WIDGET}, $widget->{WIDGET});
}
-sub ContainerForEach
-{
- # TODO
-}
-
-sub ContainerForEachData
-{
- # TODO
-}
-
sub ChildSpaceFill
{
my $self = shift;
@@ -70,7 +63,8 @@
my $vfill = shift;
my $xalign = shift;
my $yalign = shift;
- # TODO: we need to port Etk_Geometry
+ Etk::etk_container_child_space_fill($child->{WIDGET}, $child_space,
+ $hfill, $vfill, $xalign, $yalign);
}
1;
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Drag.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Drag.pm 7 Jun 2006 11:58:33 -0000 1.1
+++ Drag.pm 1 Jul 2006 20:20:22 -0000 1.2
@@ -15,12 +15,38 @@
sub TypesSet
{
- # TODO
+ my $self = shift;
+ my @types = @_;
+ if (@types > 0)
+ {
+ Etk::etk_drag_types_set($self->{WIDGET}, @types);
+ }
}
sub DataSet
{
# TODO
+}
+
+sub Begin
+{
+ my $self = shift;
+ Etk::etk_drag_begin($self->{WIDGET});
+}
+
+sub ParentWidgetSet
+{
+ my $self = shift;
+ my $widget = shift;
+ Etk::etk_drag_parent_widget_set($self->{WIDGET}, $widget->{WIDGET});
+}
+
+sub ParentWidgetGet
+{
+ my $self = shift;
+ my $widget = Etk::Widget->new();
+ $widget->{WIDGET} = Etk::etk_drag_parent_widget_get($self->{WIDGET});
+ return $widget;
}
1;
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Filechooser.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Filechooser.pm 7 Jun 2006 11:58:33 -0000 1.1
+++ Filechooser.pm 1 Jul 2006 20:20:22 -0000 1.2
@@ -60,7 +60,8 @@
sub SelectedFilesGet
{
- # TODO: pending todo to convert lists to perl lists
+ my $self = shift;
+ return Etk::etk_filechooser_widget_selected_files_get($self->{WIDGET});
}
1;
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Label.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Label.pm 7 Jun 2006 11:58:34 -0000 1.1
+++ Label.pm 1 Jul 2006 20:20:22 -0000 1.2
@@ -37,7 +37,10 @@
sub AlignmentGet
{
my $self = shift;
- Etk::etk_label_alignment_get($self->{WIDGET}, shift, shift);
+ # RETURNS
+ # xalign
+ # yalign
+ return Etk::etk_label_alignment_get($self->{WIDGET});
}
1;
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Main.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Main.pm 7 Jun 2006 11:58:34 -0000 1.1
+++ Main.pm 1 Jul 2006 20:20:22 -0000 1.2
@@ -27,7 +27,11 @@
sub ToplevelWidgetsGet
{
- # TODO
+ return map {
+ my $widget = Etk::ToplevelWidget->new();
+ $widget->{WIDGET} = $_;
+ $_ = $widget;
+ } Etk::etk_main_toplevel_widgets_get();
}
1;
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Notebook.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- Notebook.pm 18 Jun 2006 10:47:42 -0000 1.2
+++ Notebook.pm 1 Jul 2006 20:20:22 -0000 1.3
@@ -54,6 +54,12 @@
return Etk::etk_notebook_num_pages_get($self->{WIDGET});
}
+sub CurrentPageSet
+{
+ my $self = shift;
+ my $page = shift;
+ Etk::etk_notebook_current_page_set($self->{WIDGET}, $page);
+}
sub CurrentPageGet
{
my $self = shift;
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/ScrolledView.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- ScrolledView.pm 11 Jun 2006 08:04:19 -0000 1.1
+++ ScrolledView.pm 1 Jul 2006 20:20:22 -0000 1.2
@@ -3,6 +3,13 @@
use vars qw(@ISA);
require Etk::Widget;
@ISA = ("Etk::Widget");
+
+use constant {
+ PolicyShow => 0,
+ PolicyHide => 1,
+ PolicyAuto => 2
+};
+
sub new
{
my $class = shift;
@@ -33,10 +40,19 @@
sub PolicyGet
{
+ my $self = shift;
+ # RETURNS
+ # hpolicy
+ # vpolicy
+ return Etk::etk_scrolled_view_policy_get($self->{WIDGET});
}
sub PolicySet
{
+ my $self = shift;
+ my $hpolicy = shift;
+ my $vpolicy = shift;
+ Etk::etk_scrolled_view_policy_set($self->{WIDGET}, $hpolicy, $vpolicy);
}
1;
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Table.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Table.pm 7 Jun 2006 11:58:34 -0000 1.1
+++ Table.pm 1 Jul 2006 20:20:22 -0000 1.2
@@ -68,13 +68,13 @@
{
my $self = shift;
my $homogenous = shift;
- Etk::etk_table_homogenous_set($self->{WIDGET}, $homogenous);
+ Etk::etk_table_homogeneous_set($self->{WIDGET}, $homogenous);
}
sub HomogenousGet
{
my $self = shift;
- return Etk::etk_table_homogenous_get($self->{WIDGET});
+ return Etk::etk_table_homogeneous_get($self->{WIDGET});
}
1;
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Theme.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Theme.pm 8 Jun 2006 16:05:27 -0000 1.1
+++ Theme.pm 1 Jul 2006 20:20:22 -0000 1.2
@@ -7,4 +7,33 @@
return Etk::etk_theme_icon_theme_get();
}
+sub IconThemeSet
+{
+ my $theme = shift;
+ return Etk::etk_theme_icon_theme_set($theme);
+}
+
+sub DefaultIconThemeGet
+{
+ return Etk::etk_theme_default_icon_theme_get();
+}
+
+sub WidgetThemeGet
+{
+ return Etk::etk_theme_widget_theme_get();
+}
+
+sub WidgetThemeSet
+{
+ my $theme = shift;
+ return Etk::etk_theme_widget_theme_set($theme);
+}
+
+sub WidgetDefaultThemeGet
+{
+ return Etk::etk_theme_default_widget_theme_get();
+}
+
+Etk::etk_theme_init();
+
1;
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Widget.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- Widget.pm 10 Jun 2006 17:59:30 -0000 1.2
+++ Widget.pm 1 Jul 2006 20:20:22 -0000 1.3
@@ -12,6 +12,60 @@
return $self;
}
+sub Show
+{
+ my $self = shift;
+ Etk::etk_widget_show($self->{WIDGET});
+}
+
+sub ShowAll
+{
+ my $self = shift;
+ Etk::etk_widget_show_all($self->{WIDGET});
+}
+
+sub Hide
+{
+ my $self = shift;
+ Etk::etk_widget_hide($self->{WIDGET});
+}
+
+sub HideAll
+{
+ my $self = shift;
+ Etk::etk_widget_hide_all($self->{WIDGET});
+}
+
+sub isVisible
+{
+ my $self = shift;
+ return Etk::etk_widget_is_visible($self->{WIDGET});
+}
+
+sub VisibilityLockedSet
+{
+ my $self = shift;
+ Etk::etk_widget_visibility_locked_set($self->{WIDGET}, shift);
+}
+
+sub VisibilityLockedGet
+{
+ my $self = shift;
+ return Etk::etk_widget_visibility_locked_get($self->{WIDGET});
+}
+
+sub Raise
+{
+ my $self = shift;
+ Etk::etk_widget_raise($self->{WIDGET});
+}
+
+sub Lower
+{
+ my $self = shift;
+ Etk::etk_widget_lower($self->{WIDGET});
+}
+
sub SizeRequestSet
{
my $self = shift;
@@ -20,10 +74,28 @@
Etk::etk_widget_size_request_set($self->{WIDGET}, $width, $height);
}
-sub ShowAll
+sub Enter
+{
+ my $self = shift;
+ Etk::etk_widget_enter($self->{WIDGET});
+}
+
+sub Leave
+{
+ my $self = shift;
+ Etk::etk_widget_leave($self->{WIDGET});
+}
+
+sub Focus
+{
+ my $self = shift;
+ Etk::etk_widget_focus($self->{WIDGET});
+}
+
+sub Unfocus
{
my $self = shift;
- Etk::etk_widget_show_all($self->{WIDGET}) if ($self->{WIDGET});
+ Etk::etk_widget_unfocus($self->{WIDGET});
}
sub PassMouseEventsSet
@@ -32,5 +104,93 @@
Etk::etk_widget_pass_mouse_events_set($self->{WIDGET}, shift);
}
+sub DndDestSet
+{
+ my $self = shift;
+ my $on = shift;
+ Etk::etk_widget_dnd_dest_set($self->{WIDGET}, $on);
+}
+
+sub DndDestGet
+{
+ my $self = shift;
+ return Etk::etk_widget_dnd_dest_get($self->{WIDGET});
+}
+
+sub DndDestWidgetsGet
+{
+ return map {
+ my $widget = Etk::Widget->new();
+ $widget->{WIDGET} = $_;
+ $_ = $widget;
+ } Etk::etk_widget_dnd_dest_widgets_get();
+
+}
+
+sub DndSourceSet
+{
+ my $self = shift;
+ my $on = shift;
+ Etk::etk_widget_dnd_source_set($self->{WIDGET}, $on);
+}
+
+sub DndSourceGet
+{
+ my $self = shift;
+ return Etk::etk_widget_dnd_source_get($self->{WIDGET});
+}
+
+sub DndDragWidgetSet
+{
+ my $self = shift;
+ my $drag = shift;
+ Etk::etk_widget_dnd_drag_widget_set($self->{WIDGET}, $drag->{WIDGET});
+}
+
+sub DndDragWidgetGet
+{
+ my $self = shift;
+ return Etk::etk_widget_dnd_drag_widget_get($self->{WIDGET});
+}
+
+sub DndDragDataSet
+{
+ # TODO
+}
+
+sub DndFilesGet
+{
+ my $self = shift;
+ return Etk::etk_widget_dnd_files_get($self->{WIDGET});
+}
+
+sub DndTypesSet
+{
+ my $self = shift;
+ my @types = @_;
+ if (@types > 0)
+ {
+ Etk::etk_widget_dnd_types_set($self->{WIDGET}, @types);
+ }
+}
+
+sub DndTypesGet
+{
+ my $self = shift;
+ return Etk::etk_widget_dnd_types_get($self->{WIDGET});
+}
+
+sub DndInternalGet
+{
+ my $self = shift;
+ return Etk::etk_widget_dnd_internal_get($self->{WIDGET});
+}
+
+sub DndInternalSet
+{
+ my $self = shift;
+ my $on = shift;
+ Etk::etk_widget_dnd_internal_set($self->{WIDGET}, $on);
+}
1;
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Window.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- Window.pm 18 Jun 2006 15:29:50 -0000 1.2
+++ Window.pm 1 Jul 2006 20:20:22 -0000 1.3
@@ -38,6 +38,194 @@
return Etk::etk_window_title_get($self->{WIDGET});
}
+sub WMClassSet
+{
+ my $self = shift;
+ my $window_name = shift;
+ my $window_class = shift;
+ Etk::etk_window_wmclass_set($self->{WIDGET}, $window_name, $window_class);
+}
+
+sub Move
+{
+ my $self = shift;
+ Etk::etk_window_move($self->{WIDGET}, shift, shift);
+}
+
+sub Resize
+{
+ my $self = shift;
+ Etk::etk_window_resize($self->{WIDGET}, shift, shift);
+}
+
+sub GeometryGet
+{
+ my $self = shift;
+ return Etk::etk_window_geometry_get($self->{WIDGET});
+}
+
+sub CenterOnWindow
+{
+ my $self = shift;
+ my $window = shift;
+ Etk::etk_window_center_on_window($self->{WIDGET}, $window->{WIDGET});
+}
+
+sub MoveToMouse
+{
+ my $self = shift;
+ Etk::etk_window_move_to_mouse($self->{WIDGET});
+}
+
+sub Iconify
+{
+ my $self = shift;
+ Etk::etk_window_iconify($self->{WIDGET});
+}
+
+sub Deiconify
+{
+ my $self = shift;
+ Etk::etk_window_deiconify($self->{WIDGET});
+}
+
+sub isIconified
+{
+ my $self = shift;
+ return Etk::etk_window_is_iconified($self->{WIDGET});
+}
+
+sub Maximize
+{
+ my $self = shift;
+ Etk::etk_window_maximize($self->{WIDGET});
+}
+
+sub Unmaximize
+{
+ my $self = shift;
+ Etk::etk_window_unmaximize($self->{WIDGET});
+}
+
+sub isMaximized
+{
+ my $self = shift;
+ return Etk::etk_window_is_maximized($self->{WIDGET});
+}
+
+sub Fullscreen
+{
+ my $self = shift;
+ Etk::etk_window_fullscreen($self->{WIDGET});
+}
+
+sub Unfullscreen
+{
+ my $self = shift;
+ Etk::etk_window_unfullscreen($self->{WIDGET});
+}
+
+sub isFullscreen
+{
+ my $self = shift;
+ return Etk::etk_window_is_fullscreen($self->{WIDGET});
+}
+
+sub Stick
+{
+ my $self = shift;
+ Etk::etk_window_stick($self->{WIDGET});
+}
+
+sub Unstick
+{
+ my $self = shift;
+ Etk::etk_window_unstick($self->{WIDGET});
+}
+
+sub isSticky
+{
+ my $self = shift;
+ return Etk::etk_window_is_sticky($self->{WIDGET});
+}
+
+sub Focus
+{
+ my $self = shift;
+ Etk::etk_window_focus($self->{WIDGET});
+}
+
+sub Unfocus
+{
+ my $self = shift;
+ Etk::etk_window_unfocus($self->{WIDGET});
+}
+
+sub isFocused
+{
+ my $self = shift;
+ return Etk::etk_window_is_focused($self->{WIDGET});
+}
+
+sub DecoratedSet
+{
+ my $self = shift;
+ Etk::etk_window_decorated_set($self->{WIDGET}, shift);
+}
+
+sub DecoratedGet
+{
+ my $self = shift;
+ return Etk::etk_window_decorated_get($self->{WIDGET});
+}
+
+sub ShapedSet
+{
+ my $self = shift;
+ Etk::etk_window_shaped_set($self->{WIDGET}, shift);
+}
+
+sub ShapedGet
+{
+ my $self = shift;
+ return Etk::etk_window_shaped_get($self->{WIDGET});
+}
+
+sub SkipTaskbarHintSet
+{
+ my $self = shift;
+ Etk::etk_window_skip_taskbar_hint_set($self->{WIDGET}, shift);
+}
+
+sub SkipTaskbarHintGet
+{
+ my $self = shift;
+ return Etk::etk_window_skip_taskbar_hint_get($self->{WIDGET});
+}
+
+sub SkipPagerHintSet
+{
+ my $self = shift;
+ Etk::etk_window_skip_pager_hint_set($self->{WIDGET}, shift);
+}
+
+sub SkipPagerHintGet
+{
+ my $self = shift;
+ return Etk::etk_window_skip_pager_hint_get($self->{WIDGET});
+}
+
+sub DndAwareSet
+{
+ my $self = shift;
+ Etk::etk_window_dnd_aware_set($self->{WIDGET}, shift);
+}
+
+sub HideOnDelete
+{
+ # TODO
+ # what is this?
+}
+
1;
-__END__
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
