The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Нестандартные окна Tcl\Tk"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [ Отслеживать ]

"Нестандартные окна Tcl\Tk"  +/
Сообщение от Lancelot2M email(ok) on 03-Дек-08, 10:50 
Доброе время суток, товарищи.
Подскажите как делать нестандартные окна в Tcl\Tk (произвольной формы, прозрачные, с различными кнопками управления окном и без оных, и т.п.)? В гугле нарыл, что для этого юзаются дополнительные пакеты, а какие не знаю....
Высказать мнение | Ответить | Правка | Cообщить модератору

Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "Нестандартные окна Tcl\Tk"  +/
Сообщение от mikra on 04-Дек-08, 10:30 
>Доброе время суток, товарищи.
>Подскажите как делать нестандартные окна в Tcl\Tk (произвольной формы, прозрачные, с различными
>кнопками управления окном и без оных, и т.п.)? В гугле нарыл,
>что для этого юзаются дополнительные пакеты, а какие не знаю....

Товарищ!! Пока ты слишком много не нарыл, добрый совет тебе даю. Брось нафег свою затею. Это не винда. Тут декорированием окон занимается оконный менеджер. То что ты напишешь будет на 100% глючить на чужих компах.

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

2. "Нестандартные окна Tcl\Tk"  +/
Сообщение от Lancelot2M email(ok) on 04-Дек-08, 15:15 
>Товарищ!! Пока ты слишком много не нарыл, добрый совет тебе даю. Брось
>нафег свою затею. Это не винда. Тут декорированием окон занимается оконный
>менеджер. То что ты напишешь будет на 100% глючить на чужих
>компах.

А вот и нет... нарыл, что позволительно управлять оконным менеджером из своего скрипта... а менеджеры поддерживают стандарты... и если я сказал не рисовать заголовок окна, то ни один из них и не нарисует его....


Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

3. "Нестандартные окна Tcl\Tk"  +/
Сообщение от mikra on 10-Дек-08, 12:44 
>>Товарищ!! Пока ты слишком много не нарыл, добрый совет тебе даю. Брось
>>нафег свою затею. Это не винда. Тут декорированием окон занимается оконный
>>менеджер. То что ты напишешь будет на 100% глючить на чужих
>>компах.
>
>А вот и нет... нарыл, что позволительно управлять оконным менеджером из своего
>скрипта... а менеджеры поддерживают стандарты... и если я сказал не рисовать
>заголовок окна, то ни один из них и не нарисует его....
>

Возможно.

Я вот ставил недавно xine на compiz... Так xine как раз увлекается декором, рисует свои заголовки, отключает их где-то, вобщем стилизует всячески. Под гномом все эти извраты отображаются нормально, а тут глючит постоянно. То compiz где заголовки лишние подрисует, то кастомные окна не пропадают, убивать приходятся. Причем обычно, с другим софтом, такого не наблюдается.

Это все к чему. Не нужно быть программером чтобы сделать чисто логический вывод. Проблема не в compiz, а в xine. Причем как раз из-за извращений с окошками.
Вероятно автор проги, возлагая на последнюю часть функций оконного менеджера, либо ряд требований ниасилил (я подозреваю, что общий список весьма строг и велик), либо отстал от развития в этой области. Ты рискуешь получить ту же проблему и, соответственно глюки с отображением в некоторых wm, либо во всех wm через какое-то время. Хочешь провести жизнь за поддержкой единожды написанного произведения? Врядли это интересно.

А главное, почему так делать не нужно, это уважение к юзеру. Если я год подбирал себе цвета оформления, искал и рисовал схемы, подгонял сочетания прозрачности, толщин линий и пр, то нафига мне посреди этой моей идилии какой-ньть кастомный попугай? о_О
(совковое "не нравится - не ешь" к уважению не имеет отношения)
Причем и дизайнером ты можешь быть талантливым, и программером отличным, но вероятность не вписаться в чужой мир, в чужой десктоп очень велика.
В довершение напомню виндовый винамп со старым дефолтным скином на разрешении 1024 или 1280. При таких разрешениях обычный размер окна это маловато, а двойной размер делает из плеера монстра шопестец.

