Couple of patches to make the new display of contents from the /Docum…

…entation folder work better..
Dyalog · Sep 24, 2015 · 3915ee3 · 3915ee3
1 parent 572b394
commit 3915ee3
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/MS3/Styles/sampleStyles.css b/MS3/Styles/sampleStyles.css
@@ -6,7 +6,7 @@ body {
 	margin-top: 0px;
 }
 #wrapper {
-	width: 960px;
+	width: 990px;
 	margin: 10px auto;
 }
 .bodyblock {
@@ -82,7 +82,7 @@ a.nav:hover {
 	padding: 10px;
 	color: white;
 	border-radius: 0px 0px 15px 15px;
-	width: 940px;
+	width: 970px;
 	font-size: .6em;
 }
 #footertext {

diff --git a/MS3/index.dyalog b/MS3/index.dyalog
@@ -505,11 +505,13 @@
 
           control←'grebmorKnetroM' ⍝ really hope that doesn't find anything!
           :If '/Doc'≡4↑url
-              r←'#ControlDesc'Replace('width=750 height=850 data="',url,'.pdf"')Add _.object
+              r←'#ControlDesc'Replace('width=740 height=900 data="',url,'.pdf"')Add _.object
               r,←'#SampleDesc'Replace''
               r,←'#PopLink'Replace''
+              r,←'#DocLink'Replace''
               r,←'#SampleSource'Replace''
               r,←'#SampleFrame'Replace''
+              r,←'#SampleTitle'Replace''
               r,←Execute'$("#SampleFrame").hide();$("#CtlDescs").show();'
               →0
           :Else
@@ -528,6 +530,7 @@
           r,←'#ControlDesc'Replace cd
           (sd←New _.span).Add¨(_.strong'Sample: ')(_.em desc)
           r,←'#SampleDesc'Replace sd
+          r,←Execute'$("#SampleFrame").show();'
       :EndIf
 
       :If 0