Perl TK 抽屜式元件

2021-06-01 02:08:43 字數 876 閱讀 3738

**:

#!perl -w

use tk;

$mw = mainwindow->new;

$mw->title( 'tk' );

$frame_l = $mw->frame->pack(qw/-side left -fill both/);

$widget_f = $frame_l->labelframe()->pack(qw/-side top -fill both -expand 1/);

my %section = (

a => [1,2,3],

b => [4,5,6],

c => [7,8,9],

);my (@frames,@button);

for my $sect_name (sort keys %section)

)->pack(qw/-fill x -side top -padx 1 -pady 1/);

for my $par_tmp (@ })

push @frames,$f;

push @button,$b;

}$frame_l->button(

-text => "close",

-relief => 'sunken',

-borderwidth => 1,

-bg => "white",

-fg => "black",

-command => sub ,

)->pack(qw/-side bottom -fill x -padx 1 -pady 2 /);

mainloop;

抽屜式公告 SlidingDrawer過時

slingdingdrawer slidingdrawer影藏的檔案用content屬性,顯示的手柄用handler屬性 重要方法 animateclose 關閉時實現動畫。close 即時關閉 getcontent 獲取內容 ismoving 指示slidingdrawer是否在移動。isopen...

AXURE製作APP抽屜式選單

1.拖乙個dynamic panel到窗體,將state1改名為state 首頁 2.拖2個dynamic panel到state 首頁中,分別命名為側邊選單及首頁內容,首頁內容蓋住側邊選單 3.在首頁內容和側邊選單隨便放點東 西,比如圖 片之類的,再在首頁內容中放置乙個按鈕,然後設定按鈕的點選事件...

說說抽屜式導航 移動產品導航

web端設計很多時候是在考慮如何將操作展示給使用者,而mobile的設計更多的時候則是考慮如何將操作巧妙的隱藏起來。這種隱藏實際上是對核心功能的一種突出。導航始終是產品設計的重頭戲,不管在web端設計還是在mobile的設計中。之前曾經在讀 觸動人心 的時候寫過一篇 移動產品設計之ios導航模式 其...