Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
<!DOCTYPE html> <html> <head> <style> .dropbtn { background-color: #4CAF50; color: white; padding: 16px; font-size: 16px; border: none; cursor: pointer; } .dropbtn:hover, .dropbtn:focus { background-color: #3e8e41; } .dropdown { position: relative; display: inline-block; } .dropdown-content { display: none; position: absolute; background-color: #f9f9f9; min-width: 160px; overflow: auto; box-shadow: 0px 8px 16px 0px rgba(0,0,0,0.2); z-index: 1; } .dropdown-content a { color: red; padding: 12px 16px; text-decoration: none; display: block; } .dropdown a:hover {background-color: #f1f1f1} .show {display:block;} </style> </head> <body> <h2>Clickable Dropdown</h2> <p>Click on the button to open the dropdown menu.</p> <div class="dropdown"> <button onclick="myFunction()" class="dropbtn">Dropdown</button> <div id="myDropdown" class="dropdown-content"> <a href="#percent_cover">Percent Cover</a> <a href="#about">About</a> <a href="#contact">Contact</a> </div> </div> <script> /* When the user clicks on the button, toggle between hiding and showing the dropdown content */ function myFunction() { document.getElementById("myDropdown").classList.toggle("show"); } // Close the dropdown if the user clicks outside of it window.onclick = function(event) { if (!event.target.matches('.dropbtn')) { var dropdowns = document.getElementsByClassName("dropdown-content" +); var i; for (i = 0; i < dropdowns.length; i++) { var openDropdown = dropdowns[i]; if (openDropdown.classList.contains('show')) { openDropdown.classList.remove('show'); } } } } </script> </body> </html>
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: incorporate HTML coding in a Perl program
by marto (Cardinal) on Apr 21, 2017 at 18:41 UTC | |
|
Re: incorporate HTML coding in a Perl program
by NetWallah (Canon) on Apr 21, 2017 at 20:02 UTC | |
|
Re: incorporate HTML coding in a Perl program (updated)
by haukex (Archbishop) on Apr 21, 2017 at 18:59 UTC | |
|
Re: incorporate HTML coding in a Perl program
by Corion (Patriarch) on Apr 21, 2017 at 18:36 UTC |