(* ::Package:: *)

(* ::Section:: *)
(*Hauptmen\[UDoubleDot].m*)


(* ::Subsection:: *)
(*BeginPackage*)


BeginPackage["Hauptmen\[UDoubleDot]`"];


(* ::Subsubsection:: *)
(*Base Directory hier eintragen*)


baseDirectory="D:\\Export\\axel\\Mathematik zum Anfassen - Demo\\";


$History=0;


(* ::Subsubsection:: *)
(*open application in new full-sized frameless window*)


openAppInNewWindow[filename_] :=
 Module[
  {path},
  path = baseDirectory <> filename;
  NotebookClose[currentAppNB];
  currentAppNB = NotebookOpen[path, Visible -> False];
  SetOptions[currentAppNB, WindowSize -> Full];
  SetOptions[currentAppNB, ShowCellBracket -> False];
  SetOptions[currentAppNB, WindowFrame -> Frameless];
  SetOptions[currentAppNB, WindowElements -> {}];
  SetSelectedNotebook[currentAppNB];
  SetOptions[currentAppNB, Visible -> True]
 ]


(* ::Subsubsection::Closed:: *)
(*Switch between a frameless and a normal Notebook (operation mode / maintenance mode)*)


makeWindowFrameless[win_]:=
Module[
{},
SetOptions[win,WindowSize->Full];
SetOptions[win,ShowCellBracket->False];
SetOptions[win,WindowFrame->"Frameless"];
SetOptions[win,WindowElements->{}];
]


makeWindowNormal[win_]:=
Module[
{},
SetOptions[win,WindowSize->Automatic];
SetOptions[win,ShowCellBracket->True];
SetOptions[win,WindowFrame->Normal];
SetOptions[win,WindowElements->{"StatusArea","MemoryMonitor","MagnificationPopUp","HorizontalScrollBar","VerticalScrollBar","MenuBar"}];
]


(* ::Subsubsection::Closed:: *)
(*Bilder*)


