💋 🎅🏾 🤼 Tcl में शब्दकोशों का उपयोग करना 🤵🏽 🌍 🌆

अभिवादन, हब्र! % उपयोगकर्ता नाम, आपने शायद एक भाषा के बारे में सुना है जैसे tcl और इसकी चित्रमय टूलकिट tk। भाषा विशेष रूप से लचीली है (मेरी विनम्र राय में)। हालांकि, "क्लाउड" विकास के बारे में लिखने के लिए बहुत समय नहीं है, मैंने एक अद्भुत अशुद्ध भाषा - शब्दकोशों की विशेषताओं में से एक के बारे में एक लघु-लेख / मिनी-पाठ लिखने का फैसला किया है (और मैं उन्हें "टीईसीएल / टीके में प्रैक्टिकल प्रोग्रामिंग" पुस्तक से याद नहीं कर सकता हूं) बस पुराने संस्करण पढ़ें)। इस डेटा प्रकार,% उपयोगकर्ता नाम का सबसे पूर्ण विवरण, आप लिंक पर पा सकते हैं।

सिद्धांत का एक सा - tcl में एक शब्दकोश एक ऐसा डेटा प्रकार है जो आपको पेड़ की शाखा करने की क्षमता के साथ "कुंजी-मूल्य" प्रकार के जटिल आदेशित मूल्यों को संग्रहीत करने की अनुमति देता है। दूसरे शब्दों में, एक कुंजी के लिए (उदाहरण के लिए, रिकॉर्ड आईडी), एक मान नहीं हो सकता है, लेकिन मानों के साथ कई और कुंजी। यह इस तरह दिखता है tcl वाक्य रचना में:

dict set nonUserSettings 0 title "myProgram" dict set nonUserSettings 0 minWidth 800 dict set nonUserSettings 0 minHeight 600 dict set nonUserSettings 0 resizableX 1 dict set nonUserSettings 0 resizableY 1

यह कोड क्या करता है? सब कुछ सरल है - यह एक प्रोग्रामसेटिंग डिक्शनरी बनाता है, जिसमें गुण शीर्षक, मिनीवेट, मिनहाइट, रेजिस्टेबल एक्स, रिसाइबल वाई है। इसके अलावा, शब्दकोश में एलिमेंट आईडी के कारण, हम प्रोग्राम्स की अन्य रूट-विंडो के लिए सेटिंग्स को रगड़ सकते हैं (यदि आपको मल्टी-विंडो करने की योजना है तो इसकी आवश्यकता हो सकती है)
इंटरफ़ेस)।

निम्नलिखित कमांड के माध्यम से शब्दकोश से मूल्य तक पहुंच प्राप्त की जा सकती है:

 dict get <-> <>

आइए हमारे शब्दकोश का उपयोग करके एक Tk विंडो बनाएं। नियमित कोड इस तरह दिखेगा:

 wm title . "myProgram" wm resizable . 1 1 wm minsize . 800 600

हमारा कोड इस तरह दिखेगा:

 wm title . [dict get $nonUserSettings 0 "title"] wm resizable . [dict get $nonUserSettings 0 "resizableX"] [dict get $nonUserSettings 0 "resizableY"] wm minsize . [dict get $nonUserSettings 0 "minWidth"] [dict get $nonUserSettings 0 "minHeight"]

यह हमें क्या देगा? संक्षेप में, शब्दकोश (जैसा कि, वास्तव में, tcl में सभी डेटा) परस्पर हैं। इसलिए पुनर्परिभाषित किया जा सकता है। इस प्रकार, हमें एक विंडो मिलती है जो शब्दकोश से प्राप्त मूल्य को ओवरराइड करते समय बदल जाती है। इस स्थिति में, प्रोग्राम को पुनरारंभ करने की आवश्यकता नहीं है। दूसरे शब्दों में, आपकी GUI सेटिंग्स को गतिशील रूप से उठाया जाएगा। लेकिन, यह सब सूची के माध्यम से आसानी से लागू किया जा सकता है। फिर हमें एक शब्दकोश का उपयोग करने की आवश्यकता क्यों है। ठीक है, सबसे पहले, शब्दकोश का उपयोग करके कार्यक्रम को अधिक पठनीय बनाया जाएगा, इसका डेटा अधिक व्यवस्थित होगा (वास्तव में, आप कोड में किसी प्रकार का डेटाबेस टेबल रखते हैं)। और दूसरे पर ... अब मैं आपको दिखाऊंगा।

