nostr/more-speech
1
0
Fork 0
mirror of https://github.com/unclebob/more-speech.git synced 2024-09-30 10:30:56 +00:00
Code Issues Packages Projects Releases Wiki Activity

Disable change name and delete menus for :all tab.

Browse Source
This commit is contained in:
Robert C. Martin 2022-07-10 09:41:47 -05:00
parent e341267d6d
commit 96717b9a6b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/more_speech/ui/swing/main_window.clj
View File

@ -52,10 +52,13 @@
(prn 'tab-manu 'isPopupTrigger)
(let [tab-label (.getComponent e)
tab-name (config tab-label :user-data)
isAll? (= :all tab-name)
p (popup :items [(action :name "Change name..."
:handler (partial change-tab-name tab-name))
:handler (partial change-tab-name tab-name)
:enabled? (not isAll?))
(action :name "Delete"
:handler (partial delete-tab tab-name))])]
:handler (partial delete-tab tab-name)
:enabled? (not isAll?))])]
(.show p (to-widget e) (.x (.getPoint e)) (.y (.getPoint e)))))
)