Вобщем не нужно лезть куда не нужно :) Сконцентрируйся на функционале проги или брось ее нафиг, если кроме декора она ничем не занимаетя. Предоставь юзеру и его wm самим выбирать как будут выглядеть окошки.

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

4. "Нестандартные окна Tcl\Tk"  +/
Сообщение от Lancelot2M email(ok) on 10-Дек-08, 14:31 
Огромное спасибо за мнение - чёткое и аргументированное...
На самом деле задача у меня достаточно узкая - Start Button под Fluxbox - что-то тяжелее на мой ноут ставить напряжно(ХР будет быстрее Xfce...), а штука удобная. Вот и написал себе эту кнопочку... симпатишно получилося... собсно на масштабность не рассчитываю... а compiz - это зло, которое не соответствует стандартам WM - отсюда и проблемы по отрисовке окон.


Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

5. "Нестандартные окна Tcl\Tk"  +/
Сообщение от angra (ok) on 11-Дек-08, 01:23 
А вы все-таки попробуйте KDE или GNOME, байки про их тяжеловесность и шустрость всяких fluxbox являются очень сильным преувеличением. Для затормозки KDE 3 нужна машина десятилетней давности, неужели у вас такое?
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

6. "Нестандартные окна Tcl\Tk"  +/
Сообщение от Lancelot2M email(ok) on 11-Дек-08, 10:15 
>А вы все-таки попробуйте KDE или GNOME, байки про их тяжеловесность и
>шустрость всяких fluxbox являются очень сильным преувеличением. Для затормозки KDE 3
>нужна машина десятилетней давности, неужели у вас такое?

У меня Intel Celeron-M 1800 Mgz, 256Mb видео, и, соответственно, (1Гб-256Мб) оперативки - естественно всё более тяжёлое попробовал - намного медленнее ХР и загрузка и запуск приложений, только Флакс опередил ХР в загрузке на 10 секунд и даёт комфортную скорость запуска приложений... легче него только IceWM - но он уже умер, не разрабатывается далее... и отстаёт от Флакса по поддержке КДЕ и Гнома.... Увы, ОпенСорц вслед за Виндой начинает требовать компы всё навороченнее... но я знаю, что выполнять офисные операции и играть мультимедь раньше можно было и на втором пеньке...

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

7. "Нестандартные окна Tcl\Tk"  +/
Сообщение от angra (ok) on 14-Дек-08, 10:06 
Ну я даже не знаю что вам сказать. На k6-2_450 128mb_ram s3virge_4mb третий kde работает на ура. Да грузится дольше чем xp, но например фильмы или музыку играет без проблем, в отличии от хрюши. Если же вам нужна писькомерка типа скорости загрузки, то вам к доктору, нормальным людям это фиолетово.
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

8. "Нестандартные окна Tcl\Tk"  +/
Сообщение от Lancelot2M email(ok) on 15-Дек-08, 09:47 
>Ну я даже не знаю что вам сказать. На k6-2_450 128mb_ram s3virge_4mb
>третий kde работает на ура. Да грузится дольше чем xp, но
>например фильмы или музыку играет без проблем, в отличии от хрюши.
>Если же вам нужна писькомерка типа скорости загрузки, то вам к
>доктору, нормальным людям это фиолетово.

Зря хамите, сударь, мне идея опен-сорц фиолетовая, комп должен работать быстро, стабильно и безопасно... плюс развлечения (конфиги настроить и т.п.)... тормоза за идею - не рулез... про мультимедь знаю - но в неё всё не упирается, я хочу быстро - и я это делаю))) КДЕ - слишком тяжело и скучно(для моего компа и меня, соответственно)

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

