def request(obj)
if @@button == nil
@@button = ImageTheme.new(
"Windows.Button",
DefaultFontGroup,
ThemeImageGroup.new(
$gglroot+"/media/windows/button/button.png",
$gglroot+"/media/windows/button/buttonup.png",
$gglroot+"/media/windows/button/buttondown.png"
)
)
@@textbox = ImageTheme.new(
"Windows.TextBox",
DefaultFontGroup,
ThemeImageGroup.new(
$gglroot+"/media/windows/textbox/textbox.png",
$gglroot+"/media/windows/textbox/textboxup.png",
$gglroot+"/media/windows/textbox/textboxup.png"
)
)
@@label = ImageTheme.new(
"Windows.Label",
DefaultFontGroup,
ThemeImageGroup.new( $gglroot+"/null.png", $gglroot+"/null.png", $gglroot+"/null.png" )
)
@@checkbox = ImageTheme.new(
"Windows.CheckBox.Unchecked",
DefaultFontGroup,
ThemeImageGroup.new(
$gglroot+"/media/windows/checkbox/checkbox.png",
$gglroot+"/media/windows/checkbox/checkboxup.png",
$gglroot+"/media/windows/checkbox/checkboxdown.png"
)
)
@@checkboxc = ImageTheme.new(
"Windows.CheckBox.Checked",
DefaultFontGroup,
ThemeImageGroup.new(
$gglroot+"/media/windows/checkbox/checkboxc.png",
$gglroot+"/media/windows/checkbox/checkboxcup.png",
$gglroot+"/media/windows/checkbox/checkboxcdown.png"
)
)
@@radiobtn = ImageTheme.new(
"Windows.RadioButton.Unchecked",
DefaultFontGroup,
ThemeImageGroup.new(
$gglroot+"/media/windows/radio/radiobtn.png",
$gglroot+"/media/windows/radio/radiobtnup.png",
$gglroot+"/media/windows/radio/radiobtndown.png"
)
)
@@radiobtnc = ImageTheme.new(
"Windows.RadioButton.Checked",
DefaultFontGroup,
ThemeImageGroup.new(
$gglroot+"/media/windows/radio/radiobtnc.png",
$gglroot+"/media/windows/radio/radiobtncup.png",
$gglroot+"/media/windows/radio/radiobtncdown.png"
)
)
end
if obj.kind_of?(Button)
return @@button
elsif obj.kind_of?(TextBox)
return @@textbox
elsif obj.kind_of?(Label)
return @@label
elsif obj.kind_of?(CheckBox)
return @@checkbox
elsif obj.kind_of?(CheckBox::CheckedHk)
return @@checkboxc
elsif obj.kind_of?(RadioButton)
return @@radiobtn
elsif obj.kind_of?(RadioButton::CheckedHk)
return @@radiobtnc
end
return self
end