Index: VHSys/Library/VMLLib.mac.rou
===================================================================
diff -u -r29059 -r54976
--- VHSys/Library/VMLLib.mac.rou	(.../VMLLib.mac.rou)	(revision 29059)
+++ VHSys/Library/VMLLib.mac.rou	(.../VMLLib.mac.rou)	(revision 54976)
@@ -19,6 +19,7 @@
  Quit:(VmlID="KADBM" ) $$KADBMFREES( MidX,MidY,Rotation,strColor,.Opties)
  Quit:(VmlID="KAD120") $$KAD120FREES(MidX,MidY,Rotation,strColor,.Opties)
  ;Quit:(VmlID="KAD120Z") $$KAD120ZFREES(MidX,MidY,Rotation,strColor,.Opties)
+ Quit:(VmlID="KADHS" ) $$KADHSFREES(MidX,MidY,Rotation,strColor,.Opties)
  Quit:($E(VmlID,1,4)="SD30") $$SD30FREES(MidX,MidY,Rotation,strColor,.Opties)
  Quit:($E(VmlID,1,4)="SD35") $$SD35FREES(MidX,MidY,Rotation,strColor,.Opties)
  Quit:($E(VmlID,1,5)="STRIM") $$STRIMxFREES(MidX,MidY,intSize,Rotation,strColor,.Opties)
@@ -43,6 +44,8 @@
  Set FreesB=16
  Set FreesL=22
  Quit $$KadFreesRect("-")
+KADHSFREES(MidX,MidY,Rotation,FillColor,Opties)   ; FREES in Kaderscharnier Blum 120�
+ Quit $$KAD120FREES(MidX,MidY,Rotation,strColor,.Opties)
 KAD120FREES(MidX,MidY,Rotation,FillColor,Opties)   ; FREES in Kaderscharnier Blum 120�
  New FreesL,FreesB,VML
  Set FreesB=2