9. "Нестандартные окна Tcl\Tk"  +/
Сообщение от vic (??) on 15-Дек-08, 15:03 
>>Ну я даже не знаю что вам сказать. На k6-2_450 128mb_ram s3virge_4mb
>>третий kde работает на ура. Да грузится дольше чем xp, но
>>например фильмы или музыку играет без проблем, в отличии от хрюши.
>>Если же вам нужна писькомерка типа скорости загрузки, то вам к
>>доктору, нормальным людям это фиолетово.
>
>Зря хамите, сударь, мне идея опен-сорц фиолетовая, комп должен работать быстро, стабильно
>и безопасно...

как линукс.. ;)

кста, работать быстро != грузится быстро. Да и не надо постоянно перегружать комп, отвыкайте, отвыкайте :)

>КДЕ - слишком тяжело и скучно(для моего компа и меня, соответственно)

поставьте легкий DE и поменьше кофеина себе :)

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

10. "Нестандартные окна Tcl\Tk"  +/
Сообщение от Lancelot2M email(ok) on 15-Дек-08, 15:10 
>как линукс.. ;)
>поставьте легкий DE и поменьше кофеина себе :)

Ну Фряха-то пошустрее Линукса будет... А лёгкий ДЕ - это ближе к теории, ДЕ ныне лёгким не бывает... ГНОМ на Питоне - откуда же скорость взять... или КДЕ на КуТ... даже винда до сих пор без фреймворков может работать... на Си без плюсов - потому и шустро... а ОпенСорц уже не может без надстроек над Xlib... прискорбно...

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

11. "Нестандартные окна Tcl\Tk"  +/
Сообщение от phpcoder email(??) on 15-Дек-08, 15:23 
>ГНОМ на Питоне - откуда же скорость взять...

Гном на питоне? Откуда же такую траву взять? ;)

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

12. "Нестандартные окна Tcl\Tk"  +/
Сообщение от Lancelot2M email(ok) on 15-Дек-08, 15:36 
>>ГНОМ на Питоне - откуда же скорость взять...
>
>Гном на питоне? Откуда же такую траву взять? ;)

В зависимости ГНОМА посмотрите... он юзает виджеты GTK2, но сам он на питоне написанный... и это ДЕ, обеспечивающий интерфейс пользователя... (я про ГНОМ как ДЕ, его встроенный WM, ессно, на сях, но и только...) ДЕ на интерпретаторе... бред от опенсорц... На Тсl+Ттк и то быстрее бы работало...

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

16. "Нестандартные окна Tcl\Tk"  +/
Сообщение от vic (??) on 15-Дек-08, 16:57 
>ДЕ на интерпретаторе... бред от опенсорц...

очередной выпад в никуда =)

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

13. "Нестандартные окна Tcl\Tk"  +/
Сообщение от vic (??) on 15-Дек-08, 15:45 
>>как линукс.. ;)
>>поставьте легкий DE и поменьше кофеина себе :)
>
>Ну Фряха-то пошустрее Линукса будет... А лёгкий ДЕ - это ближе к
>теории, ДЕ ныне лёгким не бывает... ГНОМ на Питоне - откуда
>же скорость взять... или КДЕ на КуТ... даже винда до сих
>пор без фреймворков может работать... на Си без плюсов - потому
>и шустро... а ОпенСорц уже не может без надстроек над Xlib...
>прискорбно...

набор слов

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

14. "Нестандартные окна Tcl\Tk"  +/
Сообщение от Lancelot2M email(ok) on 15-Дек-08, 16:01 
>[оверквотинг удален]
>>>поставьте легкий DE и поменьше кофеина себе :)
>>
>>Ну Фряха-то пошустрее Линукса будет... А лёгкий ДЕ - это ближе к
>>теории, ДЕ ныне лёгким не бывает... ГНОМ на Питоне - откуда
>>же скорость взять... или КДЕ на КуТ... даже винда до сих
>>пор без фреймворков может работать... на Си без плюсов - потому
>>и шустро... а ОпенСорц уже не может без надстроек над Xlib...
>>прискорбно...
>
>набор слов

Ну-ну... только ядро у фряхи на 15% производительнее... к тому же я свою точку зрения не навязываю... тема-то, вообще, Тк-шная...

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