maintenanceIcon=Image[CompressedData["
1:eJztfAdXVVm2bo/xfsF74743xn33vuqu7iots5gDmMgZBCQqcIDjIQioiIhZ
MSCYECVIziIGBERExEyJmEURUUGQfHLaeb259j4gtoXdFFb1uHfUGtPtPpud
vjnnmmmttb8XRawU/Y8//elPboZ/eB/xjeObsM8wDEmS1Ddq9CjtW91/tAYo
YEsQhF6vhy38HEaKhhrLssM78Epwplqtlsvlg4ODH75R6xylfav7f+W5sO3o
6Ghvb4ct/Ozu7u7t7dVoNMCNkUyAfWAUHAfUcA5cBZd0faP2cZT2re4/1jcB
DshkMhD0MHxQDK1WC9jhHAAO8L/5Q/8l8OEp3UMNfg7rA/wEDYcOLsAHZQCG
wMnwV/iTVCoFTZB9oyYfpX2r+3/90QqFQqlUwhZ+DgwM9Pf3C12vp6cHDkJ/
B80HsKASgB04AJdAR0D/HZtg34ADABM4ADvQBUDzgT/CEeCPTqcTzALzjRo7
SvtW9x+tAdK/+yl4BBA6yBrAwha6PBwBicNP6B2gIdAjBC79q2U13saN0sC1
CV2gr68PZA1nCh4B4MPxr1/736CBxAEpQAYOMHww8Hfw/9Uv+Nu2P+D/Af8P
+H/A/wP+GOFD8IQ4nlgO79J4l+EJ9hHNIQgZCYQgo9DxRMARgRAmGp8GJ/MH
OCAGCO47dFeOP0IJBw1P4RDNX4jvINyK5Ym/J/zVcCXHJ7PsMCGB+OOfQP1D
+F/hAL4h/yqQKANSAnF6xBCIAiJ5sANa9LqbfPCOaXiPbrSj+lb04DXqUSAV
wiTnUD+pUiM1gzQIaThaxZFqxMClLINYEvOHwczjdIjWc8AkYCuHSJ6fCsTA
NTIGNXeg641cbYP+fov+TS9E7Rg7fjEOE60nSK0O/2R4ovFWYI4gpvFI3wCf
wvApLGJ4UUqHSD2iFLT+xv0nB5IK1kafWB2V6RVTuiq2clVM1d6Tzw+lPCq8
3NHch2QIKQE25pXOoB1Y0HBHlsa3YgnE0IQS/8/RpB5ycI5kMXaBex1qlFzU
uG7nhdiE2/4bSt2D045l3b3VAAE7xNBDHKAZlqSG31OAjzlggE99A/gMVi5e
yRkAzhMWYWvHQHZh7aadeSHbSiMO3liX2CTZd391eEXw5suReyr3plwrb2jr
pgTBszS8MWfQT4RVmtUjlhIEBiE3hQ/CDzVDqzl8yeO3aOfha+KYnODtOW4h
8QFbcrYk3BetO7crrvzy1Vf9g1hPDDUM3FsYg/QFYgVQcMq44GMO8HdjebEN
wwdpEXxnbG1Tp2bdCospFW+pDNp2w2dDbfCWO5vi7odsv+IWmr52R07Bladv
B7Fl0OoFY8HrEs3LjSe+7yGawghIBDxB/QR61sHtOnwzKOpcQHTO9uSK+Nya
mCNVki31kqgb/pKshONVDQ96FWpsEFjMAZahSbz3JXxuXMoPl2MRYZWErJji
4UPfZyie8Rxvtx4+lCeduhex5XLIluthOxojdz3031gXEFMbsa9esuPi2u1F
WeeffJTx8Encf1gtv8PrFPyv1SKBx1KdGtRei1BTq3bP8ashsef8ooq2JdXm
174/de6leOtFr7DKTXubgjeeD48uyC683/aBUpNID3fBciANdpU1yIs3kdjM
jhc+LzoWkTx8MH2gA1hqOh2hkhOEBuk16MljfdLJxrDoyuBNdWu33F0dWSeK
uRl+oFG845rP+pKYgzUl5a1SBWacwU/wqg4yJxgWFFRL4AfoeeyNrxUJ6Td9
I7P8o3Mj9l8squsruiaTbKsJ3Fwbe/ip34bKmL03/UKy9x+90vRSOaBGShK0
BltlDvH8ZZkRvoAbL3z8olp4QdqAHb8kMay0NCOYXDAEdxukBxJqV68tCNpc
L95+X7StwWPDtVXrr/jH1IbuqFm//cLTF6x8YMg6Yfi4Y4LKgwJINUhG4P7+
rJ2NO3HNNzIjdHdpyN7c8z/3ZVT0+EXViKJ+Fsc0+kWVR8ffjNpTvzo4f++x
a3efyNr7CBlB0rjraDj8nvpPOjBE45Q+3BMkQ/NCF8y3XpAhoeO7MalXq1je
tTc9lh08cVMcW+O5sc5zU71o5wMgz6han/WXgmMuVFR3tb3hTRywiyAZWgci
gzfv15Ja7B1Qw0vt/pM3RBtzRTG54ftLKx9Lj5Y8idx3R7L154CoJklsU8rZ
7uc9aO3mCp/QooTUu7efyl51KgE+CeaIVbIITCbfr4ADI3RgPH6fV35aS+l0
NCq5WPdBit9TSWPXrNYq+LeWs/QgTavhUVIl+7SN2nTopq347OqtdwL2PnKK
rPOIrl+zuWbNhuKE5PqnzSq1ChsOsFQkpQL4alYr+LiXnWhHwo2gTSVBsYWS
3dln73VlVnWExtUFxtSvWV+3Zv3lohr6nQIdPP3SK6Ro/a7qk3mPaho+tPVq
gHUk1iINa5D+MHxG6PtqtRqAC4VNoaozJssvV8rgmo9SQrLxQHzKpRcfWA2v
ADTWezWL+hAa5N07oae5QT06f0frG1vnFH7ZffMtl6ibPtvuekfXeEUUbdhV
fO322499GhwvGnwVLdXrAPu9FlnUnnLJ5ote4TlB2wrP3O5Kq2gJjbtmF1Dk
v+maZGv94bzXL/vR9qMPfSPOeUpydyTWlV19/6hV1SnVKyiABLfCfX+EAfw2
8OFNdRTunjfvt/mHHfJdlxyfevPuCy2vA6yGUjAI7tDPIZlaN6ChKJDFjWYU
tPuWjeT8yg11rptueW655bah0mdjccCmtKpbzR39SqVeryUJOFmIG9sGUfTB
MlFUhnhL7trtecXXeyqbGMmOK66Sc1uPvlgVUphV2Q02Y3N8dfiOqx7i/Og9
lakFjTeb+t90E/1qCuIEGocAfPQ9stcbYmlKrVb+evh8+A0xa2nlw63xF0E5
3cTpO47W3W8hVXx0CtEsiSNT6BzYi0lJdCjricf6ctf11W6bbjhG1jttuOYU
cdF3S5nvxuTzdU9edvR8lCuwI+FN6KsOZvP+coiavCOPem1ILLvbdf6u0iEg
zyeyGuTusrYo5dy7ThJtPXJ5dXi6+9rTG3ZWFJa/qrzRev9pV1uXXKYDu4d1
iQLDLARUQ36fhw/KQI4Tvo7GBv9CXWvE9lKvdSWrgs/6bjgXta/iTR9ScqD9
TJ9Kzvtz1ClD2eeeeYTlOkvO+sXecY+6ZRtW57yh3jmy3HvzGa/1x3Mq7jQ0
v+vTUEKK9LhFu+94rWdQtv+GooAtx4vqnxfXd6zZWOIRWr1m/Y3AmOpdpxqg
a205fAmwi6PyfcPTMkub6hvbG1+0t7zv6RlUgBbxgSn4D8YQ8AuEwx6cPQCN
Ez5IClS65ucez9BMN0mZ76Yb3hGXPUKL9iXX3X0u1SKDv37Xh7JKn3kEpXkG
F3qFV4i2NDiGXbMLq/fa2ui0vtI5ItcvJj2vuvFxez90GCmBrjd0Hzpx3Uuc
HrixLHT7haK6t5cfDgbEFtj5p0fGPQDpnyh5Dzq/O/maZ+gJSXT+hp1nj+fc
bHjed/P+i5b2D0q9FpwmzRIsFjEaTs0MMb8BPlgD/bjg8wGaGqGHbezq8AKv
yBqvyNsr117x3XjVNSjtaNbdl13Y+r/qQKeLXoRFV6wKKPaPrPIJv+y1/qZN
YI1D+F2PLY02oRedIvP9t2Yl5lXXPX4rhySundlx4KJ3YKZoXaFoY9aZa91F
NUoHvyyfyHPirZUrPOLTLrx71o0OnH7osy7XZ93pEAj4DxY/fKO9+fDN8zdv
++W9OPsUCGIOATvJE/VJ+iwvOrVGPh74ahLyOySlkW9Ejmd4udf6ejtRlbOk
0mvDJXtRWuCWoqTCJ4lZj7xC8y0908BDuQeXOwdedA65aru21iH8tkPEjeWi
M+7RF5zDUtzDj+xLu9RLICmFDiZf9xSlSaJKLlzvKavrWxtd7SYu84uqcAvL
Szr74iOH9qQ3rgzKdPRLFUcVni5pfPCy/+qtx++6+8ALk4yaZjRAfO/GLojR
cyMzPs4AH0cs/1D6X+fAgHQQrlHo0LHMGy6Bqd6R5X4xtyxF5Q6hNU6RNc6R
FXahZ+1Di1euL3GKKLSW5DqGXXQMrXIIrbYLrbULrcPbsGo46BRS7BFR6BSU
dDi7Adzk626UmHbt56dUcxuKiKlwF+WsFGU6i08nnWt7LEMxKfdcI4ps/dMD
okpPFz2/1dDV2NTS9ua1XiPFySKfywg0ZO3RMA1XQr5FyoP7FUlxYFrq73d5
h5ww9zjmtfGyhf9508Aqi+Bai+CrK8SXzCVlNuGltuFFliF5tmEXbEMrbUMv
YwIdCLlqH3LFIaTSKfSSa1iZZ3ixy9q04zn3Ia37qEYVde3uq4+LJAU+a7O9
Q3JPlb3rQWhdQr2VON1SlBIYe/ZYbtOV252Pnna1vnon7+mCEMxQF/qn27hT
HlqlUYMCQH6RlHPbOeCEY1CuS3iVtbjSNuQa2HZLSbXl2kt2IZfswy7YhZ6H
nm4TUmETUoUpuAbILrjGXlJlv7bcwjd39cZz1r7H7VbHF1S0dihQWx86kXF7
ufVmj8DUjLNdb6Qo9sgDh8Asj4jcNVGZh3Ou1za+fdLa3fa+Vz6oNiQb7NiK
k+OEr9Mq+doU0jLobS/ak3xtxar4lSElVgGlNkGXbMXVVkFVlqIKC/+Llv7n
LfzO2kguWgVftJKUW0kqrCRVVmurbTBVmfmVWoqKXULPuATnuUrSXcTH9hy/
ImXR20F0KLU2Lunm83Z0JOONnU+6uzjTTZyUWnyn4vazhy1tr9rfDwzKBPuG
ywG/N3wFX9FEOgr7uGsPeiWxeXaiZCdxnm1gsW3AOYegCmdxjVPgVeeAGsfA
apvA81biMisxbC9YiCssgqosgjCLlq8pc1t/1S6oZMmqZO8NJa4hp51Ex9LO
PWuTo+Ze9PwD2p5wzdQhLiTqzBpxcuLJy7cetDU9f93yrrW3/yPEidi74VxJ
6Nq/E3w+dqJJnJdgd6ogkIyE1Ewdm3jJKyLDISDVwivNyjvH3ves45oLjmvK
Hf0u2ohKLQOLLANLLALLLAIumAVUmAVUAVkGVlqLLzkGV5isSjPzSQUOrJSk
2wceS7vw8ulHXBWM3ntule9BN69dJ05VvXg58PDxm9Y37+WyQQ7CSY4h9RRN
8FUC7neEz5eVFYMDfHUCqfSsUJBpeCk9llsftb/UMyTVyS/ZcXW6k1e2vXuW
jWeWnX+eZQBQgUVAsXlAmbnooqnokqmo0lpydZ5Lvn3IZbvgCwtcT1qJsu3F
2aY+SfPsd2dXdT3vRn0E2n+8MCPv4sMnr39uePz2VYe8R8WXtjFRpJ5mcIrN
/Y6mz+BTKCG05ON/glGQnIrPdR+0SnPO348/VbMr8XLMnoqoreURsZfs/FOt
RaetRJkWonxzUYmZ6KyZf/kKf+gF1fNXFVkElANPVvgW2oiLTX2zzPwzXcPP
zrPfe6a+t0OF2qU6iOhev379seODdkCDMyJyuCYIr6IhGBnv+L4l/H9Q52c+
RZL80AbO1yGvlpL6fq3+o5x436tvadc+bVE1PVc0PNVG7j1v7p1o7pO0MrRg
uVeGsXsW6Dxo/jLfcp4urPA9t8LvjKlfkalfgalfnumaXNPVqXYBhw9mVL/p
08j1ZE9PD0TqYGhIyKD4QA6iG5KCdF7D09jgjyfh/RRLM8ORJCRZegpXKFVq
VqUgNYNaTY9c1dmvau9RtnXp38vRul2ls602WXgfAxdm6ZdntqZk4aq8pT5l
JgKtLl3qU7J0ddHS1flL1+RaS0qMPU8Yu8Z5RyRln2vokeHHYjc3XFYDuJRh
QEmtk49V+b8NfNqQRfJ5BMTSKgZBMKAikYpAah2r1TJaDaWDftGnRU/a0b6U
OnOPvcvcDoGVW+aZYe57xsSryMSrdDGQd8li76LF3gWYfLKXitIXeiaa+520
8DnitOZoRuEjqQLXL7QqfjwNESylZGgdnoDDx3djNX3jq/Z8NnYgJNF8UVHN
IiUwAYjG+1oaxwUEjevVvFl4rQvfkWfiuB3yAhdJ8QKnUyae+caehcaexYu8
gAp5yl/knWXsm7LA84i1OM9elD/LLM7a7XhOyat+Ofaz8EySUVKMHJhAUZRK
RXHcmB3fOOF/Np5oKKHgMgLH6VieADWLBz1Ivl/gDLFbzqeBH1FobO5i++02
vqkmbidNPDKNPfIWexQALfQUKG+hV7ZpEKhB6hznkyu8Cqx9ShbZHncLzEwp
eARWH4920TqFVsYXc/BQGfb/vyt8oY3ILz5lGQaCxrJ4Ep0w7qujDZUc8I/N
H9C6HWemLY+28Eld4p4OZnCxe+4i9/wFHgLlAs11y1qy5oyRQ/ocxwz7tZfM
vHPn2exzEiVlX3jaIcUGQE1zCo1WGM4iiLHZvXHDZwSxsrhyQn1Kr4a7g5Bk
DXEFHItOz/TJVCdPF6dkXwId+KBE4phSE+dEE9eURW7pC92yFqzKnjdMboWT
rfIWrrq0yLNs7sqsBW4pYAYXuibMd9jlGHjiVOGjDzwHpEpWqdLwTNX9npYf
wg3o2hTu4Ho8+DxyHJkekVwzeAgYEgOKH5+NTy4xtlxt57Eh48z9Pj1qeosk
saVLXA6ZuBxd5HJygUv6PNfMOa7Zs13zZ7sULXKvmGSZO8s5f+6qzElWB+e6
HTH1SzeyjZtjtdfU9dCJ7MdyLVZ9EAPNyBhWyo/2G0QjFDOBhCzYMGdAGPoc
Us5/CP8rHGCRnkSDUua9nBpk+EE9Q1WBH62Q9fcIgx4ylVKPBygRCGv3qbvT
TLcZr4yz9UswMg0+lnMTUqamN5Q4OtXcfecsiy0rvFLnOKVNtc1c4nd1in3R
bJecuS5pc11T5rqe5Cll/sq0hc5pFl658y0O2K5KzMp/0D8IHR+Cb1xRB0gQ
/6nVShaiD7AxEILhKEzHWx5GKHgYxIS5xuk0vz7qA6Hr0SAQiXS4nqlDhJof
62LwvAJBG6XqPhVBwF6PHKWVPJ7nkLjIPXPByqNGVrEO/vHHc+oetSp6tejp
W7VfRKK1997FTgfmOSQvdCv5v4tT53mUGzmmzHI6MsvpmJHTcSPHk0aOqbPs
M2bbZc2yTjF2SF1gsdfZ51Dx+Qd4nAmxA7IeLcUKCxU4WkNq+/A8CKSkKBmN
RyENo4gG+BQ2mcQ44IPyK2kFj50fjhRmFAgD9HiUCrtiFYXT0EEdOpxSO8ds
06Ql2xe5nAAFWOa253ju7ct33t1+BMEs6lehDzIkijwxY/lGk5UnflpxdKZD
wRTr7Jk2ybNsj8y0PTbDNnm6bcpU29NTbbOAJqw4tdSjZLbNse+Mwuy89xdW
POlUYHPaj4fU+Oo2qaP1Mr4SqWZZNQ+f+wI+Mz74uF/hOiILO4LVoylaS3N6
LaWTaTQyPX6lLjlKTLtt5rxvnuXOFauOT1kea7bqYHxq/fWmnmdv5e+61T1S
UqrF/aSxWe0Temq2xY4lbmkzrE/Ndciaa3tqrm3yHNsUI7u0mfaZ0+1zptkX
TLEvmGqXb+SUb+SQMd36yEyLnWZe8UklDxW8Q1HrkBoQ42kuFD9jRMuyeBD2
F+GPR/kNk2QYnrPYlOgIRqoi+oW+oOGnYUDXzi5rX+qYMGnx9iVOx+Za77Dw
2H8k4/a9p8o7TR1PX3VCnqglsMZ29mmBA8/eo7DYM/Os9xpZxC9ySJlnfXKe
9anZNulGNhkzbLMB9WS7wkn2hVOdz3xvfvoHyzQcInplTjKPs/BLO5TzGLRc
QyJheAMTpaP0Kp1WwfIdX4DPckNTPsYNH26nV/EPQrSWHNDQfSRkXniSAmof
QBU3BkO2XJqwIPaH+duWrExb5nrC2H5rQmrtvafyx69kz1q6e/qVJIUfqtdD
pIQGVThoftaG3IOSZpvFGpnunWNxbLbFSSOLlOmWaVOtMiZZZ02wyfnRNuev
VplTnPN+skv/3vTwBMsjky0TplgeXOBwoKD8zbtORPMOV6ckEIUrEiwDcRcz
bJU/wWeo8cDHMzB0SCsT4FNybQ9g1yP2WUevlXuUq+iEmUvyjOUJIEETl6yZ
1okTFkfFJVVfv9vx/LW8uaVHoSB4I0UhluCLZliX3nXqID5+8Q65+B0ydTkw
y/TgdLOj08ySJpsnTzJPnWCZ+gOQ1ak/mx6d5Z41yyX1B9O4iaZx0yz2TzeN
MzLbaet+ILu4qU+KZwaQal7J+fktHDbUQ2V+AT6Dp6aMCz7fiUg1P/8OUQPq
XpB7l5qKPVQwZXH4YrvjU00OT12SZOyc84Pxntn2Bw/lPmxsVt6539b8qksu
1xM6kiG0uELHgMMg1PJBmsLjkSo91oG33cjWY88s853TzeOnmR+eYn5skkXS
REugYxOtDk+2jv/RbPt0uz2OkqzVG4pXuCTMWLzZ2HLnX6f7hWzMunWvDzsb
nBVgH0SReh6+YfbQmOB/Nd/nqzzgYglI8fBQb58OFVY+nWocMcf8sNHy1EkL
U43Ms6aZHvnf04J3pN251Nh95+G7tve9KiWJx91oAmPnNDzp8Cgof0OGny/S
K0Mt3chZfGKRS8JfFm2eYZs4ccWBSRaH5qxM+rNx1A/LIk1W7bxwuxc4PghZ
ZDOK3lxoY7d9kdnmGcbBWfn3B6VIKR2eycP8Anw8zE1pVONIeDmGBk+PCI1e
gQc7KNzfTWy3zbVImDj/yMxlOVMWn56+NGW2VcJc+60p5U21j9pevv040C8H
7Bw4KJqXO61ElAJbC0oD3oplDdO61CTq16LXUmTqs2/y8o3/OXfdHLtDU8z3
fDc/0sR1/zTTkJMl9xR8XDUow8CUfchv9cHpC4Lnm0dtiM1934mUsiF151jB
Tn8BnxkPfBxhskqNboDBUw9RpxwdOd3wb38LNFqR9P+mJc6zKDJakfHj/L0T
F0daeG0tu/X40dv2HqmUXzTHVwoAPq3FHAACD0VroS9QFMENBc56fm5E4wfK
xCVmjs2WKcs2T10eCynS1OXhzoFx3Tqk4pCcz/L45AeVFTVOnhO0wGqLo8fu
5la9UoFoSDoJfqokx/wW8MHZDSjB4uHcPqv0yVyz7YvtU/42N37K0tS5FlkT
F+77YU7kfIuIsK3Hbjx+8bLjrVyjoOmhCh0jzDYhhjwSRGwEw1DDWgqYevXU
RwJPcnALioc+9dPC9Uvs4yYuEHuHJsr4wWU8iwDMhRyp+1FNddsMk7AJi0Pc
AxKevlTLpKxeBZ2f5ig8qYkb4sDIsH888FlsPmjhPV91oaV2u36YF2PilPH9
vH0zzI9NWLzj+7kh1h67Y+KyLl699/pdx6u2Fq1ew2BNwc6IofWGSc2GahE7
9IZ4ChrBcRqWIBHRrxmECzr60QqbrbNNYmYtiZlvudXEblNOOY5zwKM/a5WC
xoAtkaw7aWS68X9Nctt1pOJRs7KvV6fBykGzhIavw1CfwcdmYZzwcSGD4COc
TXvKJi3cNG3Zvn+fEfvTsv3/Z3rI5BWRrpL45PwrF2ruPn/5tquzd7B/gDGk
HTTskCReNwfvwLIsRYHUcdgssIOfJgds0vLqL5MrNKDCbe3I3PbA3CU7J8yN
/G6mn53fvrpncinCowDAh/yLrd/NWP3TssjvFwQWXW65/3ywu1ejkavx/agv
4A8l4+OCz+EalpJETS+p76eLFtkdmbh4z/+cvG6mzT5j9z3iXaezKm8+evvh
54dPOto/yiDnoYV6IMSjeBIvSVN4mjZOm0HMLMF8muhOCFqNdDTxGqJm8BFa
FXYtr94gY7PEmUvj5tnGfb8w+MflEo/o9Ojkq9bipL8sjDCy2/vXJeFrNudc
vt/X2DwgldNatYaPK2CLpzYJwc83hE/QeNbUzgNn/zLFc9bS6BnLYiYsijB2
3pZ/pbniXvO95tb3fb0tbW9wGVzH4UmfjJBpY+2nGU6ITBl2eJY+5gCovTAZ
gZ+l0Iv0H/Bb0wgkrVShx83I2CruuxkB08wiJ5mHTbYK+36J+D8WSX6yiP3z
4nU/LZXkVL248bj7yeteiLwJnZ53r7oh6TMjUn5M48n3gYc6Lb4jnLhzd/rf
JprNW+Qed6igqvZp/d3mxidtb9q7+6UqrY6CeIYVFiv8ckOfVh4MlQ/5qgVf
soD+wqsC/IJgvncAtbzjxOuPzl7h+x8zbKab+k03D/r3mSt/NAlwEe8/U3mv
9lbT81ftvQMKnR6vwRxaIsF8UQPHDxhXsYvFc/eF2K+ttffCudqy0urbNx89
fPCyrfVjV+eAXKYj9CBm7GRgy4ytBj88iiTM6DcM4UFeNKBEnYNs+bVHe5MK
N+5Nj9idFn0gN7nkdv2jzlsND589ewaIVCqVsCT5622c8LH+KCG/xbPQ5VKq
430/AG959V6pgDCeZoYzL27ktIqxwOf7BgfWASewwkAu7hJKCvUo6Ved8gct
vXdedAHdfdl7/1XX23a8JB9ADS+8xa/Jsr8JfB4XRfDxLuYDM9CvUsj1Wg0F
QgeF54SvQQyvLBj7wqhPs7I4vPwZLIZQYdAweDhBQaIeFdEl03cpqU4F2d6v
VmjwtymGP0MhYP/t4OOFBpRBviTBDe9TJMeruvACSHiBscNnhBVLhqCIIyla
R9I6ggUnj6s6WppW0RQkEEDCkBekzyOxD6/d/o3gE3oGCFdxSU6npQRZK5Vq
NKINr08fI3b8+iQFYZJ2BAcIitUB6UmNRqcEhykEr/AWakJDMaTwlOHnCt9F
+c3gj/zsCR5lEPZJkuSGXQsfy0GQg8tPYxx/hPNB3DSjYzBMQ7yE3behaiUs
ZSMZVk/RAotolv201p7jH8zwHw34jeADUq1WkDVm9YgvYOggeREg4y7L7whl
h7E1zFcD94ZWoYB+E0rFoBAzcxAu0cKqLz2lU2M397nifQX7l/DhyODgoPCV
D4DPl6j/4YoG6tN2iATIX9Jodxntqw6fLT0ZOUIhjJlhbyoQyRPNjfJ9iNGe
q9PphK+aCPCB0QMDA/Czp6cHdgRpjn45YwA+kkYw4XP6Fe3zlTfsp2B1xMgy
Xx8RaGhU8Z9vAF+QNeiA8EUL4WseoP+gBsJ3S34FfDRKGxXnKI3ltV8gbgQN
r9P8tPpv+OBYnivAB1kL8EHcfX19oA/fHj73a+F/Ln0DfG4UGiPbh+EDZMFL
jpT+P6v8Xyj5sMhY5jMaLfAbtet/zqTh7iB0ffYXaGx9X6PRAHCAz699xacN
mz5QA8H0fdV4fhU+M0749Jd6JZg8hqMFwmEXxwrEfMWCjtIgNRC+3wWQOV4J
5XK58BUp4InwLZfRsXO/ZNwQ97mifkZjC/sNyyQ5A+n5dXPCRBFKIAoTIxC/
YG4st+c4hUIhfLcKIAvdBI4Iny2CLejGr4Nv6Oxf0GjwR+v6/HQYA/CR8A1j
VDzRBhKW542t78tksvb2duG7YYKeg8TB5QF8YAsoACiDVqvVjLGpcdN+SV89
/xeaRqPSaBV4+zmp1UqV5u9IrRr1NsKtPj1LqVQCcKlU2sE3wC41lKBxyAqQ
BV8guADgRvcY22hfZvutz/9Kg6t6+NbNf7FN+Fyb0PHB3AFbhKBXUABgjhD6
Ct80+68OX7iqZ0QTbiJ8rw/wjsyVYB80AawiqAScAGe+H2N7N0r7rc//+n2E
TzWObEq8blLP8jny31khOMhnNFrgw9js6T/rx7/9+V+5zy+aRIjrRgr9/wOZ
7oSE
"], "Byte", Sequence[ColorSpace -> "RGB", Interleaving -> True]];


(* ::Subsubsection:: *)
(*Texte*)


Haupttext="Spielerisch Mathematik begreifen";


Roulettetext="Haben Sie heute Gl\[UDoubleDot]ck? K\[ODoubleDot]nnen Sie den Zufall \[UDoubleDot]berlisten? Spielen Sie Roulette im hauseigenen Casino, nach einem etablierten System wie Martingale, Montante Am\[EAcute]ricain oder Fitzroy. Oder lassen Sie einfach den Einsatz stehen und spielen vollautomatisch.";


Zykloidentext="Zykloiden nennt man die Bahnen, die ein Punkt auf einem rollenden Rad durchl\[ADoubleDot]uft. Nicht nur im Maschinenbau sind sie unverzichtbar, auch aus vielen anderen Disziplinen sind sie nicht wegzudenken. Erzeugen Sie ihre eigenen Zykloiden.";


Lissajous3Dtext="Lissajousfiguren sind dem Elektrotechniker wohlbekannt. F\[UDoubleDot]r den Mathematiker sind es zweidimensionale parametrische Kurven, deren Komponenten harmonische Schwingungen sind. Erforschen Sie, wie so etwas in 3D aussieht";


autortext="Bei Fragen und Klagen wenden Sie sich an:
Prof. Dr. A. Kilian
Tel:  03461-46-3057
Mail: axel.kilian@hs-merseburg.de";


(* ::Subsubsection::Closed:: *)
(*Dialog "Wartung"*)


createDialogPasswd[] :=
 Module[
  {k = 1},
  dialogPasswd =
   CreateDialog[
    Column[
     {Grid[
       Table[digitButton[k++], {3}, {3}]
			~Join~
	   {{clearButton[], digitButton[0], Null}}
      ],
      Grid[
       {{saveButton[], winRestoreButton[]},
        {submitButton[], winFramelessButton[]}}
      ]}
    ],
    WindowTitle -> "Passwort eingeben",
    Modal -> True
    ];
  init[];
  dialogPasswd
 ]


(* ::Subsection::Closed:: *)
(*Begin["`Private`"]*)


(************************************************************************)
Begin["`Private`"]
(************************************************************************)


passOK = False;
passwd = {1, 2, 3};
input = {};
buttonSize = {65, 25};


init[] := (
      passOK = False;
      passwd = {1, 2, 3};
      input = {};
      )


digitButton[i_] := Button[i, AppendTo[input, i], ImageSize->{40, 40}]


clearButton[] := Button["C", input = {}];


winFramelessButton[] := Dynamic@
  Button[
   "Frameless",
   makeWindowFrameless[First@Notebooks["Hauptmen\[UDoubleDot].nb"]];
   SetSelectedNotebook[dialogPasswd],
   Enabled -> passOK,
   ImageSize -> buttonSize
  ]


winRestoreButton[] := Dynamic@
  Button[
   "Normal",
   makeWindowNormal[First@Notebooks["Hauptmen\[UDoubleDot].nb"]];
   SetSelectedNotebook[dialogPasswd],
   Enabled -> passOK,
   ImageSize -> buttonSize
  ]


submitButton[] :=
 Button[
  "Submit",
  passOK = input == passwd; If[! passOK, NotebookClose[]],
  ImageSize -> buttonSize
 ]


okButton[] :=
 Button[
  "ok",
  passOK = input == passwd; If[ ! passOK, NotebookClose[]],
  ImageSize -> buttonSize
 ]


saveButton[] := Dynamic@
  Button[
   "Save",
   NotebookSave[First@Notebooks["Hauptmen\[UDoubleDot].nb"]],
   Enabled -> passOK,
   ImageSize -> buttonSize
  ]


(* ::Subsection:: *)
(*End Package*)


(************************************************************************)
End[]             (* end `Private` Context                              *)
(************************************************************************)
 
 
 
(************************************************************************)
EndPackage[]      (* end package Context                                *)
(************************************************************************)
