Rebol 编程/ctx-viewtop
< Rebol 编程
CTX-VIEWTOP 是一个有价值的对象
init-desktop-files function! [/local paths path files] default-icon image! size: 48x48 reblet-icon image! size: 48x48 folder-icon image! size: 48x48 dtw-open logic! true dtw-top object! [type offset size span pane text color image effec... dtw-b1 object! [type offset size span pane text color image effec... dtw-sid object! [type offset size span pane text color image effec... dtw-mid object! [type offset size span pane text color image effec... dtw-b2 object! [type offset size span pane text color image effec... dtw-bot object! [type offset size span pane text color image effec... dtw-face object! [type offset size span pane text color image effec... dtm-logo object! [type offset size span pane text color image effec... dtm-services object! [type offset size span pane text color image effec... dtm-face object! [type offset size span pane text color image effec... dts-proto object! [type offset size span pane text color image effec... dts-face object! [type offset size span pane text color image effec... dti-stat object! [type offset size span pane text color image effec... dti-info object! [type offset size span pane text color image effec... dti-face object! [type offset size span pane text color image effec... dtp-progress object! [type offset size span pane text color image effec... dtp-status object! [type offset size span pane text color image effec... dtp-what object! [type offset size span pane text color image effec... dtp-face object! [type offset size span pane text color image effec... dte-name object! [type offset size span pane text color image effec... dte-server none! none dte-status object! [type offset size span pane text color image effec... dte-comps object! [type offset size span pane text color image effec... dte-msg object! [type offset size span pane text color image effec... dte-header-txt string! "Welcome to REBOL/View 2.7.8" dte-face object! [type offset size span pane text color image effec... dtf-icons object! [type offset size span pane text color image effec... dtf-back object! [type offset size span pane text color image effec... dtf-path object! [type offset size span pane text color image effec... dtf-slide object! [type offset size span pane text color image effec... dtf-face object! [type offset size span pane text color image effec... dtg-path object! [type offset size span pane text color image effec... dtg-face object! [type offset size span pane text color image effec... dtc-icon object! [type offset size span pane text color image effec... dtc-face object! [type offset size span pane text color image effec... detect-dtw function! [] make-bkg function! [full-size /local user-fx usr-img simple-face] reskin-dtw function! [skin] resize-dtw function! [/local size] iconize-dtw function! [] windowize-dtw function! [] toggle-dtw function! [] show-status function! [str] show-main-status function! [str] tell function! [str] teller function! [str arg] show-welcome function! [] show-id function! [str] show-progress function! [length count /no-status] hide-progress function! [] show-icons function! [] show-path function! [str /local tmp] scroll-icons function! [value /local slid-y] page-icons function! [y] pro-features block! length: 10 show-modules function! [/local product] this-path none! none folder-stack block! length: 0 show-folder function! [folder /local path] back-folder function! [] show-bookmarks function! [folder /local path xy] show-services function! [file /local path services f x] full-path function! [file] reload-folder function! [] explore-dir function! [path] show-folder-options function! [/local r] icon-space integer! 6 dtf-slide-max integer! 64 image-cache block! length: 2 make-icon function! [ico /local icon text-height] load-safe-image function! [ file "Local file or remote URL" /update "Force u... to-icon-path function! [name [word!]] load-desktop-icon function! [file-type /local data url] load-default-icon function! [file /local n] layout-icons function! [icons /local xy maxy] ii-object none! none ii-name object! [type offset size span pane text color image effec... ii-type object! [type offset size span pane text color image effec... ii-item none! none ii-info object! [type offset size span pane text color image effec... ii-size object! [type offset size span pane text color image effec... ii-date object! [type offset size span pane text color image effec... ii-path object! [type offset size span pane text color image effec... ii-image none! none info-styles block! length: 10 ii-lay object! [type offset size span pane text color image effec... view-req function! [lay] show-icon-info function! [v /local file size] hide-icon-info function! [] index-cache block! length: 1 reb-folder object! [title summary updated expires notice image color ... reb-icon object! [type item name color over-color stats info image ... load-index function! [path /local page here] index-file? function! [blk] parse-index function! [spec /local val f i] do-file function! [path stats /local orig] start function! [path /local p file] show-image function! [path /local face] read-binary function! [url info] load-binary function! [url fresh] do-local function! [/local files] halt-view function! [] map-suffix function! [file] goto-url function! [url [url!] /local page script] goto-view function! [/local gt-url gt-list gtface h enter-url urls res... help-view function! [] ctx-prefs-gui block! length: 67 view-prefs function! [] connecting logic! false connect-view function! [/local info] find-site function! [host [string!] /local ip dport n secs] init-desktop function! [/local product] load-file-types function! [/local data]