okumacro.dtx: width for screen environment (#33)

okumacro.dtx

@@ -11,7 +11,7 @@
 %  $B$F$$$^$9$N$G!$;d$N$b$N$b$=$l$K=`$8$F!J(Bmodified$B!K(BBSD$B$H$9$k$3$H$K$7$^$9!#(B
 %
 %<okumacro>\NeedsTeXFormat{pLaTeX2e}
-%<okumacro>\ProvidesPackage{okumacro}[2016/08/16 okumura, texjporg]
+%<okumacro>\ProvidesPackage{okumacro}[2016/10/08 okumura, texjporg]
 %<*driver>
 \documentclass{jsarticle}
 \usepackage{doc}
@@ -46,6 +46,11 @@
 % $B=8$a$?$b$N$G$9!#:n$C$?$@$1$G%F%9%H$b$7$F$$$J$$$b$N$J$I$b:.$8$C$F$$$k(B
 % $B2DG=@-$,$"$j$^$9!#35$7$FB>$NJ}$K$O$"$^$jMxMQ2ACM$,$J$$$b$N$G$9!#(B
 %
+% [2016-07-30] $B=>Mh$O!$(Bascmac$B"*(Bokumacro$B$N=g$KFI$_9~$s$@>l9g$K%(%i!<$,=P$F(B
+% $B$$$^$7$?$,!$?7$7$$;EMM$G$O!$(Bascmac$B$H(Bokumacro$B$NN>J}$rFI$_9~$`>l9g$K$O(B
+% $B!V8e$KFI$_9~$s$@$[$&!W$,>!$A$^$9!#(B
+% $B6qBNE*$K$O(B |\keytop|$B!$(B|\return|$B!$(Bscreen$B4D6-!$(Bshadebox$B4D6-$,$"$j$^$9!#(B
+%
 % \section{$B?tCM=8(B}
 %
 % \begin{itemize}
@@ -69,11 +74,6 @@
 %
 % $B0J2<$,<B:]$N%^%/%m=8$G$9!#(B
 %
-% [2016-07-30] $B=>Mh$O!$(Bascmac$B"*(Bokumacro$B$N=g$KFI$_9~$s$@>l9g$K%(%i!<$,=P$F(B
-% $B$$$^$7$?$,!$?7$7$$;EMM$G$O!$(Bascmac$B$H(Bokumacro$B$NN>J}$rFI$_9~$`>l9g$K$O(B
-% $B!V8e$KFI$_9~$s$@$[$&!W$,>!$A$^$9!#(B
-% $B6qBNE*$K$O(B |\keytop|$B!$(B|\return|$B!$(Bscreen$B4D6-!$(Bshadebox$B4D6-$,$"$j$^$9!#(B
-%
 %    \begin{macrocode}
 %<*okumacro>
 %    \end{macrocode}
@@ -99,7 +99,9 @@
 %
 % [2016-08-16] $B=DAH$KBP1~!#(B
 %
-% [2016-08-16] $B!VA0$K(B |\kanjiskip| $B$,F~$i$J$$!W!VA08e$N2$J8J8;z$H$N4V$K(B |\xkanjiskip| $B$,F~$i$J$$!W!V8e$m$N6XB'=hM}$,8z$+$J$$!WLdBj$r2r7h$9$k$?$a$KOBJ8%4!<%9%H=hM}$rDI2C!#(B
+% [2016-08-16] $B!VA0$K(B |\kanjiskip| $B$,F~$i$J$$!W(B
+% $B!VA08e$N2$J8J8;z$H$N4V$K(B |\xkanjiskip| $B$,F~$i$J$$!W(B
+% $B!V8e$m$N6XB'=hM}$,8z$+$J$$!WLdBj$r2r7h$9$k$?$a$KOBJ8%4!<%9%H=hM}$rDI2C!#(B
 %
 %    \begin{macrocode}
 \providecommand{\rubyfamily}{}
@@ -782,6 +784,11 @@
 % $B%9%/%j!<%sIw$N4D6-$K$J$j$^$9$7!$(Bascmac$B$,>!$D>l9g$O3Q$N4]$_$r;XDj$G$-$k(B
 % $B%9%/%j!<%sIw$N4D6-$K$J$j$^$9!#(B
 %
+% [2016-10-08] $B2hLL=PNONc$,%3%i%`I}$rD6$($k>l9g$NBP=hK!$H$7$F2#G\N(;XDj$N(B
+% $B%*%W%7%g%s$rDI2C$7$^$7$?$,!$F1$8OHFb$K2~9T2DG=$JJ8>O$b4^$^$l$k>l9g$K(B
+% $BOH$N1&C<$+$iN%$l$?IT<+A3$J0LCV!J2#G\N($r=L$a$J$$>l9g$KC<$K$"$?$C$F$$$?(B
+% $B0LCV!K$G2~9T$7$F$$$^$7$?!#$3$l$r=$@5$7$^$7$?!#(B
+%
 % $B$^$?!$?7$?$K(Bokuscreen$B4D6-$rDI2C$7$^$9!#$3$l$O(Bascmac$B$H43>D$;$:!$>o$K2#$N(B
 % $BG\N($r;XDj$G$-$k%9%/%j!<%sIw$N4D6-$K$J$j$^$9!#(B
 %
@@ -792,6 +799,11 @@
 \fi
 \newenvironment{okuscreen}[1][1]%
  {\def\screensc@le{#1}\@scw=\linewidth \advance \@scw by -20pt
+  \dimen1=#1\p@\relax
+  \@tempcnta=\dimen1\relax
+  \@tempcntb=65536\relax
+  \divide\@scw by \@tempcnta
+  \multiply\@scw by \@tempcntb
   \setbox\scb@x=\hbox\bgroup\begin{minipage}[b]{\@scw}}%
      % $B$^$?$O(B \setbox\scb@x=\vbox\bgroup\advance \linewidth by -20pt \relax
  {\end{minipage}\egroup
@@ -1118,5 +1130,6 @@
 %
 % ^^A \endinput $B$N8e$K(B \CharacterTable $B$r=q$$$F$*$1$P!$;R%U%!%$%k$K$O(B
 % ^^A $B=PNO$5$l$^$;$s!#%A%'%C%/$O(B *.dtx $B$r=hM}$7$?$H$-$K$7$F$/$l$^$9!#(B
+% ^^A [2016-09-03] $B"*:o=|$7$^$7$?!#(B
 %
 % \Finale

okumacro.sty

@@ -21,7 +21,7 @@
 %% same distribution. (The sources need not necessarily be
 %% in the same archive or directory.)
 \NeedsTeXFormat{pLaTeX2e}
-\ProvidesPackage{okumacro}[2016/08/16 okumura, texjporg]
+\ProvidesPackage{okumacro}[2016/10/08 okumura, texjporg]
 \providecommand{\rubyfamily}{}
 \def\kanjistrut{\iftdir
   \vrule \@height0.5zw \@depth0.5zw \@width\z@
@@ -300,6 +300,11 @@
 \fi
 \newenvironment{okuscreen}[1][1]%
  {\def\screensc@le{#1}\@scw=\linewidth \advance \@scw by -20pt
+  \dimen1=#1\p@\relax
+  \@tempcnta=\dimen1\relax
+  \@tempcntb=65536\relax
+  \divide\@scw by \@tempcnta
+  \multiply\@scw by \@tempcntb
   \setbox\scb@x=\hbox\bgroup\begin{minipage}[b]{\@scw}}%
      % $B$^$?$O(B \setbox\scb@x=\vbox\bgroup\advance \linewidth by -20pt \relax
  {\end{minipage}\egroup