मान लीजिए हमें सामान्य शीर्ष मेनू बनाने की आवश्यकता है। एक विजेट की तरह, इसका अपना नाम है, साथ ही आंसू विकल्प भी है। सेटिंग्स को स्टोर करने के लिए, दूसरा बनाएं
शब्दकोश:

 dict set menuBarSettings 0 name mainMenuBar dict set menuBarSettings 0 tearOff 1

तुरंत मेनू बार से ड्रॉप-डाउन मेनू के प्रकार पर डेटा जोड़ें:

 option add *tearOff [dict get $menu-settings 0 "tearOff"]

इसके अलावा, मान लें कि हम उपयोगकर्ता को शीर्ष मेनू को सक्षम और अक्षम करने की क्षमता देना चाहते हैं:

 dict set userSettings 0 menuBar true

लेकिन प्रतिपादन के साथ, चलो थोड़ा समय लेते हैं। संपूर्ण जीयूआई का मैन्युअल रूप से वर्णन करने का कोई मतलब नहीं है, क्योंकि हमारे पास शस्त्रागार में एक बहुत शक्तिशाली उपकरण है - कुंजी और मापदंडों द्वारा शब्दकोश को क्रमबद्ध रूप से क्रमबद्ध करना। मेनू शीर्षक के मेनू के लिए, एक शब्दकोश बनाएं:

 dict set menuBarItems_ZeroLevel 0 name connectionItem dict set menuBarItems_ZeroLevel 0 text_item "Connection" dict set menuBarItems_ZeroLevel 1 name helpItem dict set menuBarItems_ZeroLevel 1 text_item "Help"

अब एक शब्दकोश बनाएं जिसमें मुझे पहले स्तर पर संग्रहीत किया जाएगा (मूल पैरामीटर उस मेनू हेडर की आईडी को निरूपित करेगा, जिसके लिए पहला स्तर बाध्य है):

 dict set menuBarItems_FirstLevel 0 parent 0 dict set menuBarItems_FirstLevel 0 label "Open" dict set menuBarItems_FirstLevel 0 command NONE dict set menuBarItems_FirstLevel 1 parent 0 dict set menuBarItems_FirstLevel 1 label "Editt" dict set menuBarItems_FirstLevel 1 command NONE dict set menuBarItems_FirstLevel 2 parent 0 dict set menuBarItems_FirstLevel 2 label "Exit" dict set menuBarItems_FirstLevel 2 command { exit; } dict set menuBarItems_FirstLevel 3 parent 1 dict set menuBarItems_FirstLevel 3 label "About" dict set menuBarItems_FirstLevel 3 command NONE dict set menuBarItems_FirstLevel 4 parent 1 dict set menuBarItems_FirstLevel 4 label "Help" dict set menuBarItems_FirstLevel 4 command NONE