15. "Нестандартные окна Tcl\Tk"  +/
Сообщение от vic (??) on 15-Дек-08, 16:54 
>[оверквотинг удален]
>>>теории, ДЕ ныне лёгким не бывает... ГНОМ на Питоне - откуда
>>>же скорость взять... или КДЕ на КуТ... даже винда до сих
>>>пор без фреймворков может работать... на Си без плюсов - потому
>>>и шустро... а ОпенСорц уже не может без надстроек над Xlib...
>>>прискорбно...
>>
>>набор слов
>
>Ну-ну... только ядро у фряхи на 15% производительнее... к тому же я
>свою точку зрения не навязываю... тема-то, вообще, Тк-шная...

производительность != скорость

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

17. "Нестандартные окна Tcl\Tk"  +/
Сообщение от Totktonada email on 02-Окт-09, 17:56 
А по сабжу никто не ответил? Жаль...
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

18. "Нестандартные окна Tcl\Tk"  +/
Сообщение от Lancelot2M (ok) on 02-Окт-09, 18:29 
>А по сабжу никто не ответил? Жаль...

Я написал эту кнопочку))))

Листинг tcl-скрипта

##!/usr/bin/wish -f

package require Tcl
package require Tk

proc doNotHide {lgeom} {

wm geometry . $lgeom
wm attributes . -topmost 1
wm withdraw .
wm override . 1
update idletasks
wm deiconify .    

}

proc takeGeometry {lW lH lX lY} {

    set s1 "x"
    set s2 "+"
    return $lW$s1$lH$s2$lX$s2$lY

}

proc takeOptions {lKeyWord lStr lNumber lMode} {
        
    set s1 \(
    set s2 \)
    set s3 \{
    set s4 \}
    set s5 \&
    set s6 " "
    set s7 \<
    set s8 \>
    set strName ""
    set strComm ""
    set ImgName ""
    set baseCom "eval exec "
    set nameFlag 0
    set commFlag 0
    set imgFlag 0
    
    set endStr [expr [string length $lStr] - 1]
    set keyLen [expr [expr [string length $lKeyWord] + $lNumber] +1 ]
            
    for {set j $keyLen} {$j <= $endStr} {incr j} {
                
        set strTmp [string index $lStr $j]
        
        if {$strTmp == $s1} { set nameFlag 1 }
        if {$strTmp == $s2} { set nameFlag 2 }
                    
        if {($strTmp != $s1)&&($strTmp != $s2)&&($nameFlag == 1)} {
            
            set strName $strName$strTmp
            
        }    
            
        if {$strTmp == $s3} { set commFlag 1 }
        if {$strTmp == $s4} { set commFlag 2 }            
                
        if {($strTmp != $s3)&&($strTmp != $s4)&&($commFlag == 1)&&($nameFlag == 2)} {
            
            set strComm $strComm$strTmp
            
        }
        
        if {$strTmp == $s7} { set imgFlag 1 }
        if {$strTmp == $s8} { set imgFlag 2 }            
                
        if {($strTmp != $s7)&&($strTmp != $s8)&&($imgFlag == 1)&&($commFlag == 2)} {
            
            set ImgName $ImgName$strTmp
            
        }
            
    }
    
    if {$lMode == "CommandMode"} {
        set strComm $baseCom$s3$strComm$s6$s5$s4
    }
    
    return [list $strName $strComm $ImgName]
    
}


## Определяем рабочий каталог скрипта
if {[file exists "~/.tkStartButton/"] == 0} {
    
    if {[file exists "/usr/local/share/tkStartButton/"] == 0} {

        set optPath ""

    } else {set optPath "/usr/local/share/tkStartButton/"}

} else {set optPath "~/.tkStartButton/"}


## Определяем место положения скрипта
    if {[file exists "/usr/local/bin/tkStartButton.tcl"] == 0} {

        set progPath ""

    } else {set progPath "/usr/local/bin/"}

set progName "tkStartButton.tcl"

## Делаем картинку кнопки
set tkStartButtonImg "tkStartButton.gif"
image create photo startImg -file [file join $optPath$tkStartButtonImg]


