当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 2 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : [问题]请教oroborus窗口管理器themes设置脚本的问题及ICEWM菜单问题?
帖子发表于 : 2008-02-12 22:40 
头像

注册: 2007-07-17 22:52
帖子: 661
地址: cn,shandong
送出感谢: 0 次
接收感谢: 0 次
1 网上关于窗口管理器oroborus的帮助信息不多,英文的也很少,中文就更不用说了,其中有个themes的设置工具下载,原来是个脚本,但是按照说明运行却:提示EXEC:3:WISH:NOT FOUND,网上下载网站并没有关于其他需要安装的说明和介绍啊,不知怎样解决,脚本见下面!
2 ICEWM的菜单选项中有些内容并不是改变其MENU文件设定,请问如何全面更改菜单呢??
代码:
#!/bin/sh
# the next line restarts using wish \
exec wish "$0" "$@"
#
#   Paul Millar - OTC 1.2
#   Copyright (C) 2001  Paul Millar
#
#   This program is free software; you can redistribute it and/or modify
#   it under the terms of the GNU General Public License as published by
#   the Free Software Foundation; either version 2 of the License, or
#   (at your option) any later version.
#
#   This program is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with this program; if not, write to the Free Software
#   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
#   dazzlepm@lineone.net
#

# Change this if your theme directory is located elsewhere
set prefix "/usr/share"
set rev 0

wm title . "OTC"
wm resizable . 0 0

#menubutton .mb -text File -menu .mb.menu
#. config -menu .mb -side left
#set m [menu .mb.menu -tearoff true]
#$m add command -label "Install Theme.."
#$m add command -label "About.."
frame .frame1
set theme_list [listbox .frame1.f -background white -selectmode single -width 22 -height 10 -yscrollcommand {.frame1.yscroll set}]
scrollbar .frame1.yscroll -command {.frame1.f yview} -orient vertical
frame .frame3
button .frame3.apply -text "TRY" -command try
button .frame3.quit -text "OK" -command ok
button .frame3.cancel -text "CANCEL" -command cancel
#pack .mb -side top
pack .frame1  -side top -fill both
pack .frame1.f -side left -fill both
pack .frame1.yscroll -side right -fill both
pack .frame3 -side bottom -fill both
pack .frame3.apply .frame3.quit .frame3.cancel -side left

set orc [file exists ~/.oroborusrc]
if {$orc<1} {
        set orc1 [file exists $prefix/oroborus/defaults]
                if {$orc1>=1} {
                        set default "defaults"
                } else {
                        set default "oroborusrc"
                }
        file copy -force $prefix/oroborus/$default ~/.oroborusrc
                tk_dialog {.confirm} {Info} {.oroborusrc created in home directory} {info} 0 OK
}

set rc1  [open ~/.oroborusrc r]

if {$rev == 0} {
        while {[gets $rc1 line]>=0} {
                set auto [string match "theme=*" $line]
                        if {$auto>0} {
                                set boolean [string range $line 6 end]
                        }
        }
}

close $rc1

proc click {} {
        global theme_list prefix rc boolean rev
                set rc [open ~/.oroborusrc r]
                foreach back [$theme_list curselection] {
                        set i [$theme_list get $back]
                }
        set theme $i
                set lines [split [read -nonewline $rc] ]
                close $rc
                set lstring [lsearch $lines "theme=*"]
                set lines [lreplace $lines $lstring $lstring]
                if {$rev == 1} {
                        lappend lines "theme=$boolean"
                } else {
                        lappend lines "theme=$prefix/oroborus/themes/$theme"
                }
        set rj [join $lines \n]
                set rc2 [open ~/.oroborusrc w]
                puts $rc2 $rj
                flush stdout
                close $rc2
                set kill1 "-1"
                set wm "oroborus"
                exec killall $kill1 $wm
}

proc dirlist {} {
        global a prefix theme_list 
                $theme_list delete 0 end
                set a [exec ls $prefix/oroborus/themes]
                foreach item $a {
                        $theme_list insert end $item
                }
        $theme_list selection set 0
}

proc try {} {
global rev
set rev 0
click
}

proc ok {} {
click
exit
}

proc cancel {} {
global rev f
set rev 1
click
}

dirlist


页首
 用户资料  
 
2 楼 
 文章标题 :
帖子发表于 : 2008-02-12 22:56 
头像

注册: 2006-10-27 11:14
帖子: 1140
地址: 悉尼
送出感谢: 0 次
接收感谢: 0 次
1:没用过不清楚。
2:搜索huahua的脚本。


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 2 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 4 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译