- Methods: All Methods Documented Methods Hide Methods
- Source: Display Source Hide Source
- Variables: Show Variables Hide Variables
Class ::xowiki::formfield::image_url
::xowiki::formfield::image_url create ... \
[ -border border ] \
[ -border-width border-width ] \
[ -bottom bottom ] \
[ -cssclass cssclass ] \
[ -float (default "left") ] \
[ -height height ] \
[ -href href ] \
[ -left left ] \
[ -margin margin ] \
[ -margin-bottom margin-bottom ] \
[ -margin-left margin-left ] \
[ -margin-right margin-right ] \
[ -margin-top margin-top ] \
[ -padding padding ] \
[ -padding-bottom padding-bottom ] \
[ -padding-left padding-left ] \
[ -padding-right (default "10px") ] \
[ -padding-top padding-top ] \
[ -position position ] \
[ -right right ] \
[ -top top ] \
[ -width width ]
Class Relations
::xotcl::Class create ::xowiki::formfield::image_url \ -superclass ::xowiki::formfield::textMethods (to be applied on instances)
border (setter)
border-width (setter)
bottom (setter)
check=image_check (scripted)
if {$value eq ""} {return 1} set entry_name [:entry_name $value] if {$entry_name eq ""} { :log "--img '$value' does not appear to be an image" # no image? return 0 } set folder_id [${:object} set parent_id] if {[::xo::db::CrClass lookup -name $entry_name -parent_id $folder_id]} { :log "--img entry named $entry_name exists already" # file exists already return 1 } if {[regexp {^file://(.*)$} $value _ path]} { set f [open $path r] fconfigure $f translation binary set img [read $f] close $f } else { ad_try { set request [util::http::get -url $value] set img [expr {[dict exists $request page] ? [dict get $request page] : ""}] } on error {errorMsg} { # cannot transfer image :log "--img cannot obtain image '$value' ($errorMsg)" return 0 } } #:msg "guess mime_type of $entry_name = [::xowiki::guesstype $entry_name]" ::xo::write_tmp_file import_file $img set file_object [::xowiki::File new -destroy_on_cleanup -title $entry_name -name $entry_name -parent_id $folder_id -mime_type [::xowiki::guesstype $entry_name] -package_id [${:object} package_id] -creation_user [::xo::cc user_id] ] $file_object set import_file $import_file $file_object save_new return 1cssclass (setter)
entry_name (scripted)
set value [string map [list %2e .] $value] if {![regexp -nocase {/([^/]+)[.](gif|jpg|jpeg|png)} $value _ name ext]} { return "" } return file:$name.$extfloat (setter)
height (setter)
href (setter)
initialize (scripted)
next if {${:help_text} eq ""} { set :help_text "#xowiki.formfield-image_url-help_text#" }left (setter)
margin (setter)
margin-bottom (setter)
margin-left (setter)
margin-right (setter)
margin-top (setter)
padding (setter)
padding-bottom (setter)
padding-left (setter)
padding-right (setter)
padding-top (setter)
position (setter)
pretty_value (scripted)
set entry_name [:entry_name $v] return [:pretty_image -parent_id [${:object} parent_id] $entry_name]right (setter)
top (setter)
validator (setter)
width (setter)
Variables
::xowiki::formfield::image_url set __default_metaclass ::xotcl::Class ::xowiki::formfield::image_url set __default_superclass ::xotcl::Object
- Methods: All Methods Documented Methods Hide Methods
- Source: Display Source Hide Source
- Variables: Show Variables Hide Variables