## Устанавливаем шрифт по умолчанию
set menuFnt [font create fixedFont  -family Tahoma   -size 9]


## Устанавливаем цвета и прозрачность по умолчанию
set transColor #000000
set windowAlfa 1.0
set menuAlfa 1.0
set menuBgColor #333333
set menuABgColor #000000
set menuTextColor #cccccc
set menuATextColor #cccccc


## Устанавливаем ширину "бордюра" меню
set menuBW 0
set menuABW 0


## Устанавливаем прозрачность кнопки и прозрачный фон
wm attributes . -alpha $windowAlfa -transparent $transColor -transparentcolor $transColor
. configure -bg $transColor -borderwidth 0


##Устанавливаем размер по умолчанию
set bW 65
set bH 35
set bX 0
set bY 0
set geom [takeGeometry $bW $bH $bX $bY]


##Убираем область заголовка в окне, делаем его поверх всех др. окон, устанавливаем размер по умолчанию
wm geometry . $geom
wm attributes . -topmost 1
wm withdraw .
wm override . 1
update idletasks
wm deiconify .

bind . Expose [doNotHide $geom]

## Делаем стартовую кнопку
menubutton .startBtn -direction flush -image startImg -borderwidth 0 -background $transColor -foreground $transColor\
                      -activeforeground $transColor -activebackground $transColor -relief solid
                      
pack .startBtn -side top -fill both -expand true


## Делаем главное меню
menu .startBtn.mMenu -borderwidth $menuBW -background $menuBgColor -foreground $menuTextColor\
                      -activeborderwidth $menuABW -activeforeground $menuATextColor -activebackground $menuABgColor\
                      -relief solid -tearoff 0 -font $menuFnt

wm attributes .startBtn.mMenu -alpha $menuAlfa -transparent $transColor -transparentcolor $transColor


## Присобачиваем меню к кнопке
.startBtn configure -menu .startBtn.mMenu


## Начинаем парсить файлик
set tkStartButtonFl "tkStartButton.cfg"
set filename $optPath$tkStartButtonFl