मैं मेनू के मानक सिंटैक्स का विश्लेषण नहीं करूंगा, आप इसे किसी भी ट्यूटोरियल में देख सकते हैं। बेहतर मेनू "ड्राइंग" एल्गोरिथ्म पर सीधे जाएं:

 #  ,   ""    proc assembleMyMenu {} { # ,       ,             global userSettings global menuBarSettings global menuBarItems_ZeroLevel global menuBarItems_FirstLevel # ,        if {[dict get $userSettings 0 "menuBar"]==true} { # ,  , : #       ( ,       ""      menu .[dict get $menuBarSettings 0 "name"] #          . config -menu .[dict get $menuBarSettings 0 "name"] #   .         dict for {id info} $menuBarItems_ZeroLevel { # info -        . ,   id-      ,     with     : dict with info { #        name  menu-bar-items       menu-settings: menu .[dict get $menuBarSettings 0 "name"].$name #    .[dict get $menuBarSettings 0 "name"] add cascade -label $text_item -menu .[dict get $menuBarSettings 0 "name"].$name #        ,     menu-bar-items_first-level dict for {iter data} $menuBarItems_FirstLevel { dict with data { #      ,   - : if {$id==$parent} { #    -     .[dict get $menuBarSettings 0 "name"].$name add command -label $label -command $command } } } } } } }

हमारे कार्यक्रम का पूरा कोड:

 #Require main packages for work package require Tk # Data for non user settings dict set nonUserSettings 0 title "myPrograms" dict set nonUserSettings 0 minWidth 800 dict set nonUserSettings 0 minHeight 600 dict set nonUserSettings 0 resizableX 1 dict set nonUserSettings 0 resizableY 1 # Data for user settings dict set userSettings 0 menuBar true # Data for biuld menubar dict set menuBarSettings 0 name mainMenuBar dict set menuBarSettings 0 tearOff 1 # Data for 0-level menu dict set menuBarItems_ZeroLevel 0 name connectionItem dict set menuBarItems_ZeroLevel 0 text_item "Connection" dict set menuBarItems_ZeroLevel 1 name helpItem dict set menuBarItems_ZeroLevel 1 text_item "Help" # Data for 1-level menu dict set menuBarItems_FirstLevel 0 parent 0 dict set menuBarItems_FirstLevel 0 label "LogIn" dict set menuBarItems_FirstLevel 0 command NONE dict set menuBarItems_FirstLevel 1 parent 0 dict set menuBarItems_FirstLevel 1 label "LogOut" dict set menuBarItems_FirstLevel 1 command NONE dict set menuBarItems_FirstLevel 2 parent 0 dict set menuBarItems_FirstLevel 2 label "Exit" dict set menuBarItems_FirstLevel 2 command { exit; } dict set menuBarItems_FirstLevel 3 parent 1 dict set menuBarItems_FirstLevel 3 label "About" dict set menuBarItems_FirstLevel 3 command NONE dict set menuBarItems_FirstLevel 4 parent 1 dict set menuBarItems_FirstLevel 4 label "Help" dict set menuBarItems_FirstLevel 4 command NONE # Procedure for builing menu bar proc assembleMyMenu {} { global userSettings global menuBarSettings global menuBarItems_ZeroLevel global menuBarItems_FirstLevel if {[dict get $userSettings 0 "menuBar"]==true} { menu .[dict get $menuBarSettings 0 "name"] . config -menu .[dict get $menuBarSettings 0 "name"] dict for {id info} $menuBarItems_ZeroLevel { dict with info { menu .[dict get $menuBarSettings 0 "name"].$name .[dict get $menuBarSettings 0 "name"] add cascade -label $text_item -menu .[dict get $menuBarSettings 0 "name"].$name dict for {iter data} $menuBarItems_FirstLevel { dict with data { if {$id==$parent} { .[dict get $menuBarSettings 0 "name"].$name add command -label $label -command $command } } } } } } } # Main programm logic # Window Manager main settings wm title . [dict get $nonUserSettings 0 "title"] wm resizable . [dict get $nonUserSettings 0 "resizableX"] [dict get $nonUserSettings 0 "resizableY"] wm minsize . [dict get $nonUserSettings 0 "minWidth"] [dict get $nonUserSettings 0 "minHeight"] option add *tearOff [dict get $menuBarSettings 0 "tearOff"] assembleMyMenu

आशा है कि पाठ / लेख मददगार रहे हैं। नशे की लत tcl / tk कोड में गोता लगाने का आनंद लें!

Tcl में शब्दकोशों का उपयोग करना

More articles: