#--
-# $Id: part.rb 22 2005-04-02 22:29:50Z tilman $
+# $Id: part.rb 25 2005-04-14 19:42:06Z tilman $
#
# Copyright (c) 2005 Tilman Sauerbeck (tilman at code-monkey de)
#
include Comparable
- attr_reader :collection, :id, :name, :dragable, :clip
- attr_accessor :mouse_events, :repeat_events
+ attr_reader :collection, :id, :name, :dragable, :clip,
+ :mouse_events, :repeat_events
def initialize(collection, id, name)
@collection = collection
@id <=> b.id
end
+ def mouse_events=(val)
+ @mouse_events = (val == true)
+ end
+
+ def repeat_events=(val)
+ @repeat_events = (val == true)
+ end
+
def clip=(part)
if part == self
raise(ArgumentError, "cannot clip part to itself")
end
class Description
- attr_reader :rel, :aspect, :step
- attr_accessor :visible, :aspect_preference, :color_class
+ attr_reader :rel, :aspect, :step, :visible, :color_class
+ attr_accessor :aspect_preference
def initialize(name = "default", value = 0.0)
@name = name.to_str.dup.freeze
@color_class = ""
end
+ def visible=(v)
+ @visible = (v == true)
+ end
+
+ def color_class=(v)
+ @color_class = v.to_str.dup
+ end
+
def set_step(x = 0, y = 0)
@step = [x, y]
end
end
class ImageDescription < Description
- attr_reader :image, :auto_rel, :tweens
+ attr_reader :image, :auto_rel, :tweens, :border_fill_middle
def initialize(name = "default", value = 0.0)
super
end
class TextDescription < Description
- attr_reader :font
- attr_accessor :text, :font_size, :text_class
+ attr_reader :font, :text, :font_size, :text_class
def initialize(name = "default", value = 0.0)
super
@text_id_text_source = -1
end
+ def text=(v)
+ @text = v.to_str.dup
+ end
+
+ def font_size=(v)
+ @font_size = v.to_int
+ end
+
+ def text_class=(v)
+ @text_class = v.to_str.dup
+ end
+
def set_fit(x = false, y = false)
@fit = [x, y]
end