if [catch {open $filename r} fileid] {

    puts stderr "Cannot open $filename : $fileid"
    destroy .
    
} else {

    seek $fileid 0 start


    ## Устанавливаем начальные значения
    set menuHnd .startBtn.mMenu
    set parentHnd .startBtn.mMenu
    set mainMenu .startBtn.mMenu
    set sMenuCounter 0


    ##Перебираем строки
    while {[gets $fileid str] != -1} {
    
        set sMenuCounter [expr $sMenuCounter + 1]
    
    
        ##Проверяем строку на комментарий
        if {[string index $str 0] == "#"} { continue }
        
    
        ##Проверяем строку на наличие в ней ключевого слова
        set btnW [string first ButtonWidth $str 0]
        set btnH [string first ButtonHeight $str 0]
        set btnX [string first ButtonX $str 0]
        set btnY [string first ButtonY $str 0]
        set trsColr [string first TransparentColor $str 0]
        set winAlf [string first WindowAlfa $str 0]
        set menuAlf [string first MenuAlfa $str 0]
        set menuBG [string first MenuBgColor $str 0]
        set menuABG [string first MenuActiveBgColor $str 0]
        set menuTC [string first MenuTextColor $str 0]
        set menuATC [string first menuActiveTextColor $str 0]
        set menBW [string first MenuBorderWidth $str 0]
        set menABW [string first MenuActiveBorderWidth $str 0]
        set menFnt [string first MenuFont $str 0]
        set smb [string first submenu $str 0]
        set sme [string first end $str 0]
        set spr [string first separator $str 0]
        set exe [string first \exec $str 0]
        set btnres [string first ButtonReset $str 0]
        set btnoff [string first ButtonOFF $str 0]
        

        if {$btnres != -1} {
        
            set optList [takeOptions ButtonReset $str $btnres ""]
            set imgStrName [lindex $optList 2]
            if {$imgStrName != ""} {

                image create photo ImgBtnres -file [file join $optPath$imgStrName]
                $menuHnd add command -label [lindex $optList 0] -image ImgBtnres -compound left -command "eval exec {$progPath$progName}; destroy ."
                
                
            } else {
            
                $menuHnd add command -label [lindex $optList 0] -command "eval exec {$progPath$progName}; destroy ."

            }    
        
        } elseif {$btnoff != -1} {
            
            set optList [takeOptions ButtonOFF $str $btnoff ""]
            set imgStrName [lindex $optList 2]
            if {$imgStrName != ""} {

                image create photo ImgBtnOFF -file [file join $optPath$imgStrName]
                $menuHnd add command -label [lindex $optList 0] -image ImgBtnOFF -compound left -command "destroy ."
                
                
            } else {
            
                $menuHnd add command -label [lindex $optList 0] -command "destroy ."
                
            }    
            
        } elseif {$btnW != -1} {
    
            set bW [lindex [takeOptions ButtonWidth $str $btnW ""] 0]
            set geom [takeGeometry $bW $bH $bX $bY]
            wm geometry . $geom
        
        } elseif {$btnH != -1} {
    
            set bH [lindex [takeOptions ButtonHeight $str $btnH ""] 0]
            set geom [takeGeometry $bW $bH $bX $bY]
            wm geometry . $geom
        
        } elseif {$btnX != -1} {
    
            set bX [lindex [takeOptions ButtonX $str $btnX ""] 0]
            set geom [takeGeometry $bW $bH $bX $bY]
            wm geometry . $geom
        
        } elseif {$btnY != -1} {
    
            set bY [lindex [takeOptions ButtonY $str $btnY ""] 0]
            set geom [takeGeometry $bW $bH $bX $bY]
            wm geometry . $geom
        
        } elseif {$trsColr != -1} {
    
            set transColor [lindex [takeOptions TransparentColor $str $trsColr ""] 0]
            wm attributes . -transparent $transColor
            wm attributes .startBtn.mMenu -transparent $transColor
        . configure -bg $transColor
        
        } elseif {$winAlf != -1} {
    
            set windowAlfa [lindex [takeOptions WindowAlfa $str $winAlf ""] 0]
            wm attributes . -alpha $windowAlfa
        
        } elseif {$menuAlf != -1} {
    
            set menuAlfa [lindex [takeOptions MenuAlfa $str $menuAlf ""] 0]
            wm attributes .startBtn.mMenu -alpha $menuAlfa
        
        } elseif {$menuBG != -1} {
    
            set menuBgColor [lindex [takeOptions MenuBgColor $str $menuBG ""] 0]
            .startBtn.mMenu configure -background $menuBgColor
        
        } elseif {$menuABG != -1} {
    
            set menuABgColor [lindex [takeOptions MenuActiveBgColor $str $menuABG ""] 0]
            .startBtn.mMenu configure -activebackground $menuABgColor
        
        } elseif {$menuTC != -1} {
    
            set menuTextColor [lindex [takeOptions MenuTextColor $str $menuTC ""] 0]
            .startBtn.mMenu configure -foreground $menuTextColor
        
        } elseif {$menuATC != -1} {
    
            set menuATextColor [lindex [takeOptions menuActiveTextColor $str $menuATC ""] 0]
            .startBtn.mMenu configure -activeforeground $menuATextColor
            
        } elseif {$menBW != -1} {
    
            set menuBW [lindex [takeOptions MenuBorderWidth $str $menBW ""] 0]
            .startBtn.mMenu configure -borderwidth $menuBW
        
        } elseif {$menABW != -1} {
    
            set menuABW [lindex [takeOptions MenuActiveBorderWidth $str $menABW ""] 0]
            .startBtn.mMenu configure -activeborderwidth $menuABW
        
        } elseif {$menFnt != -1} {
    
            set optList [takeOptions MenuFont $str $menFnt ""]
            set menuFnt [font create fixedFont$sMenuCounter -family [lindex $optList 0]   -size [lindex $optList 1]]
            .startBtn.mMenu configure -font $menuFnt
        
        } elseif {$smb != -1} {
        
            set menuHnd [menu $parentHnd.sMenu$sMenuCounter -borderwidth $menuBW -background $menuBgColor -foreground $menuTextColor\
                                                             -activeborderwidth $menuABW -activeforeground $menuATextColor -activebackground $menuABgColor\
                                                             -relief solid -tearoff 0 -font $menuFnt]
            wm attributes $menuHnd -alpha $menuAlfa -transparent $transColor -transparentcolor $transColor
            
            set optList [takeOptions submenu $str $smb ""]
            
            set imgStrName [lindex $optList 2]
            if {$imgStrName != ""} {
                
                image create photo Img$sMenuCounter -file [file join $optPath$imgStrName]
                $parentHnd add cascade -label [lindex $optList 0] -image Img$sMenuCounter -compound left -menu $menuHnd
                
            } else {
            
                $parentHnd add cascade -label [lindex $optList 0] -menu $menuHnd
                
            }
            set parentHnd $menuHnd
        
        } elseif {$sme != -1} {
        
            if {[winfo parent $menuHnd] != $mainMenu} {
            
                set menuHnd [winfo parent $menuHnd]
                set parentHnd $menuHnd
            
            } else {
            
                set menuHnd .startBtn.mMenu
                set parentHnd $menuHnd
                
            }
        
        } elseif {$spr != -1} {
        
            $menuHnd add separator
        
        } elseif {$exe != -1} {
        
            set optList [takeOptions \exec $str $exe CommandMode]
            set imgStrName [lindex $optList 2]
            if {$imgStrName != ""} {
            
                image create photo Img$sMenuCounter -file [file join $optPath$imgStrName]
                $menuHnd add command -label [lindex $optList 0] -image Img$sMenuCounter -compound left -command [lindex $optList 1]
                
            } else {
            
                $menuHnd add command -label [lindex $optList 0] -command [lindex $optList 1]
                
            }
        }
    
    }

    close $fileid

#Покажем консоль
console show
}


