Tk Source Code

Check-in [e27c4627]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Is this assert correct? And we are (for now) only interested in --disable-aqua builds
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | revised_text | tip-466
Files: files | file ages | folders
SHA3-256: e27c4627670e0ec1abfb6f31e791b081b20ef454753c6010c6c5b281d4834642
User & Date: jan.nijtmans 2024-09-04 14:07:00.429
Context
2024-09-06
08:24
Bring back mac-build.yml as it was check-in: a61e5e47 user: jan.nijtmans tags: revised_text, tip-466
2024-09-05
06:00
Assert change was wrong check-in: e45bbf68 user: jan.nijtmans tags: revised_text, tip-466
2024-09-04
14:07
Is this assert correct? And we are (for now) only interested in --disable-aqua builds check-in: e27c4627 user: jan.nijtmans tags: revised_text, tip-466
2024-09-03
21:42
find out which textIndex.test testcase fails with --disable-aqua check-in: 57b2d4aa user: jan.nijtmans tags: revised_text, tip-466
Changes
Unified Diff Ignore Whitespace Patch
Changes to .github/workflows/mac-build.yml.
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
    runs-on: macos-14
    strategy:
      matrix:
        symbols:
          - 'no'
          - 'mem'
        options:
          - '--enable-aqua'
          - '--disable-aqua'
    defaults:
      run:
        shell: bash
        working-directory: tk/unix
    steps:
      - name: Checkout Tk







<







61
62
63
64
65
66
67

68
69
70
71
72
73
74
    runs-on: macos-14
    strategy:
      matrix:
        symbols:
          - 'no'
          - 'mem'
        options:

          - '--disable-aqua'
    defaults:
      run:
        shell: bash
        working-directory: tk/unix
    steps:
      - name: Checkout Tk
Changes to generic/tkTextIndex.c.
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
    const TkTextIndex *indexPtr1,	/* Index describing location of character from which to count. */
    const TkTextIndex *indexPtr2)	/* Index describing location of last character at which to
					 * stop the count. */
{
    int byteCount;
    TkTextLine *linePtr;

    assert(TkTextIndexCompare(indexPtr1, indexPtr2) <= 0);

    if (indexPtr1->priv.linePtr == indexPtr2->priv.linePtr) {
	return TkTextIndexGetByteIndex(indexPtr2) - TkTextIndexGetByteIndex(indexPtr1);
    }

    /*
     * indexPtr2 is on a line strictly after the line containing indexPtr1.







|







3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
    const TkTextIndex *indexPtr1,	/* Index describing location of character from which to count. */
    const TkTextIndex *indexPtr2)	/* Index describing location of last character at which to
					 * stop the count. */
{
    int byteCount;
    TkTextLine *linePtr;

    assert(TkTextIndexCompare(indexPtr1, indexPtr2) < 0);

    if (indexPtr1->priv.linePtr == indexPtr2->priv.linePtr) {
	return TkTextIndexGetByteIndex(indexPtr2) - TkTextIndexGetByteIndex(indexPtr1);
    }

    /*
     * indexPtr2 is on a line strictly after the line containing indexPtr1.