Remove extra argument
This commit is contained in:
rmkaplan
parent
876fec4241
commit
f9a3ea6d56
@ -1,6 +1,6 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 7-Nov-2025 11:54:25" {WMEDLEY}<library>SKETCH>SKETCH-ELEMENTS.;22 545478
|
||||
(FILECREATED " 8-Nov-2025 14:02:38" {WMEDLEY}<library>SKETCH>SKETCH-ELEMENTS.;24 545649
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
@ -5198,7 +5198,8 @@ Click outside the window to stop.")
|
||||
(RETURN NEWSCREENELT])
|
||||
|
||||
(SK.CHANGE.TEXT
|
||||
[LAMBDA (ELTWITHTEXT HOW SKW) (* ; "Edited 7-Nov-2025 09:05 by rmk")
|
||||
[LAMBDA (ELTWITHTEXT HOW SKW) (* ; "Edited 8-Nov-2025 14:02 by rmk")
|
||||
(* ; "Edited 7-Nov-2025 09:05 by rmk")
|
||||
(* ; "Edited 7-Apr-87 13:41 by rrb")
|
||||
(PROG ((COMMAND (CADR HOW))
|
||||
(PROPERTY 'FONT)
|
||||
@ -5256,7 +5257,7 @@ Click outside the window to stop.")
|
||||
(create TEXT using GINDTEXTELT TEXTSTYLE _ NEWVALUE))
|
||||
(T (create TEXTBOX using GINDTEXTELT TEXTSTYLE _ NEWVALUE))))
|
||||
((BOLD UNBOLD ITALIC UNITALIC) (* ; "change the face")
|
||||
(OR (SK.CHANGE.FONT SKW ELTWITHTEXT GINDTEXTELT NIL NIL
|
||||
(OR [SK.CHANGE.FONT SKW ELTWITHTEXT NIL NIL
|
||||
(MAKEFONTFACE (SELECTQ COMMAND
|
||||
(BOLD 'BOLD)
|
||||
(UNBOLD 'MEDIUM)
|
||||
@ -5266,7 +5267,8 @@ Click outside the window to stop.")
|
||||
(UNITALIC 'REGULAR)
|
||||
NIL)
|
||||
NIL
|
||||
(fetch (TEXT FONT) of GINDTEXTELT)))
|
||||
(FONTPROP (fetch (TEXT FONT) of GINDTEXTELT)
|
||||
'FACE]
|
||||
(RETURN)))
|
||||
(BOX (* ;
|
||||
"RMK 2025: RETURN MEANS NO HISTORY?")
|
||||
@ -9138,7 +9140,7 @@ ARROWHEAD.POINTS.LIST 233152 . 237124) (CURVE.ARROWHEAD.POINTS 237126 . 237989)
|
||||
SK.SET.ARROWHEAD.ANGLE 250348 . 251444) (SK.SET.ARROWHEAD.TYPE 251446 . 254735) (SK.SET.LINE.ARROWHEAD
|
||||
254737 . 257150) (SK.UPDATE.ARROWHEAD.FORMAT 257152 . 259262) (SK.SET.LINE.LENGTH.MODE 259264 .
|
||||
260742)) (260745 262546 (SK.INSURE.ARROWHEADS 260755 . 261937) (SK.ARROWHEADP 261939 . 262544)) (
|
||||
265343 327072 (SKETCH.CREATE.TEXT 265353 . 265867) (TEXT.CHANGEFN 265869 . 266261) (TEXT.READCHANGEFN
|
||||
265343 327243 (SKETCH.CREATE.TEXT 265353 . 265867) (TEXT.CHANGEFN 265869 . 266261) (TEXT.READCHANGEFN
|
||||
266263 . 274334) (\SK.READ.FONT.SIZE1 274336 . 276502) (SK.TEXT.ELT.WITH.SAME.FIELDS 276504 . 278144)
|
||||
(SK.READFONTFAMILY 278146 . 280616) (CLOSE.PROMPT.WINDOW 280618 . 281042) (TEXT.DRAWFN 281044 . 281765
|
||||
) (TEXT.DRAWFN1 281767 . 285269) (TEXT.INSIDEFN 285271 . 285660) (TEXT.EXPANDFN 285662 . 287787) (
|
||||
@ -9148,60 +9150,60 @@ SK.TEXT.LINE.REGIONS 287789 . 289663) (TEXT.UPDATE.GLOBAL.REGIONS 289665 . 29089
|
||||
SK.UPDATE.TEXT.AFTER.CHANGE 299253 . 299655) (SK.TEXT.FROM.TEXTBOX 299657 . 303463) (
|
||||
TEXT.SET.GLOBAL.REGIONS 303465 . 304758) (TEXT.REGIONFN 304760 . 305530) (TEXT.GLOBALREGIONFN 305532
|
||||
. 306220) (TEXT.TRANSLATEFN 306222 . 307537) (TEXT.TRANSFORMFN 307539 . 308662) (TEXT.TRANSLATEPTSFN
|
||||
308664 . 309181) (TEXT.UPDATEFN 309183 . 313839) (SK.CHANGE.TEXT 313841 . 323992) (SK.CHANGE.FONT
|
||||
323994 . 325138) (TEXT.SET.SCALES 325140 . 326108) (BREAK.AT.CARRIAGE.RETURNS 326110 . 327070)) (
|
||||
327073 340058 (SK.PICK.FONT 327083 . 331355) (SK.CHOOSE.TEXT.FONT 331357 . 335628) (SK.NEXTSIZEFONT
|
||||
335630 . 337262) (SK.DECREASING.FONT.LIST 337264 . 340056)) (340477 352151 (SK.SET.FONT 340487 .
|
||||
341754) (SK.SET.TEXT.FONT 341756 . 342758) (SK.SET.TEXT.SIZE 342760 . 343447) (SK.SET.TEXT.HORIZ.ALIGN
|
||||
343449 . 345023) (SK.READFONTSIZE 345025 . 346923) (SK.COLLECT.FONT.SIZES 346925 . 348006) (
|
||||
SK.SET.TEXT.VERT.ALIGN 348008 . 350050) (SK.SET.TEXT.LOOKS 350052 . 351509) (SK.SET.DEFAULT.TEXT.FACE
|
||||
351511 . 352149)) (352152 352738 (CREATE.SKETCH.TERMTABLE 352162 . 352736)) (352739 354505 (
|
||||
SK.FONT.LIST 352749 . 353075) (SK.INSURE.FONT 353077 . 353599) (SK.INSURE.STYLE 353601 . 354119) (
|
||||
SK.INSURE.TEXT 354121 . 354503)) (355045 412338 (SKETCH.CREATE.TEXTBOX 355055 . 356697) (
|
||||
SK.COMPUTE.TEXTBOX.REGION.FOR.STRING 356699 . 358776) (SK.BREAK.INTO.LINES 358778 . 369964) (
|
||||
SK.BRUSH.SIZE 369966 . 370347) (SK.TEXTBOX.CREATE 370349 . 371146) (SK.TEXTBOX.CREATE1 371148 . 372212
|
||||
) (SK.UPDATE.TEXTBOX.AFTER.CHANGE 372214 . 372754) (SK.TEXTBOX.POSITION.IN.BOX 372756 . 374667) (
|
||||
TEXTBOX.CHANGEFN 374669 . 375143) (TEXTBOX.DRAWFN 375145 . 377181) (SK.TEXTURE.AROUND.REGIONS 377183
|
||||
. 383256) (ALL.EMPTY.REGIONS 383258 . 383748) (TEXTBOX.EXPANDFN 383750 . 390906) (TEXTBOX.INPUTFN
|
||||
390908 . 392521) (TEXTBOX.INSIDEFN 392523 . 392936) (TEXTBOX.REGIONFN 392938 . 393792) (
|
||||
TEXTBOX.GLOBALREGIONFN 393794 . 394122) (TEXTBOX.SET.GLOBAL.REGIONS 394124 . 395455) (
|
||||
TEXTBOX.TRANSLATEFN 395457 . 397298) (TEXTBOX.TRANSLATEPTSFN 397300 . 400083) (TEXTBOX.TRANSFORMFN
|
||||
400085 . 401753) (TEXTBOX.UPDATEFN 401755 . 403648) (TEXTBOX.READCHANGEFN 403650 . 408539) (
|
||||
SK.TEXTBOX.TEXT.POSITION 408541 . 408962) (SK.TEXTBOX.FROM.TEXT 408964 . 411569) (ADD.EOLS 411571 .
|
||||
412336)) (412867 416368 (SK.SET.TEXTBOX.VERT.ALIGN 412877 . 414757) (SK.SET.TEXTBOX.HORIZ.ALIGN 414759
|
||||
. 416366)) (416751 461226 (SKETCH.CREATE.BOX 416761 . 417244) (SK.BOX.DRAWFN 417246 . 418405) (
|
||||
BOX.DRAWFN1 418407 . 421246) (KNOTS.OF.REGION 421248 . 422482) (SK.DRAWAREABOX 422484 . 429085) (
|
||||
SK.DRAWBOX 429087 . 430276) (SK.BOX.EXPANDFN 430278 . 434026) (SK.BOX.GETREGIONFN 434028 . 435214) (
|
||||
BOX.SET.SCALES 435216 . 436456) (SK.BOX.INPUTFN 436458 . 438391) (SK.BOX.CREATE 438393 . 439094) (
|
||||
SK.UPDATE.BOX.AFTER.CHANGE 439096 . 439607) (SK.BOX.INSIDEFN 439609 . 439999) (SK.BOX.REGIONFN 440001
|
||||
. 440714) (SK.BOX.GLOBALREGIONFN 440716 . 441454) (SK.BOX.READCHANGEFN 441456 . 445177) (
|
||||
SK.CHANGE.FILLING 445179 . 449127) (SK.CHANGE.FILLING.COLOR 449129 . 452785) (SK.BOX.TRANSLATEFN
|
||||
452787 . 453966) (SK.BOX.TRANSFORMFN 453968 . 454913) (SK.BOX.TRANSLATEPTSFN 454915 . 457283) (
|
||||
UNSCALE.REGION.TO.GRID 457285 . 458210) (INCREASEREGION 458212 . 458803) (INSUREREGIONSIZE 458805 .
|
||||
459976) (EXPANDREGION 459978 . 460858) (REGION.FROM.COORDINATES 460860 . 461224)) (461762 488117 (
|
||||
SKETCH.CREATE.ARC 461772 . 462581) (ARC.DRAWFN 462583 . 464310) (ARC.EXPANDFN 464312 . 466645) (
|
||||
ARC.INPUTFN 466647 . 470865) (SK.INVERT.CIRCLE 470867 . 471727) (SK.READ.ARC.ANGLE.POINT 471729 .
|
||||
472236) (SK.SHOW.ARC 472238 . 472848) (ARC.CREATE 472850 . 474205) (SK.UPDATE.ARC.AFTER.CHANGE 474207
|
||||
. 474547) (ARC.MOVEFN 474549 . 476132) (ARC.TRANSLATEPTS 476134 . 478019) (ARC.INSIDEFN 478021 .
|
||||
478271) (ARC.REGIONFN 478273 . 479409) (ARC.GLOBALREGIONFN 479411 . 481133) (ARC.TRANSLATE 481135 .
|
||||
482117) (ARC.TRANSFORMFN 482119 . 485069) (ARC.READCHANGEFN 485071 . 488115)) (488118 497197 (
|
||||
SK.COMPUTE.ARC.ANGLE.PT 488128 . 489054) (SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 489056 . 490049) (
|
||||
SK.COMPUTE.ARC.PTS 490051 . 493623) (SK.SET.ARC.DIRECTION 493625 . 494199) (SK.SET.ARC.DIRECTION.CW
|
||||
494201 . 494375) (SK.SET.ARC.DIRECTION.CCW 494377 . 494650) (SK.COMPUTE.SLOPE.OF.LINE 494652 . 495144)
|
||||
(SK.CREATE.ARC.USING 495146 . 496383) (SET.ARC.SCALES 496385 . 497195)) (497198 497643 (
|
||||
SK.INSURE.DIRECTION 497208 . 497641)) (499014 544873 (GETSKETCHELEMENTPROP 499024 . 500332) (
|
||||
\SK.GET.ARC.ANGLEPT 500334 . 500895) (\GETSKETCHELEMENTPROP1 500897 . 501151) (\SK.GET.BRUSH 501153 .
|
||||
502077) (\SK.GET.FILLING 502079 . 503177) (\SK.GET.ARROWHEADS 503179 . 503958) (\SK.GET.FONT 503960 .
|
||||
504440) (\SK.GET.JUSTIFICATION 504442 . 504966) (\SK.GET.DIRECTION 504968 . 505445) (\SK.GET.DASHING
|
||||
505447 . 506466) (PUTSKETCHELEMENTPROP 506468 . 508737) (\SK.PUT.FILLING 508739 . 510009) (
|
||||
ADDSKETCHELEMENTPROP 510011 . 510816) (REMOVESKETCHELEMENTPROP 510818 . 511607) (\SK.PUT.FONT 511609
|
||||
. 512423) (\SK.PUT.JUSTIFICATION 512425 . 513436) (\SK.PUT.DIRECTION 513438 . 514045) (
|
||||
\SK.PUT.DASHING 514047 . 515382) (\SK.PUT.BRUSH 515384 . 517303) (\SK.PUT.ARROWHEADS 517305 . 519271)
|
||||
(SK.COPY.ELEMENT.PROPERTY.LIST 519273 . 519849) (SKETCH.UPDATE 519851 . 520581) (SKETCH.UPDATE1 520583
|
||||
. 521871) (\SKELT.GET.SCALE 521873 . 522861) (\SKELT.PUT.SCALE 522863 . 524170) (\SKELT.PUT.DATA
|
||||
524172 . 525969) (SK.REPLACE.TEXT.IN.ELEMENT 525971 . 526924) (\SKELT.GET.DATA 526926 . 527993) (
|
||||
\SK.GET.1STCONTROLPT 527995 . 529507) (\SK.PUT.1STCONTROLPT 529509 . 534982) (\SK.GET.2NDCONTROLPT
|
||||
534984 . 535899) (\SK.PUT.2NDCONTROLPT 535901 . 540089) (\SK.GET.3RDCONTROLPT 540091 . 540969) (
|
||||
\SK.PUT.3RDCONTROLPT 540971 . 544871)) (544874 545455 (LOWERLEFTCORNER 544884 . 545130) (
|
||||
UPPERRIGHTCORNER 545132 . 545453)))))
|
||||
308664 . 309181) (TEXT.UPDATEFN 309183 . 313839) (SK.CHANGE.TEXT 313841 . 324163) (SK.CHANGE.FONT
|
||||
324165 . 325309) (TEXT.SET.SCALES 325311 . 326279) (BREAK.AT.CARRIAGE.RETURNS 326281 . 327241)) (
|
||||
327244 340229 (SK.PICK.FONT 327254 . 331526) (SK.CHOOSE.TEXT.FONT 331528 . 335799) (SK.NEXTSIZEFONT
|
||||
335801 . 337433) (SK.DECREASING.FONT.LIST 337435 . 340227)) (340648 352322 (SK.SET.FONT 340658 .
|
||||
341925) (SK.SET.TEXT.FONT 341927 . 342929) (SK.SET.TEXT.SIZE 342931 . 343618) (SK.SET.TEXT.HORIZ.ALIGN
|
||||
343620 . 345194) (SK.READFONTSIZE 345196 . 347094) (SK.COLLECT.FONT.SIZES 347096 . 348177) (
|
||||
SK.SET.TEXT.VERT.ALIGN 348179 . 350221) (SK.SET.TEXT.LOOKS 350223 . 351680) (SK.SET.DEFAULT.TEXT.FACE
|
||||
351682 . 352320)) (352323 352909 (CREATE.SKETCH.TERMTABLE 352333 . 352907)) (352910 354676 (
|
||||
SK.FONT.LIST 352920 . 353246) (SK.INSURE.FONT 353248 . 353770) (SK.INSURE.STYLE 353772 . 354290) (
|
||||
SK.INSURE.TEXT 354292 . 354674)) (355216 412509 (SKETCH.CREATE.TEXTBOX 355226 . 356868) (
|
||||
SK.COMPUTE.TEXTBOX.REGION.FOR.STRING 356870 . 358947) (SK.BREAK.INTO.LINES 358949 . 370135) (
|
||||
SK.BRUSH.SIZE 370137 . 370518) (SK.TEXTBOX.CREATE 370520 . 371317) (SK.TEXTBOX.CREATE1 371319 . 372383
|
||||
) (SK.UPDATE.TEXTBOX.AFTER.CHANGE 372385 . 372925) (SK.TEXTBOX.POSITION.IN.BOX 372927 . 374838) (
|
||||
TEXTBOX.CHANGEFN 374840 . 375314) (TEXTBOX.DRAWFN 375316 . 377352) (SK.TEXTURE.AROUND.REGIONS 377354
|
||||
. 383427) (ALL.EMPTY.REGIONS 383429 . 383919) (TEXTBOX.EXPANDFN 383921 . 391077) (TEXTBOX.INPUTFN
|
||||
391079 . 392692) (TEXTBOX.INSIDEFN 392694 . 393107) (TEXTBOX.REGIONFN 393109 . 393963) (
|
||||
TEXTBOX.GLOBALREGIONFN 393965 . 394293) (TEXTBOX.SET.GLOBAL.REGIONS 394295 . 395626) (
|
||||
TEXTBOX.TRANSLATEFN 395628 . 397469) (TEXTBOX.TRANSLATEPTSFN 397471 . 400254) (TEXTBOX.TRANSFORMFN
|
||||
400256 . 401924) (TEXTBOX.UPDATEFN 401926 . 403819) (TEXTBOX.READCHANGEFN 403821 . 408710) (
|
||||
SK.TEXTBOX.TEXT.POSITION 408712 . 409133) (SK.TEXTBOX.FROM.TEXT 409135 . 411740) (ADD.EOLS 411742 .
|
||||
412507)) (413038 416539 (SK.SET.TEXTBOX.VERT.ALIGN 413048 . 414928) (SK.SET.TEXTBOX.HORIZ.ALIGN 414930
|
||||
. 416537)) (416922 461397 (SKETCH.CREATE.BOX 416932 . 417415) (SK.BOX.DRAWFN 417417 . 418576) (
|
||||
BOX.DRAWFN1 418578 . 421417) (KNOTS.OF.REGION 421419 . 422653) (SK.DRAWAREABOX 422655 . 429256) (
|
||||
SK.DRAWBOX 429258 . 430447) (SK.BOX.EXPANDFN 430449 . 434197) (SK.BOX.GETREGIONFN 434199 . 435385) (
|
||||
BOX.SET.SCALES 435387 . 436627) (SK.BOX.INPUTFN 436629 . 438562) (SK.BOX.CREATE 438564 . 439265) (
|
||||
SK.UPDATE.BOX.AFTER.CHANGE 439267 . 439778) (SK.BOX.INSIDEFN 439780 . 440170) (SK.BOX.REGIONFN 440172
|
||||
. 440885) (SK.BOX.GLOBALREGIONFN 440887 . 441625) (SK.BOX.READCHANGEFN 441627 . 445348) (
|
||||
SK.CHANGE.FILLING 445350 . 449298) (SK.CHANGE.FILLING.COLOR 449300 . 452956) (SK.BOX.TRANSLATEFN
|
||||
452958 . 454137) (SK.BOX.TRANSFORMFN 454139 . 455084) (SK.BOX.TRANSLATEPTSFN 455086 . 457454) (
|
||||
UNSCALE.REGION.TO.GRID 457456 . 458381) (INCREASEREGION 458383 . 458974) (INSUREREGIONSIZE 458976 .
|
||||
460147) (EXPANDREGION 460149 . 461029) (REGION.FROM.COORDINATES 461031 . 461395)) (461933 488288 (
|
||||
SKETCH.CREATE.ARC 461943 . 462752) (ARC.DRAWFN 462754 . 464481) (ARC.EXPANDFN 464483 . 466816) (
|
||||
ARC.INPUTFN 466818 . 471036) (SK.INVERT.CIRCLE 471038 . 471898) (SK.READ.ARC.ANGLE.POINT 471900 .
|
||||
472407) (SK.SHOW.ARC 472409 . 473019) (ARC.CREATE 473021 . 474376) (SK.UPDATE.ARC.AFTER.CHANGE 474378
|
||||
. 474718) (ARC.MOVEFN 474720 . 476303) (ARC.TRANSLATEPTS 476305 . 478190) (ARC.INSIDEFN 478192 .
|
||||
478442) (ARC.REGIONFN 478444 . 479580) (ARC.GLOBALREGIONFN 479582 . 481304) (ARC.TRANSLATE 481306 .
|
||||
482288) (ARC.TRANSFORMFN 482290 . 485240) (ARC.READCHANGEFN 485242 . 488286)) (488289 497368 (
|
||||
SK.COMPUTE.ARC.ANGLE.PT 488299 . 489225) (SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 489227 . 490220) (
|
||||
SK.COMPUTE.ARC.PTS 490222 . 493794) (SK.SET.ARC.DIRECTION 493796 . 494370) (SK.SET.ARC.DIRECTION.CW
|
||||
494372 . 494546) (SK.SET.ARC.DIRECTION.CCW 494548 . 494821) (SK.COMPUTE.SLOPE.OF.LINE 494823 . 495315)
|
||||
(SK.CREATE.ARC.USING 495317 . 496554) (SET.ARC.SCALES 496556 . 497366)) (497369 497814 (
|
||||
SK.INSURE.DIRECTION 497379 . 497812)) (499185 545044 (GETSKETCHELEMENTPROP 499195 . 500503) (
|
||||
\SK.GET.ARC.ANGLEPT 500505 . 501066) (\GETSKETCHELEMENTPROP1 501068 . 501322) (\SK.GET.BRUSH 501324 .
|
||||
502248) (\SK.GET.FILLING 502250 . 503348) (\SK.GET.ARROWHEADS 503350 . 504129) (\SK.GET.FONT 504131 .
|
||||
504611) (\SK.GET.JUSTIFICATION 504613 . 505137) (\SK.GET.DIRECTION 505139 . 505616) (\SK.GET.DASHING
|
||||
505618 . 506637) (PUTSKETCHELEMENTPROP 506639 . 508908) (\SK.PUT.FILLING 508910 . 510180) (
|
||||
ADDSKETCHELEMENTPROP 510182 . 510987) (REMOVESKETCHELEMENTPROP 510989 . 511778) (\SK.PUT.FONT 511780
|
||||
. 512594) (\SK.PUT.JUSTIFICATION 512596 . 513607) (\SK.PUT.DIRECTION 513609 . 514216) (
|
||||
\SK.PUT.DASHING 514218 . 515553) (\SK.PUT.BRUSH 515555 . 517474) (\SK.PUT.ARROWHEADS 517476 . 519442)
|
||||
(SK.COPY.ELEMENT.PROPERTY.LIST 519444 . 520020) (SKETCH.UPDATE 520022 . 520752) (SKETCH.UPDATE1 520754
|
||||
. 522042) (\SKELT.GET.SCALE 522044 . 523032) (\SKELT.PUT.SCALE 523034 . 524341) (\SKELT.PUT.DATA
|
||||
524343 . 526140) (SK.REPLACE.TEXT.IN.ELEMENT 526142 . 527095) (\SKELT.GET.DATA 527097 . 528164) (
|
||||
\SK.GET.1STCONTROLPT 528166 . 529678) (\SK.PUT.1STCONTROLPT 529680 . 535153) (\SK.GET.2NDCONTROLPT
|
||||
535155 . 536070) (\SK.PUT.2NDCONTROLPT 536072 . 540260) (\SK.GET.3RDCONTROLPT 540262 . 541140) (
|
||||
\SK.PUT.3RDCONTROLPT 541142 . 545042)) (545045 545626 (LOWERLEFTCORNER 545055 . 545301) (
|
||||
UPPERRIGHTCORNER 545303 . 545624)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user