А это пример конфиг-файла  -  расширенный синтаксис файла меню флакс-бокса (тэги иконок и пр.)

[ButtonWidth]              (65)
[ButtonHeight]            (40)
[ButtonX]                 (0)
[ButtonY]                 (760)
[TransparentColor]        (#000000)
[WindowAlfa]              (1.0)
[MenuAlfa]                (1.0)
[MenuBgColor]             (#333333)
[MenuActiveBgColor]       (#333333)
[MenuTextColor]           (#cccccc)
[menuActiveTextColor]     (#ffffff)
[MenuBorderWidth]         (0)
[MenuActiveBorderWidth]   (0)
[MenuFont]                (Tahoma) {9}

    [exec] (Блокнот) {notepad} <>
    [separator] () {} <>
#   [separator] () {} <>
    [submenu] (Power) {} <>
        [exec] (Выключение) {} <Shutdown.gif>
        [exec] (Перезагрузка) {} <Reboot.gif>
        [exec] (Сон) {} <Hibernate.gif>
    [end]    
    [separator] () {} <>
    [submenu] (Сервис) {} <>
        [ButtonReset] (Перезапустить кнопку) {} <BtnReset.gif>
        [ButtonOFF] (Выключить кнопку) {} <BtnOFF.gif>
    [end]
    [endencoding] () {} <>

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

19. "Нестандартные окна Tcl\Tk"  +/
Сообщение от Totktonada email on 02-Окт-09, 19:52 
А что она делает-то? :-)
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

20. "Нестандартные окна Tcl\Tk"  +/
Сообщение от Lancelot2M (ok) on 02-Окт-09, 20:50 
>А что она делает-то? :-)

Дык читайте выше - это СтартБатон для флаксбокса. Меню флаксбокса непривычно, а если дополнительный десктоп поставить - то либо недоступно, либо мешает... а панель задач у флакса хорошая - темы поддерживает... вот и сделал стартбатон - чтобы и флакс был и панель его и десктоп - и доступ к меню... - и грузилось всё быстро... соответственно требует установки tcl/tk.

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру