Efl::Elm::ElmPager class + specs

2 files changed, 39 insertions, 0 deletions

diff --git a/lib/efl/elementary.rb b/lib/efl/elementary.rb
index b97ab50..2cf2a02 100644
--- a/lib/efl/elementary.rb
+++ b/lib/efl/elementary.rb
@@ -64,6 +64,15 @@ module Efl
             end
         end
         #
+        class ElmPager < Efl::Evas::REvasObject
+            #
+            search_prefixes 'elm_pager_'
+            #
+            def initialize parent, &block
+                super Native.method(:elm_pager_add), parent, &block
+            end
+        end
+
     end
 end
 #
diff --git a/spec/elm_spec.rb b/spec/elm_spec.rb
index 54019a5..b5d5140 100644
--- a/spec/elm_spec.rb
+++ b/spec/elm_spec.rb
@@ -129,5 +129,35 @@ describe Efl::Elm do
             @lb.slide_duration.should == 3.1415926
         end
     end
+    describe Efl::Elm::ElmPager do
+        #
+        before(:all) {
+            realize_app
+            @p = Elm::ElmPager.new @win
+            @os = []
+            0.upto(3) do
+                @os << @win.evas.object_rectangle_add
+            end
+        }
+        after(:all) {
+            @p.free
+            @bg.free
+            @win.free
+        }
+        #
+        it "content push pop promote bottom_get top_get" do
+            @os.each do |o|
+                @p.content_push o
+            end
+            @p.content_top_get.should == @os[-1].to_ptr
+            @p.content_bottom_get.should == @os[0].to_ptr
+            @p.content_pop
+            @p.content_top_get.should == @os[-2].to_ptr
+            @p.content_bottom_get.should == @os[0].to_ptr
+            @p.content_promote @os[0]
+            @p.content_top_get.should == @os[0].to_ptr
+            @p.content_bottom_get.should == @os[1].to_ptr
+        end
+    end
 end